How to change text within Text Box in Word using VBA

Question

I am trying to change the text within the Word Text Box. I am not using any Activex for this, it is the normal Word text box same. How do I do this by programming by VBA?

I can make changes to the normal texts I write by Word, but when the text is inside a Text Box, I cannot change it by this method. I did so to change the normal texts:

    With ActiveDocument.Content.Find
     .Text = "Estado Civil"
     .Forward = True
     .Execute
     .Replacement.Text = "###"
     .Execute Replace:=wdReplaceAll, Forward:=True
    End With

I searched through various documentations and tutorials and found nothing. Thank you in advance!

Answer 1

Hello. One way to do this is by accessing the collection of "shapes" objects that exist in the document, but note that there are some "shapes" that do not support this property, so you have to test the object type. For that you can use the property HasText.

ActiveDocument.Shapes(1).TextFrame.TextRange.Text = "Novo Texto"