经验直达：
- word如何将插入图片名自动作为图片标注
- 怎样在word文档中插入图片标注
一、word如何将插入图片名自动作为图片标注
我们有个文件夹 ， 里面是图片，每个图片都 有名称；如果在word中批量插入图片,如何让现有的图片名称成为word里的图片标题呢？
首先，我们打开一个word文本（
以2013版为例）
首先，打开所需要的word文件，然后点击“视图”-----“宏”---点选 “查看宏”然后打开宏对话框，自定义一个宏名 ， 然后点创建；当然我们还可以用简单的快捷键alt f11，进入宏编辑页面 。
然后在打的对话框中选择：thisdocment并在右侧内粘贴如下代码：（一定要复制粘贴，不要敲，如果这里复制后运行出错，代码可以去我动态里找 ， 有朋友说报错，重新复制了就好了）
Sub PicWithCaption()
Dim xFileDialog As FileDialog
Dim xPath, xFile As Variant
Dim index
index = index1
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 = index1
End With
End If
xFile = Dir()
Loop
End If
End If
End
再点运行，会出现“浏览”对话框，找到存放图片的文件夹，点确定就可以了，回到word视图页面，就会发现，已经都 插入进来了
二、怎样在word文档中插入图片标注
【用word怎么添加图名 word如何将插入图片名自动作为图片标注】1、点击菜单栏的【插入】/【图片】/【来自文件】，在Word文档中插入一张图片，我这里插入的是一张花的照片 。也可以插入【剪贴画】，它是电脑自带的 。
2、点击工具栏上的【绘图】图标 ， 在Word文档的下方出现【绘图】工具栏，点击【自选图形】 。
3、【自选图形】中有各种图形，选择【标注】（因它里面可以写字） ， 再选择标注样式，这里我选择的是“云形” 。
4、选择后，弹出如下对话框 ， “在此处创建图形” 。
5、在这里拖动鼠标，“云形”标注就出来了，然后在标注里面写上文字，拖动标注框的控制点可调整其大小 。绿色点是旋转点 ， 可旋转标注；黄色点可移动标注的小尾巴 。
6、设置完成后，将标注拖到图片上，再将“创建图形框”删除 。（备注：有的时候不出现“创建图形框”，那就直接拖画就行了 。）
7、在照片中选择标注后，还可继续进行编辑（选中的标注外框是虚线） 。
8、对标注的背景色及边框色如不满意，我们还可更改 。在标注里右键单击，在弹出的对话框中点击“设置自选图形格式” 。
9、在弹出的【设置自选图形格式】对话框中进行设置，这里我将【填充】色设为黄色（还可设置透明度） ， 【线条】色设为绿色（也可设置线形），完成后点击【确定】 。
10、这就是设置好的图片标注，用抓图工具可将它转换成一张新图片，就可网上传输给亲朋好友了 。
