Сброс формата текста при обновлениии

[Вождь]

Попробуйте такой вариант:

Sub Link(ByVal control As IRibbonControl)
' вставка ссылки на номер названия

    ' поиск
Dim R As Word.Range

    Set R = Selection.Range
    R.Collapse Direction:=Word.wdCollapseEnd
    With R.Find
        .Text = "<Рис.[ ^s]@[0-9]@>" ' название
        .MatchWildcards = True
        .Wrap = wdFindContinue
        .Execute
    End With
    If R.Find.Found <> True Then Exit Sub
    ' вставка ссылки
Dim S As String

    R.Start = R.Words.Last.Start
    S = "Рисунок_" & R.Text ' имя закладки
    Selection.Bookmarks.Add Name:=S, Range:=R
    Selection.Fields.Add _
        Range:=Selection.Range, _
        Type:=Word.wdFieldRef, _
        Text:=S & " \h \*CharFormat", _
        PreserveFormatting:=False

End Sub