这是我的子程序:Sub InsertExhibitLabel() ' ' InsertExhibitLabel Macro ' 将光标放在展览品下方的行上(标题之前)并运行以插入展览品字段。 ' 之前:“|标题” ' 之后:“图 [Chapter-#]。标题” ' '
'Insert numbered FigureLabel
Selection.InsertCaption label:="Figure", TitleAutoText:="InsertCaption1", _
Title:="", Position:=wdCaptionPositionBelow, ExcludeLabel:=0
'Set to Caption style
Selection.Style = ActiveDocument.Styles("Caption")
'Add period and space
Selection.TypeText Text:=". "
子目录结束