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.

Je pars du principe que vous avez un tableau de concordance où les expressions de la première colonne doivent être remplacées par les expressions de la seconde colonne. S'il s'agit d'un tableau 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 72,0% France
Canada 7,7% Canada
Belgique 3,9% Belgique

Total:

114

Pays
018304828
Aujourd'hui: 25
Hier: 195
Cette semaine: 25
Semaine dernière: 2.383
Ce mois: 220