Question

我有一个单词doc，我一直在写一些VBA，在其中我使用了很多：

LoadPicture(ThisDocument.Path & "image_name")

然而，为了实现这个目的，我需要用户在同一目录中有一个“Images”文件夹，这非常不方便。

有没有更好的方法在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

VBA的资源图像文件？

2 个答案: