Microsoft Office Forums - View Single Post - [Solved] VBA to Replace Text in Multiple Text Boxes

jpl · 05-22-2022, 05:01 AM

Bonjour
Je ne sais pas si ce qui suit répond à votre question.
Dans un document Word, j'ai placé plusieurs boîtes de texte dont le texte contient une ou plusieurs fois le mot [Name1].
Dans toutes les boites de texte, la macro suivante a remplacé toutes les occurences de ce mot par le mot Mike.

(traduction automatique)
Hello
I don't know if the following answers your question.
In a Word document, I placed several text boxes whose text contains one or more times the word [Name1].
In all text boxes, the following macro replaced all occurrences of this word with the word Mike.

Code:

Sub test()
    Dim Sh As Shape
    For Each Sh In ActiveDocument.Shapes
      If Sh.Type = msoTextBox Then
        With Sh.TextFrame.TextRange.Find
          .ClearFormatting
          .Replacement.ClearFormatting
          .Execute FindText:="[Name1]", _
                   ReplaceWith:="Mike", _
                   Replace:=wdReplaceAll
        End With
      End If
    Next Sh
  End Sub