Compléter le fichier MSO 1036.acl de Word ? Fermé

Question

Bonjour,
Comment modifier directement le fichier MSO 1036.acl contenant le insertions automatiques de Word?

Problème:
Le fichier contenant les insertions automatiques dans Word se trouve dans MSO 1036.acl. 
Dans ce fichier, il doit y avoir une sorte de matrice à 2 colonnes: le mot que vous tapez dans Word -> celui qui est affiché à la place. 
Autrement dit, si vous avez l'habitude de faire vos insertions automatiques de Word dans un PC et  que vous changez transférez ce fichier dans un autre PC, vous bénéficierez des insertions sur l'autre PC.

Avantages de modifier directement le fichier: 
1. Je souhaite ajouter des insertions qui me serviront plus tard dans ma pratique.
2. Je souhaite aussi gagner du temps en n'ayant pas à refaire la manipulation à travers l'interface de Word à chaque nouvelle insertion.

Merci par avance.

m@rina · Answer

Bonjour,

Petite rectification : il ne s'agit pas des insertions automatiques, mais des corrections automatiques, et ce n'est pas la même chose (ACL = Auto Correct List)

A ma connaissance ce n'est pas possible de modifier directement un fichier ACL.
Cela étant dit, je ne vois pas en quoi ce serait plus simple de le modifier directement plutôt que d'utiliser le formulaire de Word dans lequel tu peux entrer autant de corrections que tu le souhaites sans faire 50 manip ! Remplacer... Par... => Ajouter... et on recommence...
Quoi de plus simple ?

m@rina

m@rina · Answer

Effectivement, je comprends... Mais si tu as un tableau de correspondance, on peut faire une macro.

m@rina

m@rina · Answer

Re...

Partant d'un tableau de correspondance de 2 colonnes et d'autant de lignes que de remplacements à faire, où tu as dans la colonne de gauche le texte à remplacer par celui de la colonne de droite, voici donc une macro :

Sub acl()
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

m@rina

Compléter le fichier MSO 1036.acl de Word ?

3 réponses

Discussions similaires