Основы офисного программирования и язык VBA


Пример 8.2


Public Function AppPath(Disk As String, Dir As String, FileName As String) As String

'Эта Функция возвращает в качестве результата полный путь активного документа

'Ее параметры содержат компоненты этого пути - имя диска, каталог на диске и имя файла

Dim MyDoc As Document

Dim Path As String

Dim Start As Byte, Finish As Byte

'Определяем полный путь к файлу, задающему активный документ Word

Set MyDoc = ActiveDocument

Path = MyDoc.FullName

'Выделяем имя диска - первый символ полного пути

Disk = VBA.Left(Path, 1)

'Выделяем каталог, в котором хранится документ

Start = VBA.InStr(1, Path, "\")

Finish = VBA.InStrRev(Path, "\")

Dir = VBA.Mid(Path, Start + 1, Finish - Start)

'Выделяем имя файла

FileName = VBA.Mid(Path, Finish + 1)

'Возвращается результат - полный путь к каталогу

AppPath = VBA.Left(Path, Finish)

End Function

Public Sub MyPath()

Dim Path As String

Dim Dir As String

Dim Disk As String

Dim FileName As String

Path = AppPath(Disk, Dir, FileName)

Debug.Print Disk, Dir, FileName, Path

End Sub




Начало  Назад  Вперед