Question

如何使用快捷方式以编程方式插入Word文件？我们公司需要将源文件混合和匹配到更大的发布文档中，并且可以在多个发布文档中使用单个文件。

方法是获得源文件的一个副本。然后，每个发布文档都有自己的目录，其中包含应包含的所有源文件的快捷方式。要按正确顺序对它们进行排序，快捷方式名称具有前缀编号，这意味着快捷方式具有与源文件不同的名称。

当我使用实际路径和文件名时，这可以正常工作，但在使用快捷方式时出错：运行时错误'5273'：文档名称或路径无效。

我正在使用代码：

Dim strSourceFolder As String   'location of source files

    ChangeFileOpenDirectory strSourceFolder

    Selection.InsertFile FileName:=  strSourceFolder & "[#-SHORTCUT NAME HERE].docx" _, Range:="", ConfirmConversions:=False, Link:=False, Attachment:=False

Answer 1

快捷方式包含文件夹和文件名（右键单击“属性”并查看“目标路径”），因此您有一些冗余。此外，快捷方式不包含文件扩展名。因此，只需保留FileName的快捷方式名称：

Selection.InsertFile FileName:="[#-SHORTCUT NAME HERE]" _, 
Range:="", ConfirmConversions:=False, Link:=False, Attachment:=False

使用VBA从其快捷方式插入Word文件

1 个答案: