Option Explicit

Sub aaaa()
'
    Dim isTable As Word.Range
    Set isTable = Selection.Range

    Dim q As Long

    For q = 1 To ActiveDocument.Fields.Count
        If ActiveDocument.Fields(q).Code Like "*Ссылка_м_г_54321012345_г*" Then
            ActiveDocument.Fields(q).Select
            If isTable.Information(wdWithInTable) = True Then
                MsgBox "jj"
                Exit For
            End If
        End If 'здесь ошибка Code execution has been interrupted, с чего бы это, эф8 жму и дальше поехали, ересь???!!!
    Next q

End Sub

With ActiveWindow.View
        .Type = wdPrintView    'режим отображения документа - Разметка страницы
        .ShowAnimation = True    'показывать аннимацию текста
        .ShowBookmarks = True    'показывать закладки
        .FieldShading = wdFieldShadingWhenSelected    'показывать затенение полей при их выделении
        .ShowTabs = True    'показывать знаки табуляции
        .ShowSpaces = True    'показывать пробелы
        .ShowParagraphs = True    'показывать знаки абзацев
        .ShowHiddenText = True    'показывать скрытый текст
        .ShowAll = True    'показывать все знаки форматирования
        .ShowHighlight = True    'показать выделение цветом
        .DisplaySmartTags = True    'показывать смарт теги
        .ShowFieldCodes = False    'не показывать коды полей
    End With

    With ActiveWindow
        .DisplayHorizontalScrollBar = True    'показывать горизонтальную полосу прокрутки
        .DisplayVerticalScrollBar = True    'показывать вертикальную полосу прокрутки
    End With

    With Options
        .UpdateFieldsAtPrint = False    'не обновлять поля перед печатью
        .UpdateLinksAtPrint = False    'не обновлять связи перед печатью
        .PrintFieldCodes = False    'не печатать коды полей
        .PrintHiddenText = False    'не печатать скрытый текст
        .PrintXMLTag = False    'не печатать XML теги
        .CheckSpellingAsYouType = True    'автоматически проверять орфографию
        .CheckGrammarAsYouType = True    'автоматически проверять грамматику
        .SuggestSpellingCorrections = True    'всегда предлагать замену при орфографической ошибке
    End With

   
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

Sub поторопился()
'
    Dim isTable As Word.Range
    Set isTable = Selection.Range

    Dim q As Long

    For q = 1 To ActiveDocument.Fields.Count
        If ActiveDocument.Fields(q).Code Like "*Ссылка_м_г_54321012345_г*" Then
            ActiveDocument.Fields(q).Select
            If Not isTable.Information(wdWithInTable) Then
                MsgBox "Не в таблице"
                ElseIf Not isTable.Information(wdWithInTable) = False Then
                MsgBox "В таблице"
            End If
        End If 'здесь ошибка Code execution has been interrupted, с чего бы это, эф8 жму и дальше поехали, ересь???!!!
    Next q

End Sub