Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Сообщений [ 1 ]
- Alex_Gur
- Модератор
- Неактивен
- Откуда: Москва
- Зарегистрирован: 28.07.2011
- Сообщений: 2,758
- Поблагодарили: 492
Тема: Получение имени текущего файла без расширения
Получение имени текущего файла без расширения
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.
Сообщений [ 1 ]
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Получение имени текущего файла без расширения
Если вы давно работаете с приложением Microsoft Word, то наверняка сталкивались с тем, что многие его вкладки и функции вами не используются и не совсем понятно, как они работают и для чего предназначены. На портале о Microsoft Office Word вы узнаете про: показать измененный документ ворд.
Познакомить вас со всеми секретами программы могут на форуме сайта Ворд Эксперт, который и посвящен обсуждению именно тонких настроек и функций. На портале о Microsoft Office Word вы узнаете про: запись макросов в word 2010.
Здесь есть возможность разобраться с шаблонами Ворда, написанием макросов, назначением горячих клавиш, различными способами ускорения и автоматизации операций редактирования и форматирования. На портале о Microsoft Office Word вы узнаете про: гденаходяться указатели в ворде зщувер поинт 2007 год на гиперсылку?.
На Ворд Эксперт вам предложат также готовые решения многих задач или оставить свою заявку на разработку. Наш сайт о Microsoft Office Word даст ответ про: kak dobavit doc v html.
