Recherche

Vous avez par exemple un document dans lequel beaucoup d'expressions ont été écourtées via des abréviations. Et maintenant vous souhaitez remplacer toutes ces abréviations par le texte complet.

Commencez par créer un document dans lequel vous créez un tableau de concordance de deux colonnes où les expressions de la première colonne doivent être remplacées par les expressions de la seconde colonne.

Si ce tableau existe déjà au format Excel, faites simplement un copier-coller dans un nouveau document Word de façon à obtenir un tableau Word. Ce sera plus simple.

Enregistrez ce document. Dans la macro suivante, j'ai appelé ce document tablo.docx.

Ouvrez les deux documents. Gardez actif le document qui contient tout votre texte, là où vous souhaitez faire des remplacements et lancez la macro suivante :

Sub RR()

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

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

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

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Set myrange = ActiveDocument.Content

With myrange.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = texte1
.Replacement.Text = texte2
.Execute Replace:=wdReplaceAll
End With

Next i
End Sub

Statistiques

France 75,6% France
Canada 8,1% Canada
États-Unis d'Amérique 4,8% États-Unis d'Amérique

Total:

64

Pays
018273552
Aujourd'hui: 7
Hier: 93
Cette semaine: 658
Semaine dernière: 1.156
Ce mois: 1.814