Открытие нескольких файлов в Word

[shyko]

В Word в диалоге "Открыть файл" можно указать несколько файлов(удерживая Ctrl или Shift).

Средствами VBA реализовать данную функцию у меня не получается:

Код: Выделить всё

Dim dlgOpen As Dialog
Set dlgOpen = Dialogs(wdDialogFileOpen)
Dim S As String
With dlgOpen
[color=red]   If .Display = 0 Then Exit Sub  ' -> RunTime error '5174'[/color]
   S = .Name
   ...
End With


Как можно получить список файлов, которые выбрал пользователь?

[RayShade]

Просто в общем-то:

Код: Выделить всё

set dlg = application.filedialog(msodialogfileopen)
with dlg
.AllowMultiSelect = true
if .show=-1 then
msgbox .selecteditems.count " файлов выбрано"
end if
end with


[shyko]

Спасибо, RayShade.

Извините, что отрываю по глупостям, т.к. после поста нашел ответ в хелп:

This example displays the Open dialog box and allows a user to select multiple files to open.

Код: Выделить всё

Sub ShowFileDialog()
    Dim dlgOpen As FileDialog
    Set dlgOpen = Application.FileDialog( _
        FileDialogType:=msoFileDialogOpen)
    With dlgOpen
        .AllowMultiSelect = True
        .Show
    End With
End Sub

[shyko]

Возникла проблема при переносе макроса на Office 9. В Microsoft Office 9.0 Object Library нет FileDialog.
Как можно исправить код, чтобы он был работоспособен в Word 97-XP

[shyko]

Ссылка по теме:
http://relib.com/forums/topic.asp?pg=100&id=860919