Word2010 VBA宏实现自定义尺寸标注

Sub 表格编号()
    On Error GoTo L1
    CaptionLabels.Add ("表")
    With CaptionLabels("表")
        .NumberStyle = wdCaptionNumberStyleArabic
        .IncludeChapterNumber = False
    End With
    Selection.InsertCaption Label:="表", TitleAutoText:="", Title:="", Position _
        :=wdCaptionPositionBelow, ExcludeLabel:=0
    GoTo L2
L1: MsgBox "插入表编号失败，请检查是否题注 表 不存在，如不存在，请自建。"
L2:
End Sub
Sub 图片编号()
    On Error GoTo L1
    CaptionLabels.Add ("图")
    With CaptionLabels("图")
        .NumberStyle = wdCaptionNumberStyleArabic
        .IncludeChapterNumber = False
    End With
    Selection.InsertCaption Label:="图", TitleAutoText:="", Title:="", Position _
        :=wdCaptionPositionBelow, ExcludeLabel:=0
    GoTo L2
L1: MsgBox "插入图编号失败，请检查是否题注 图 不存在，如不存在，请自建。"
L2:
End Sub
Sub 图片索引()
    Dim Num
    CaptionLabels.Add ("图")
    Num = InputBox("输入图片序号（不是编号！），如果插入编号与实际编号不符，请：" & _

                   Chr(13) & Chr(10) + "1、检查是否将多个图片编号放到了同一行上；" & _
                   Chr(13) & Chr(10) + "2、Ctrl+A，F9更新域。")
    If Len(Num) = 0 Then GoTo L2
    On Error GoTo L1
    Selection.InsertCrossReference ReferenceType:="图", ReferenceKind:= _
        wdOnlyLabelAndNumber, ReferenceItem:=Num, InsertAsHyperlink:=False, _
        IncludePosition:=False, SeparateNumbers:=False, SeparatorString:=" "
    GoTo L2
L1: MsgBox "插入出错，重新操作时请注意输入是否正确。"
L2:
End Sub
Sub 表格索引()
    Dim Num
    CaptionLabels.Add ("表")
    Num = InputBox("输入表格序号（不是编号！），如果插入编号与实际编号不符，请：" & _
                   Chr(13) & Chr(10) + "1、检查是否将多个表格编号放到了同一行上；" & _
                   Chr(13) & Chr(10) + "2、Ctrl+A，F9更新域。")
    If Len(Num) = 0 Then GoTo L2
    On Error GoTo L1
    Selection.InsertCrossReference ReferenceType:="表", ReferenceKind:= _
        wdOnlyLabelAndNumber, ReferenceItem:=Num, InsertAsHyperlink:=False, _
        IncludePosition:=False, SeparateNumbers:=False, SeparatorString:=" "
    GoTo L2
L1: MsgBox "插入出错，重新操作时请注意输入是否正确。"
L2:
End Sub

Sub 保存为新版本()
Dim fname_new As String, fname_old As String, chr8 As String, chr4 As String, i As Integer, fs
    fname_old = ActiveDocument.FullName