How can I locate a paragraph using the .find method ?

[Jamie Carper]

The following code tells me if the searched text exists:

Dim FoundText as Boolean

With ActiveDocument.Range.Find
FoundText = .Execute("The text I am searching for")
End With

How can I extract the exact paragraph object where this text is found?

I do not wish to manipulate the text, merely goto the location as if this
were a bookmark.

 

[Dave Lett]

Hi Jamie,

The easiest way to extract the text might be to simply select it using the
selection object instead of the Range object, as in the following:

Dim FoundText As Boolean
Dim sExtractText as String

With Selection.Find
FoundText = .Execute("The text I am searching for")
End With

sExtractText = Selection.Text

HTH,
Dave

 

[Jonathan West]

The following code tells me if the searched text exists:

Dim FoundText as Boolean

With ActiveDocument.Range.Find
FoundText = .Execute("The text I am searching for")
End With

How can I extract the exact paragraph object where this text is found?

I do not wish to manipulate the text, merely goto the location as if this
were a bookmark.

Do this

ActiveDocument.Range.Select
Selection.Find.Execute "The text I am searching for"

 

[Jamie Carper]

I think I was too hasty posting this query.

Here is the solution:

Dim FoundText as Boolean
Dim FoundTextParagraph as Paragraph

With ActiveDocument.Range.Find
FoundText = .Execute("The text I am searching for")
Set FoundTextParagraph = .Parent.Paragraphs(1)
End With