I've a macros to find table by table in word document. Please find below sample code:
Code: Select all
Sub Find_Tables()
Dim n As Long
nCount = ActiveDocument.Tables.Count
If nCount = 0 Then
MsgBox "Table Count = 0", vbOKOnly, Title
Exit Sub
Else
End If
Application.Browser.Target = wdBrowseTable
Application.Browser.Next
Selection.Tables(1).Select
End Sub
Any help would be greatly appreciate.
Thanks!