你是一个资深的Word开发人员在Word2007中给每张图片下方按顺序加上阿拉伯数字的编号要求写出宏代码而且能在Word2007中运行。
Sub AddImageNumber() i = 1 For Each p In ActiveDocument.InlineShapes p.Range.Select Selection.TypeText Text:=i & ". " i = i + 1 Next End Sub
原文地址: https://www.cveoy.top/t/topic/eB9c 著作权归作者所有。请勿转载和采集!