Тема: Макрос для вставки имени файла в название документа
подскажите пожалуйста, нужен макрос для Word 2007, который бы имя файла вставлял бы в название документа
Спасибо
- admin
- Администратор
- Неактивен
Re: Макрос для вставки имени файла в название документа
Зачем макрос? Можно обычным стандартным полем это реализовать. Читайте заметку: Как вставить в колонтинтул путь и имя файла.
Re: Макрос для вставки имени файла в название документа
admin пишет:
Зачем макрос? Можно обычным стандартным полем это реализовать. Читайте заметку: Как вставить в колонтинтул путь и имя файла.
мне надо вставить имя файла в название документа которое в свойствах, а не в колонтитулах
вроде разобрался, может кому пригодится
1) имя файла без расширения берем отсюда:
"имя файла" = Left(ActiveDocument.Name, Len(ActiveDocument.Name) - 5)
2) присваиваем его названию документа в свойствах документа:
ActiveDocument.BuiltInDocumentProperties(wdPropertyTitle) = "имя файла"
ps
возможно я не внятно задал вопрос
- admin
- Администратор
- Неактивен
Re: Макрос для вставки имени файла в название документа
возможно я не внятно задал вопрос
Возможно, я неправильно понял 
Я решал подобную задачу когда-то и даже здесь на форуме публиковал где-то.
Re: Макрос для вставки имени файла в название документа
Не забывайте, писать "$"
Имя_файла = Left$(ActiveDocument.Name, Len(ActiveDocument.Name) - 5)
1.Что-то не пойму, а почему отнимаем 5 знаков??? вроде же надо 4 знака - ".doc"
2.А что другим способом нельзя узнать имя файла бе з расширения, кроме как отнимать знаки????
Re: Макрос для вставки имени файла в название документа
Что я переспрашиваю
Имя_файла = Left$(ActiveDocument.Name, Len(ActiveDocument.Name) - 4) '4 а не 5 !!!!!!!!!!!!!
Re: Макрос для вставки имени файла в название документа
Ципихович Эндрю пишет:
'4 а не 5 !!!!!!!!!!!!!
ну если расширение .docx то 5 
Re: Макрос для вставки имени файла в название документа
Ципихович Эндрю пишет:
2.А что другим способом нельзя узнать имя файла бе з расширения, кроме как отнимать знаки????
наверно можно, я не большой специалист если задаю такие вопросы
Отредактировано Андрей61 (28.11.2010 10:50:10)
Re: Макрос для вставки имени файла в название документа
если такие дела:
ну если расширение .docx то 5
То вопрос
А что другим способом нельзя узнать имя файла без расширения, кроме как отнимать знаки
Актуален ????
Re: Макрос для вставки имени файла в название документа
Вопрос снят:
Полное_имя_файла_с_расширением_и_местом_его_нахождения = ActiveDocument.FullName
Имя_файла_с_расширением = ActiveDocument.Name
Имя_файла_без_расширения = CreateObject("Scripting.FileSystemObject").GetBaseName(ActiveDocument.Name)
Set FSO = CreateObject("Scripting.FileSystemObject")
Расширение_файла = FSO.GetExtensionName(ActiveDocument)
'установка объекта с именем ... в значение Nothing требуется для освобождения памяти, которая была выделена для создания этого объекта
Set FSO = NothingRe: Макрос для вставки имени файла в название документа
из предыдущего поста 4 нижние строки удаляем и получаем, краткость сестра ...
Полное_имя_файла_с_расширением_и_местом_его_нахождения = ActiveDocument.FullName
Имя_файла_с_расширением = ActiveDocument.Name
Имя_файла_без_расширения = CreateObject("Scripting.FileSystemObject").GetBaseName(ActiveDocument.Name)
Расширение_файла = CreateObject("Scripting.FileSystemObject").GetExtensionName(ActiveDocument)