Range.Information (Word)

Devuelve información sobre el intervalo especificado.

Information (Type)

Type: Tipo de información.

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