That doesnt quite work for my code. I'm wondering if there's certain special characters that represent bold, italic, and underline.
Here's a copy of my code:
With ActiveDocument.Content
.Find.Execute FindText:="Section C.4"
TextStart = .Start
.Collapse wdCollapseEnd
.Find.Execute FindText:="Section C.5B:"
.Collapse wdCollapseStart
.Start = TextStart
.Delete
'.Font.Bold = False
'.InsertBreak wdPageBreak
.InsertAfter "The following "
.Font.Italic = True
.Font.Underline = wdUnderlineSingle
.InsertAfter "consecutive"
'.Font.Italic = False
'.Font.Underline = wdUnderlineNone
.InsertAfter " sections from the questionnaire have been removed because they are not relevant to facility operations:"
.InsertAfter vbNewLine
.InsertAfter vbNewLine
.InsertAfter vbNewLine
.Font.Bold = True
.InsertAfter "SECTION C.4: UNIT DESIGN - THERMAL TREATMENT/INCINERATOR"
.InsertAfter vbNewLine
.InsertAfter vbNewLine
.InsertAfter "SECTION C.5A: UNIT DESIGN - LANDFILLS"
.InsertParagraphAfter
.Collapse wdCollapseEnd
.InsertBreak wdPageBreak
End With