时间戳

首页 > 解决方案 > 如何为word中存在的多个图像插入多个标题？例如图片下方的“图：1”

vba - 如何为word中存在的多个图像插入多个标题？例如图片下方的“图：1”

问题描述

我可以使用 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

标签： vba

解决方案

通过这个你得到以下顺序：
- 带有段落符号的图片
- 带有段落符号的图像路径
- 分页符

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）。

推荐阅读