Formatting
Here what i am using for the my report (copied the following for each
section and added each section title)... How can i streamline the
code..
Selection.Find.ClearFormatting
With Selection.Find
.Text = "SECTION 1 - These activities have been deleted from
revision."
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.Find.ClearFormatting
With Selection.Find
.Text = "SECTION 1 - These activities have been deleted from
revision."
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Style = ActiveDocument.Styles("Heading 3")
|