Перекрёстные ссылки

Sub HideRefTableAndPicture()
    Dim objFld As Field
    ' Пробегаю по всем полям в документе
    For Each objFld In ActiveDocument.Fields
        ' Если указанное поле является ссылкой то
        If objFld.Type = wdFieldRef Then
            objFld.ShowCodes = True ' Включаю отображение ссылок в виде кодов
            objFld.Select
            
            If InStr(objFld, "MERGEFORMAT") = 0 And InStr(objFld, "\h") > 0 Then ' Если в ссылке нет параметра "сохранять форматирование" и при этом параметер - гиперссылка, добавляю "сохранять форматирование"
                Selection.Collapse wdCollapseStart
                Selection.MoveStartUntil "\h"
                Selection.Next 3
                Selection.MoveRight Unit:=wdWord, Count:=2
                Selection.InsertBefore (" \* MERGEFORMAT ")
            End If
            objFld.Update ' Обновляю и сворачиваю ссылки
            objFld.Select ' Перевыделяю новый текст
            
            If InStr(Selection, "Рисунок ") > 0 Then ' Если в названии свернутой ссылки есть "Рисунок" - выделю и делаю скрытым шрифтом
                With Selection.Find
                 .Forward = True
                 .ClearFormatting
                 .Execute findText:="Рисунок "
                End With
                With Selection.Font
                 .Hidden = True
                End With
            End If
            
            If InStr(Selection, "Таблица ") > 0 Then ' Если в названии свернутой ссылки есть "Таблица " - выделю и делаю скрытым шрифтом
                With Selection.Find
                 .Execute findText:="Таблица "
                End With
                With Selection.Font
                 .Hidden = True
                End With
            End If
        End If
    Next objFld
End Sub