Thread: Macro to add paragraph borders
View Single Post
 
Old 07-24-2020, 09:34 AM
eduzs eduzs is offline Windows 10 Office 2019
Expert
  
Join Date: May 2017
Posts: 262
eduzs is on a distinguished road
Default
Using style as Guessed suggested:
You should first create "MyStyle" style.

Code:
Dim rng As range, brd As Border

Set rng = ActiveDocument.range
With rng.Find
.Text = "Para*^13"
.MatchWildcards = True
Do While .Execute
    rng.Style = "MyStyle"
Loop
End With
__________________
Backup your original file before doing any modification.
Reply With Quote