Основы офисного программирования и документы Word

Предоставление пользователю возможности открыть любой


Public Sub WindowOpenFile() ' Предоставление пользователю возможности открыть любой файл. 'Открывается каталог, хранящий активный документ, с показом всех файлов. Dim Act As Long With Dialogs (wdDialogFileOpen) .Name = ActiveDocument.Path & "\*.*" Act = . Show Debug.Print Act If Act = -1 Then 'Файл успешно открыт и можно получить путь к нему и его имя Debug.Print Documents(1).Path & "\" & Documents(1).Name End If End With
End Sub
Листинг 1.11.
Закрыть окно
Содержание раздела