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.

2

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

покажи еще кого-то,кому приелись!

http://whatsappbot.flyland.ru/

3

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

I can create guide for you. It is possible to share?.

What kind of problems can you solve for us?

I ma from Finland.

[url=https://www.atlasobscura.com/users/wjba]manual guide[/url]

4

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

i am orilofeskix
and need to help. What can i change theme?

[url=https://www.atlasobscura.com/users/wjba]manual guide[/url]