我能够使用VBA将多个图像添加到Word文档,但我无法为从文件夹路径加载的多个图像添加字幕。
您能建议这样做:
Sub checking()
Dim strFolderPath
strFolderPath = "C:images"
Dim objWord
Dim objDoc
Dim objSelection
Dim objShapes
Dim objFSO
Dim objFolder
Set objWord = CreateObject("Word.Application")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strFolderPath)
Set objDoc = objWord.Documents.Open("D:myfile.docx")
objWord.Visible = True
Set objSelection = objWord.Selection
For Each Img In objFolder.Files
ImgPath = Img.Path
objSelection.InlineShapes.AddPicture (ImgPath)
objSelection.InsertBreak
Next
End Sub
通过此您获得订单:
- 带有段落标志的图片
- 带有段落标志的图像路径
- 页面断开
For Each img In objFolder.Files
imgpath = img.Path
objSelection.InlineShapes.AddPicture (imgpath)
objSelection.InsertParagraphAfter
objSelection.InsertAfter imgpath
objSelection.InsertParagraphAfter
objSelection.Collapse wdCollapseEnd
objSelection.InsertBreak
Next
另外,我建议在每个模块的开头使用Option Explicit
,这迫使每个变量的声明(例如Dim ImgPath as String
)。