c
a
d
r
a
t






  Entrée  
  Ressources   
  Codes  
  Découpage  
















      Visual Basic for Applications,
     Découpage ponctuation
macro-commandes pour Word

Le programme consiste à décoller les ponctuations à droite des mots, puis à en recoller certains comme « aujourd'hui » ou les abréviations.

 .1.   Code du découpage de la ponctuation

          


Sub Découp_Ponctu()

selection.HomeKey Unit:=wdStory
selection.TypeText Text:=" "
selection.Find.ClearFormatting
selection.Find.Replacement.ClearFormatting
avant = Array("...", ",", ".", "(", ")", "pachopacho", "'", "aujourd' hui", "pin' s", "presqu' île", "m' as-tu-vu", "prud' ", "entr' ", "jusqu' au-bout", "je-m' en-", "-l' ", "-d' ")
apres = Array("pachopacho", " ,", " .", "( ", " )", " ...", "' ", "aujourd'hui'", "pin's", "presqu'île", "m'as-tu-vu", "prud'", "entr'", "jusqu'au-bout", "je-m'en-", "-l'", "-d'")
acron = Array("^?.^?.^?.^?.^? ", "^?.^?.^?.^?.^?.", "^?.^?.^? ", "^?.^?.^?.", "^?.^?.", "^?.^$ ", " ^$.", "^p^$.")

With ActiveDocument.Content
 .Find.Replacement.Font.color = wdColorLightOrange

For b = 0 To UBound(acron)
 .Find.Execute findtext:=acron(b), ReplaceWith:="", Replace:=wdReplaceAll
Next b
 .Find.Font.color = wdColorLightOrange
 .Find.Execute findtext:=".", ReplaceWith:="*", Replace:=wdReplaceAll
 .Find.Replacement.ClearFormatting
 .Find.ClearFormatting
End With

For a = 0 To UBound(avant)
With ActiveDocument.Content
 .Find.Execute findtext:=avant(a), ReplaceWith:=apres(a), Replace:=wdReplaceAll
End With
Next a

With ActiveDocument.Content
 .Find.Font.color = wdColorLightOrange
 .Find.Replacement.Font.color = wdColorAutomatic
 .Find.Execute findtext:="*", ReplaceWith:=".", Replace:=wdReplaceAll
 .Find.Execute findtext:="", ReplaceWith:="", Replace:=wdReplaceAll
 .Find.Replacement.ClearFormatting
 .Find.ClearFormatting
End With
selection.HomeKey Unit:=wdStory
selection.Delete Unit:=wdCharacter, count:=1

End Sub

         


     Les logiciels bureautiques particulièrement VBA   II.2.  

       Site       motte 0.5  
       Imprimer  
(de préférence en format paysage pour lire
l'ensemble du code)
     Le programme du découpage lexical en Macro VBA Word
     Le programme des hautes fréquences en Macro VBA Excel
     La page d’accueil
     Le sommaire des pages
     Rédaction : 01.07.2001      Publication : 01.05.2004                  http://cadrat.saynete.net2003 - 2012