Is there a way to have word find a specific list string? All I have been able to do is loop through the headings until the correct numbering is found. Something like the following is what I would have thought could work (".ListString = "1.1").
Sub Sample() Dim c As Range Dim StartWord As String, EndWord As String StartWord = "Start": EndWord = "End" Set c = ActiveDocument.Content c.Find.ClearFormatting c.Find.Replacement.ClearFormatting With c.Find .Text = StartWord & "*" & EndWord .Replacement.Text = "" .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = True .MatchSoundsLike = False .MatchAllWordForms = False ' .ListString = "1.1" End With c.Find.Execute End Sub