Основы офисного программирования и язык 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

Пример 8.2.

Закрыть окно






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