J'ai un tableau de corrections automatiques. Est-il possible de les ajouter directement dans le fichier ACL au lieu de tout ressaisir via la boîte de dialogue Corrections automatiques ?
C'est tout à fait possible avec une macro.
Soit un tableau Wiord de deux colonnes :
- La première colonne contient les mots à remplacer
- La seconde colonne contient 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 i = 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