如何在word中二维码图片下面批量增加相同的文字?
发布网友
共1个回答
热心网友
使用VBA，下面给个流程和代码，你参考下
新建word
“插入”|“图片”，选择多个图片插入
“Alt+F11”
粘贴以下代码，关闭VBA
选中第一个图片
Alt+F8，选择运行
输入需要添加的文字
输入需要增加的个数（最好与图片数量相同）
至此已经增加好了
Sub 批量添加文本() Dim n As String Dim m As Integer n = InputBox("输入填写的内容", "输入", "标题") m = InputBox("输入需要插入数量", "输入", 10) For i = 1 To m Call 增加标题(n) NextEnd Sub Sub 增加标题(iString As String) Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.TypeParagraph Selection.TypeText Text:="标题" Selection.TypeParagraphEnd Sub
