user_mobilelogo

Pour tout connaître sur Word
Nouvelle version !

600 pages !

9,80 € 

En savoir plus.

C'est tout à fait possible avec une macro.

Dans un nouveau document, créez un tableau Word de deux colonnes :

  • La première colonne contiendra les mots à remplacer
  • La seconde colonne contiendra les mots de remplacement
  • le tableau contient autant de lignes que de mots à remplacer

La macro suivante va incorporer dans le fichier acl toutes les corrections automatiques du tableau :

Sub acl()

'macro écrite par m@rina
Dim tablo, i
Dim cellule1 As Cell, cellule2 As Cell
Dim texte1 As Range, texte2 As Range

tablo = ActiveDocument.Tables(1)
For= 1 To tablo.Rows.Count
Set cellule1 = ActiveDocument.Tables(1).Cell(Row:=i, Column:=1)
Set texte1 = cellule1.Range
texte1.MoveEnd unit:=wdCharacter, Count:=-1

Set cellule2 = ActiveDocument.Tables(1).Cell(Row:=i, Column:=2)
Set texte2 = cellule2.Range
texte2.MoveEnd unit:=wdCharacter, Count:=-1

AutoCorrect.Entries.Add Name:=texte1, Value:=texte2
Next i
End Sub

 


 

Si vous souhaitez formater ces corrections automatiques, vous utiliserez plutôt la macro suivante. Il suffira donc au préalable de formater les éléments de la deuxième colonne du tableau :

Sub acl2()

'macro écrite par m@rina
Dim tablo, i
Dim cellule1 As Cell, cellule2 As Cell
Dim texte1 As String, texte2 As Range

tablo = ActiveDocument.Tables(1)
For i = 1 To tablo.Rows.Count
Set cellule1 = ActiveDocument.Tables(1).Cell(Row:=i, Column:=1)
texte1 = cellule1.Range.Text
texte1 = Left(texte1, Len(texte1) - 2)
Set cellule2 = ActiveDocument.Tables(1).Cell(Row:=i, Column:=2)
Set texte2 = cellule2.Range
texte2.MoveEnd unit:=wdCharacter, Count:=-1
AutoCorrect.Entries.AddRichText Name:=texte1, Range:=texte2
Next i
End Sub
 

Statistiques

Aujourd'hui1946
Hier2617
Cette semaine9908
Ce mois32114
Total depuis 200412930999

45
visiteurs actuellement en ligne

15 avril 2021