Macro to add paragraph borders
Hello,
I am new to VBA and struggling to combine code from different sources.
I have a sort of a report that is comprised of several lines of text, that can be considered as parapgraphs.
I need to add a box line, or single cell line arround each paragraph, takes much time if there are many.
I have managed to do something with this code, but this applies border around each line, instead of paragraph.
Dim rng As Range
Dim brd As Border
Set rng = ActiveDocument.Range
With rng.Find
.Text = "Paragraph_starting_word*^13"
.MatchWildcards = True
Do While .Execute
For Each brd In rng.Paragraphs.Borders
With brd
.LineStyle = wdLineStyleSingle
End With
Next brd
rng.Collapse wdCollapseEnd
rng.End = ActiveDocument.Range.End
Loop
End With
I would appreciate help.
|