This is the code
Sub Macro4()
Dim start1 As Integer
Dim start2 As Integer
Dim rng As Range
With Selection.Find
.ClearFormatting
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindStop
.Format = True
.Font.Bold =...
That should work.
1-Select the beginning of the document
2- Set the find criteria
--Start the Loop
3- Find with forward ‘Execute’
4- Do your change
5- Set the selection after the location that you changed
--End the Loop
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.