Les FAQs Word et PowerPoint

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

Ecrire un commentaire

Nom: Email:  ne pas notifiernotifier Titre:     Saisissez le code que vous voyez.

Commentaires

Ajouter un nouveau Rechercher

Elysé  - Tableau corrections automatiques   |23-11-2009 14:54:03 Bonjour, merci pour ton aide. ça marche très bien. Maintenant comment on fait si je souhaite ajouter une condition à cette macro, c'est-à-dire : dans "correction automatique" : vérifier si le mot existe déjà, si oui = ne rien faire et si non = ajouter ? merci pour ta réponse. Elysé Répondre 0   0 Powered by !JoomlaComment 3.26

3.26 Copyright (C) 2008 Compojoom.com / Copyright (C) 2007 Alain Georgette / Copyright (C) 2006 Frantisek Hliva. All rights reserved."