Диалоговое окно VBA Word 2003 - PullRequest
Новая
       17

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

0 голосов
/ 13 октября 2009

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

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

       .Show

   End With

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

Я сравнил настройки Word 2000 и 2003, похоже, они одинаковые.

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

1 Ответ

0 голосов
/ 15 декабря 2009

Извините, я не могу воспроизвести это на 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

Удачи

...