word每张图片下插入相同的文字

使用VBA，下面给个流程和代码，你参考下

1. 新建word

2. “插入”|“图片”，选择多个图片插入

3. “Alt+F11”

4. 粘贴以下代码，关闭VBA

5. 选中第一个图片

6. Alt+F8，选择运行

7. 输入需要添加的文字

8. 输入需要增加的个数（最好与图片数量相同）

至此已经增加好了

Sub 批量添加文本()
    Dim n As String
    Dim m As Integer
    n = InputBox("输入填写的内容", "输入", "标题")
    m = InputBox("输入需要插入数量", "输入", 10)
    For i = 1 To m
        Call 增加标题(n)
    Next
End Sub

Sub 增加标题(iString As String)
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.TypeParagraph
    Selection.TypeText Text:="标题"
    Selection.TypeParagraph
End Sub

查找替换  ，操作如下，红框内为注意事项。不过这样操作会对文章中的每张图做操作，包括可能有的封面。悬浮状态的图片，此操作无效

下面是操作前提，这几百张图片的版式环绕方式必须为  【嵌入式】

复制粘贴就行