我们有个文件夹,里面是图片,每个图片都 有名称;如果在word中批量插入图片,如何让现有的图片名称成为word里的图片标题呢?
首先,我们打开一个word文本(以2013版为例)
首先,打开所需要的word文件,然后点击“视图”-----“宏”---点选 “查看宏”然后打开宏对话框,自定义一个宏名,然后点创建;当然我们还可以用简单的快捷键alt+f11,进入宏编辑页面。
然后在打的对话框中选择:thisdocment 并在右侧内粘贴如下代码:(一定要复制粘贴,不要敲,如果这里复制后侍纳答运行出错,代码可以去我动态里找,有朋友说报错,重新茄滚复制了就好了)
Sub PicWithCaption()
Dim xFileDialog As FileDialog
Dim xPath, xFile As Variant
Dim index
index = index + 1
On Error Resume Next
Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
If xFileDialog.Show = -1 Then
xPath = xFileDialog.SelectedItems.Item(1)
If xPath <>"" Then
xFile = Dir(xPath &"\*.*")
Do While xFile <>""
If UCase(Right(xFile, 3)) = "PNG" Or _
UCase(Right(xFile, 3)) = "TIF" Or _
UCase(Right(xFile, 3)) = "JPG" Or _
UCase(Right(xFile, 3)) = "GIF" Or _
UCase(Right(xFile, 3)) = "BMP" Then
With Selection
.InlineShapes.AddPicture xPath &"\" &xFile, False, True
老慧 .InsertAfter vbCrLf
.MoveDown wdLine
.Text = "图" &index &"-" &xFile
.MoveDown wdLine
.MoveDown wdLine
index = index + 1
End With
End If
xFile = Dir()
Loop
End If
End If
End
再点运行,会出现“浏览”对话框,找到存放图片的文件夹,点确定就可以了,回到word视图页面,就会发现,已经都 插入进来了
以在联想平板小新Pad Pro 11.5英寸电脑、WIN10专业版上使用期自带的画图软件(版本21H1)为例,可以将该相片使用画图软件打开。然后点击字符按钮输入需要的文字即可。具体的 *** 作方法如下:
1、找到该需要孝拆的图片,点击右键,选择编辑按钮。
2、在使用画图软件打开该图片以后,点击A按裤慎让钮。
3、在画面上点击鼠标,此时可以看到出现了输入框,在需要的位置输入具体的内容(可依据需要设置颜色以及字体大小)。
4、输入完成以后点击左上角的保存按钮。
5、打开该图片进入即可看到已经将需要胡局的内容添加到图片了。
在文档中找到需要设置的图片,右击该图片。1、双击打开需要设置的腊乎Word文档,进入该文档。
2、在文档中找到需要设族伏置的图片,右击该图片。
3、右击图片则d出的对话框中最下方的设置对象格式选项。
4、在进入设置对象格式选项后,点击上方图片工具栏中的环绕选项右下角的三角形扩展轮穗悉菜单打开环绕设置的扩展选项。
5、在扩展选项中选择负于文字上方选项。即可完成图片的任意移动设置。
6、设置完成用鼠标拖动图片就可以进行自由移动。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)