Search doc and bold select text with VBA

[Ronnie Hugh]

Can someone help me with the VBA code that would allow me
to search multiple text boxes within doc for select text
and then bold the text?

thanks
gh

 

[Helmut Weber]

Hi Ronnie,
not a beginners question, I think!
Have a look at this:
Sub Test555()
Dim oShp As Shape
For Each oShp In ActiveDocument.Shapes
If oShp.Type = msoTextBox Then
With oShp.TextFrame.TextRange.Find
.Text = "f"
.Replacement.Text = "f"
.Replacement.Font.Bold = True
.Execute Replace:=wdReplaceAll
End With
End If
Next
End Sub