如何在word中二维码图片下面批量增加相同的文字?
发布网友
发布时间:2022-04-23 09:47
我来回答
共1个回答
热心网友
时间:2023-10-10 01:14
使用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