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= 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

 

 

Statistiques

Aujourd'hui2011
Hier2695
Cette semaine4706
Total depuis 20049407718

18
visiteurs actuellement en ligne