交叉引用修改Figure为Fig.

1. 修改交叉引用时 Figure 为 Fig. ，Table 为 Tab. 等。

采用创建宏的方法批量更改.

搜索自：http://www.msofficeforums.com/word/11965-making-cross-reference-say-fig-instead-figure.html

有用的源码：

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

  End With

Next

End Sub