RefNoText.bas

Sub RefNoText()
'Подавить постоянную часть перекрестной и оставить 
'только номер вставкой ключа числового формата в поле Ref
    With Selection
        .Fields.ToggleShowCodes
        .Find.ClearFormatting
        .Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "_Ref^#^#^#^#^#^#^#^#^#"
        .Replacement.Text = "^& \# 0"
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
        .Find.Execute Replace:=wdReplaceAll
        .Fields.Update
    End With
End Sub