2012年7月2日
Word对所有的图标增加自动编号
摘要： Sub 图加题注()'' 图加题注 宏'For i = 1 To ActiveDocument.InlineShapes.CountActiveDocument.InlineShapes(i).SelectSelection.InsertCaption Label:="图", TitleAutoText:="", Title:="", Position _ :=wdCaptionPositionBelow, ExcludeLabel:=0 Selection.ParagraphFormat.Alignment 阅读全文
posted @ 2012-07-02 13:30 寒云 阅读(714) 评论(0) 推荐(0)