Основные операции над строками - часть 3

'Определяем полный путь к файлу, задающему активный документ 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.

Вот результаты отладочной печати после запуска процедуры MyPath:

E O2000\VBA2000\Ch8\ Ch8.doc E:\O2000\VBA2000\Ch8\

Обратите внимание, в функции AppPath мы использовали новую функцию InStrRev, что облегчило решение нашей задачи. К описанию вновь введенных функций мы и переходим.