MS Word Abbreviate existing Figure and Table cross-references

AbbreviateCaptions Word Macro.docm

## Abbreviate existing Figure and Table cross-references
## https://www.msofficeforums.com/word/11965-making-cross-reference-say-fig-instead-figure.html
# Add with View > Macros > View Macros > Create > Select the current file (Project .. ThisDocument) 
#   > Paste this Macro > save document in docm format

Sub AbbreviateCaptions()
Dim Fld As Field
For Each Fld In ActiveDocument.Fields
  With Fld
    If Left(.Result.Text, 6) = "Figure" Then
      .Locked = False
      .Update
      .Result.Text = Replace(.Result.Text, "Figure", "Fig", 1, 1)
      .Locked = True
    End If
    If Left(.Result.Text, 5) = "Table" Then
      .Locked = False
      .Update
      .Result.Text = Replace(.Result.Text, "Table", "Tab", 1, 1)
      .Locked = True
    End If
  End With
Next
End Sub