如何获取word 中选择窗口内的图片的名字

鹏鹏鹏鹏鹏鹏鹏

如何获取word 中选择窗口内的图片的名字

鹏鹏鹏鹏鹏鹏鹏

也就是将放入word的图片进行命名，因为这个word文档以前就放有照片过


.Selection.InlineShapes.AddPicture Filename:=Sheets("按钮页").Cells(2, 2) & "\" & Sheets("填表").Cells(行号, 1) & ".jpg", LinkToFile:=False, SaveWithDocument:=True

.Selection.Document.InlineShapes.Name = "123"
通过这个也实现不了

鹏鹏鹏鹏鹏鹏鹏

ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument '设置位置在正文
Str1 = "【姓名图" & 行号 - 1 & "】"

.Selection.HomeKey Unit:=wdStory '光标置于文件首
If .Selection.Find.Execute(Str1) Then '查找到指定字符串



.Selection.InlineShapes.AddPicture Filename:=Sheets("按钮页").Cells(2, 2) & "\" & Sheets("填表").Cells(行号, 1) & ".jpg", LinkToFile:=False, SaveWithDocument:=True

.Selection.Document.InlineShapes.Name = "123"


On Error Resume Next '忽略错误

.Selection.Document.InlineShapes(行号 - 1).Height = 200 '设置高度为1.1倍
.Selection.Document.InlineShapes(行号 - 1).Width = 130 '设置宽度为1.1倍

End If