Word: выяснить, находится ли поле в таблице - VBA

Формулировка задачи:

здравствуйте, файл Ворда, в нём два поля одно не в таблице второе в таблице, этот код, выдает один и тот же ответ - "не в таблице" не пойму в коде между интеракциями затирать нужно?

Option Explicit
 
Sub aaaa111()
'
    Dim isTable As Word.Range
    Set isTable = Selection.Range
 
    Dim q As Long
 
    For q = 1 To ActiveDocument.Fields.Count
 
   If Not isTable.Information(wdWithInTable) Then
                MsgBox "Не в таблице"
                ElseIf Not isTable.Information(wdWithInTable) = False Then
                MsgBox "В таблице"
            End If
    Next q
End Sub

одиннадцатая строка кода затерялась:

ActiveDocument.Fields(q).Select

эффект не поменялся

Решение задачи: «Word: выяснить, находится ли поле в таблице»

textual
                            Листинг программы 
                        

                            Sub aaaa112()
'
Dim q As Long, q1
 
For q = 1 To ActiveDocument.Fields.Count
  ActiveDocument.Fields(q).Select
  q1 = Selection.Information(wdWithInTable)
  If q1 = False Then
    Debug.Print ActiveDocument.Fields(q).Code, "Не в таблице"
  ElseIf q1 = True Then
    Debug.Print ActiveDocument.Fields(q).Code, "В таблице"
  Debug.Print "r=", Selection.Information(wdEndOfRangeRowNumber)
Debug.Print "c=", Selection.Information(wdEndOfRangeColumnNumber)
 
  Else
    Debug.Print "что-то не то"
  End If
Next q
End Sub
                        