Question

我们的客户端enironment最近从单词2000迁移到2003，我们在其中一个模板中使用以下代码来显示单词的默认插入文件对话框。 Word与另一个第三方应用程序Hummingbird docspen集成。

 With Dialogs(wdDialogInsertFile)
       .Name = "q:\*.*"

       .Show

   End With

在旧环境中，它会打开指向我的文档文件夹的默认插入文件对话框，在word 2003中，它会打开Docsopen插件文件对话框。

我比较了单词2000和2003的设置似乎是相同的。

对此有任何建议。

Answer 1

抱歉，我无法在Word 2003 / Win XP上重现这一点。复制/粘贴您的代码并获得“插入文件”对话框。唯一不起作用的是指向你的目录q：

为此，您必须首先设置Options.DefaultFilePath（wdDocumentsPath），如

Private Sub CommandButton1_Click()

' save current doc path and set to insert path
MyPath = Options.DefaultFilePath(wdDocumentsPath)
Options.DefaultFilePath(wdDocumentsPath) = "C:\"

' display insert file dialog
With Dialogs(wdDialogInsertFile)  ' this works in debug mode as well as on clicking Command Button from Doc
    .Name = "*.txt"
    .Show
End With

' restore original doc path
Options.DefaultFilePath(wdDocumentsPath) = MyPath

End Sub

祝你好运

VBA Word 2003对话框

1 个答案: