Range.Information (Word)

Returns information about the specified range.

Information (Type)

Type: The information type.

If ActiveDocument.Words(10).Information(wdWithInTable) Then _ 
 ActiveDocument.Words(10).Tables(1).Select