Find text in table and select table

[Beginner in vba]

I need to find a table (in a document that have alot of table) in which one
of the column has "name". If the table has the word "name" then it will
calculate the number of row and column of the table. I still cant seems to
code it. Thanks for the help.

 

[Helmut Weber]

Hi,

like this, unless "name" appears a million times
outside of tables. In that case it would be better,
to restrict the search to the tables only.

Sub test5867()
Dim rDcm As Range
Set rDcm = ActiveDocument.Range
ResetSearch
With rDcm.Find
.Text = "name"
.MatchCase = True
.MatchWholeWord = True
While .Execute
If rDcm.Information(wdWithInTable) Then
rDcm.Select
Exit Sub
End If
Wend
End With
ResetSearch
End Sub


Public Sub ResetSearch()

With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute
End With

End Sub

And please let us know, whether this was helpful.

Greetings from Bavaria, Germany
Helmut Weber, MVP
"red.sys" & chr(64) & "t-online.de"
Word 2002, Windows 2000

 

[Helmut Weber]

If rDcm.Information(wdWithInTable) Then

rDcm.Select ' for testing

rdcm.tables(1).select ' ---- add this line ----

Exit Sub

Helmut Weber