image - VBA 的资源图像文件？

Question

我有一个word doc，我一直在为它编写一些VBA，在其中我经常使用它：

LoadPicture(ThisDocument.Path & "image_name")

但是，为此，我需要用户在同一目录中有一个“图像”文件夹，这非常不方便。

有没有更好的方法在 VBA 项目中包含资源？

谢谢！

Answer 1

我使用 Word 中的 QuickParts 来存储它们。创建一个新的文档模板，将图像粘贴到页面上并选择它。然后转到 QuickParts 并将其添加到库中并保存您的模板。对要添加的每个项目重复此操作。然后使用 VBA 代码将模板应用到文档，您的 QuickPart 将从模板中提取。然后使用第二个宏从 QuickPart 中提取图像。

Answer 2

为什么不在文档打开时检查该文件夹是否存在，如果不存在则创建该文件夹？

Private Sub Document_Open()
    Dim imagesFolder As String

    imagesFolder = ThisDocument.Path & "\images\"
    If Len(Dir(imagesFolder, vbDirectory)) = 0 Then MkDir imagesFolder

End Sub