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

Наша клиентская среда недавно перешла со слова 2000 на 2003, мы используем приведенный ниже код в одном из шаблонов, чтобы показать диалоговое окно вставки файла по умолчанию. Word интегрирован с другим сторонним приложением Hummingbird docspen.

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

       .Show

   End With

В старом окружении он открывает диалоговое окно по умолчанию для файла вставки, указывающее на папку «Мои документы», где, как и в Word 2003, он открывает диалоговое окно «Вставить файл Docsopen».

Я сравнил настройки слова 2000 и 2003, кажется, это то же самое.

Любые предложения по этому вопросу, пожалуйста.

13.10.2009 07:01:45
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

Удачи

0
4.06.2012 11:37:18