1

Тема: Получение имени текущего файла без расширения

Получение имени текущего файла без расширения

Sub FileName()
    Dim Name1 As String  'Имя файла
    Dim String1 As String  'Имя файла без расширения
    Dim x As Integer  'Номер знака последнего вхождения точки в строку
    Name1 = ActiveDocument.Name
    x = InStrRev(Name1, ".") 'Ищет номер знака последнего вхождения точки в строку
    String1 = Left(Name1, x - 1)  'Отсекает расширение
    MsgBox String1
End Sub
Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.