Excluding objects in a range

[jfl4066]

Hi,
I have a Word 2003 document containing a couple of tables and some text
outside the tables. How can I set a search range for the text outside the
tables? Thanks for the help.

 

[Doug Robbins - Word MVP]

Use something like:

Dim Findstr As String
Findstr = InputBox("Insert the text that you want to find.")
Selection.HomeKey wdStory
Selection.Find.ClearFormatting
With Selection.Find
Do While .Execute(FindText:=Findstr, Forward:=True, _
MatchWildcards:=False, Wrap:=wdFindStop, MatchCase:=False) = True
If Selection.Information(wdWithInTable) = False Then
'do something
End If
Selection.Collapse wdCollapseEnd
Loop
End With


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com

 

[jfl4066]

Thanks Doug. I was hoping to not have to iterate thru the entire story by
setting a range excluding the tables. But I guess there's no other way.