Диалоговое окно VBA Word 2003

Question

Наша клиентская среда недавно перешла со слова 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

Удачи