Dim SelectionFields1Index As Long
    SelectionFields1Index = Selection.Fields(1).Index
    
    Dim FieldsCursorRow As Long
    'номер строки в таблице, в документе, где расположено первое выделенное поле, даже если таблица имеет объединённые ячейки
    FieldsCursorRow = ActiveDocument.Fields(SelectionFields1Index).Code.Information(wdEndOfRangeRowNumber)

    Dim FieldsCursorCell As Long
    'номер столбца, то есть ячейки в строке таблицы, в документе где расположено первое выделенное поле, даже если таблица имеет объединённые ячейки
    FieldsCursorCell = ActiveDocument.Fields(SelectionFields1Index).Code.Information(wdEndOfRangeColumnNumber)

'номер таблицы в документе, где расположен курсор
    CursorTable = ActiveDocument.Range(0, Selection.Tables(1).Range.End).Tables.Count

 Dim SelectionFields1 As Long
    'номер таблицы в документе, где расположено поле ...
    SelectionFields1 = ActiveDocument.Range(0, Selection.Fields(1).Code.End).Tables.Count

  Dim SelectionFields1Index As Long
    'номер первого выделенного поля
    SelectionFields1Index = Selection.Fields(1).Index
       
    'оператор для отлова ошибок, указывает, что при возникновении ошибки нужно переходить к следующей строке кода
    'On Error Resume Next
     
    Dim SelectionFieldsTablesCount As Long
    'номер таблицы в документе, где расположено поле ...
    '5941 - Запрашиваемый номер семейства не существует
    SelectionFieldsTablesCount = ActiveDocument.Range(0, Selection.Fields(SelectionFields1Index).Code.End).Tables.Count

    Dim FieldsCursorRow As Long
    'номер строки в таблице, в документе, где расположено первое выделенное поле, даже если таблица имеет объединённые ячейки
    FieldsCursorRow = ActiveDocument.Fields(SelectionFields1Index).Code.Information(wdEndOfRangeRowNumber)

    Dim FieldsCursorCell As Long
    'номер столбца, то есть ячейки в строке таблицы, в документе где расположено первое выделенное поле, даже если таблица имеет объединённые ячейки
    FieldsCursorCell = ActiveDocument.Fields(SelectionFields1Index).Code.Information(wdEndOfRangeColumnNumber)
       
    'If Err.Number <> 5941 Then
    'Else
    'End If

    'требуется, чтобы в нужном месте отключить действие строки 1) On Error GoTo ... 2) либо действие строки On Error Resume Next
    On Error GoTo 0

 Dim SelectionFields1Index As Long
    'номер первого выделенного поля
    SelectionFields1Index = Selection.Fields(1).Index
         
    Dim SelectionFieldsTablesCount As Long
    'номер таблицы в документе, где расположено поле ...
    'если SelectionFieldsTablesCount = 0, тогда поле не в таблице
    SelectionFieldsTablesCount = ActiveDocument.Range(0, ActiveDocument.Fields(SelectionFields1Index).Code.End).Tables.Count
    
    Dim FieldsCursorRow As Long
    'номер строки в таблице, в документе, где расположено поле ..., даже если таблица имеет объединённые ячейки
    FieldsCursorRow = ActiveDocument.Fields(SelectionFields1Index).Code.Information(wdEndOfRangeRowNumber)
 
    Dim FieldsCursorCell As Long
    'номер столбца, то есть ячейки в строке таблицы, в документе где расположено поле ..., даже если таблица имеет объединённые ячейки
    FieldsCursorCell = ActiveDocument.Fields(SelectionFields1Index).Code.Information(wdEndOfRangeColumnNumber)