Microsoft Office Forums - View Single Post - How to determine the end of a block of text

gmaxey · 03-27-2024, 08:49 AM

Demo below is Microsoft example of the "Found" property. DemoII below is my code which to me proves that "Found" is utterly useless:

Code:

Sub Demo()
  With Selection.Find
   .ClearFormatting
   .Font.Bold = True
   .Execute FindText:="Hello", Format:=True, Forward:=True
   If .Found = True Then
    .Parent.Expand Unit:=wdParagraph
    .Parent.Copy
   End If
End With
End Sub
Sub DemoII()
  With Selection.Find
    .ClearFormatting
    .Font.Bold = True
    If .Execute(FindText:="Hello", Format:=True, Forward:=True) Then
      .Parent.Expand Unit:=wdParagraph
      .Parent.Copy
    End If
  End With
End Sub