Multiple Rechercher et remplacer dans MS Word à l'aide de macros

Apprenez à écrire une macro pour faire trouver multiple et remplacer les opérations dans MS Word en une seule fois. Vous pouvez modifier plusieurs mots avec cette macro VBA.

A+ A-

Aujourd'hui, je travaille avec beaucoup de texte Unicode dans MS-Word. Dans les documents que je poignée, toutes les pièces du texte ont invariablement besoin d'édition. Et voilà ce que je fais! Mais il y a des erreurs qui se produisent souvent que je dois corriger à plusieurs reprises dans divers documents.

Donc, je pensais que ce serait génial si je pouvais courir plusieurs rechercher et remplacer les commandes en une seule fois. J'utilise souvent Rechercher et remplacer l'installation de MS Word. Maintenant, la question était de savoir comment faire pour trouver les multiples et remplacer les opérations sur un seul clic.

Eh bien, la réponse doit impliquer une macro! Plusieurs tâches peuvent être exécutées dans un document MS Word par le chemin de macros .

Une macro est un ensemble de plusieurs commandes mis ensemble dans une séquence particulière. Tout ce que vous avez besoin est d'écrire une macro, puis continuer à courir sur les documents cibles. Pour rechercher et remplacer plusieurs, vous pouvez utiliser un module comme indiqué ci-dessous (je l'ai trouvé sur Internet):

Sub MultiReplace()
Dim StrOld As String, StrNew As String
Dim RngFind As Range, RngTxt As Range, i As Long
StrOld = "the,quick,brown,fox"
StrNew = "The,Quick,Brown,Fox"
Set RngTxt = Selection.Range
For i = 0 To UBound(Split(StrOld, ","))
  Set RngFind = RngTxt.Duplicate
  With RngFind.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = Split(StrOld, ",")(i)
    .Replacement.Text = Split(StrNew, ",")(i)
    .Format = False
    .MatchWholeWord = True
    .MatchAllWordForms = False
    .MatchWildcards = False
    .Execute Replace:=wdReplaceAll
  End With
Next
End Sub

Dans ce programme macro, les valeurs séparées par des virgules dans StrOld sont les éléments à remplacer. Chaque élément de cette liste sera remplacée par la valeur correspondante donnée dans la chaîne StrNew. Inutile de dire que les deux chaînes devraient avoir le même nombre de valeurs et , évidemment , la séquence des valeurs qui importe.

Vous pouvez écrire cette macro en allant dans l'éditeur Visual Basic de Microsoft Word.

Je continue à écrire des articles sur les conseils d' économie MS-Word temps . Ne vous inscrire mon blog et continuer à recevoir de bons conseils qui vous aideront à atteindre une plus grande productivité au lieu de travail.

J'espère que cela a été utile pour vous. S'il vous plaît laissez-moi savoir si vous avez des questions sur ce sujet. Merci d'utiliser TechWelkin!