Hello Macropod,

I Still can't select after the find header :-(
And I don't see why. Can you help me with debug the code?
Thanks!


Sub Select_text()
Selection.WholeStory
Selection.Collapse wdCollapseStart

Selection.Find.ClearFormatting
Selection.Find.Style = ActiveDocument.Styles("Kop 2") 'This will only search in header type "Kop 2"
With Selection.Find
.Text = "1.2 Doelstelling" 'Search for the first header text
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
End With
Selection.Find.Execute
Selection.Collapse wdCollapseStart

Dim R_start As Range
Set R_start = Selection.Range 'Start Selection form first header text

Selection.Find.Text = "1.3 Scenario's" 'Search for the second header text
If Selection.Find.Execute Then
Selection.Collapse wdCollapseStart
Else
Selection.WholeStory
Selection.Collapse wdCollapseEnd
End If
Dim R_end As Range
Set R_end = ActiveDocument.Range(R_start.End, Selection.Start)
R_end.Select

End Sub