Microsoft Office Forums - View Single Post - [Solved] Find keyword in section & delete section

donaldadams1951 · 12-03-2013, 10:08 AM

Thanks for the input...

This is what I did to remove the sections and text I inserted into the document.

Code:

 
strSearchString = "Inst#: " & ReportInstance
 
With Selection.Find
 
  .ClearFormatting 
  .Replacement.ClearFormatting
  .Text = strSearchString
 
  .Replacement.Text = ""
 
  .Forward = True
  .Wrap = wdFindStop
  .Format = False
  .MatchWildcards = True
  .Execute
 
  ' what section am I in?
  If .Found = True Then
 
    intSectionCount = ActiveDocument.Range(0, Selection.Range.End).Sections.Count
 
 
    ActiveDocument.Sections(intSectionCount).Range.Delete
 
 
  End If
 
End With