Word如何为每一张图片加上题注

打开word 插入--图片

插入图片后 点击 开发工具-VisualBasic

进入编码模式后-视图--代码窗口

【输入如下代码 之后F5应用】

Sub 添加所有图片的题注()

Dim i As Integer, j As Integer

i = ActiveDocument.InlineShapes.Count

For j = 1 To i

ActiveDocument.InlineShapes(j).Select

Selection.Range.InsertAfter (Chr(13) & "图" & j)

Next j

End Sub

运行

效果如图