1

Тема: Макрос для вставки имени файла в название документа

подскажите пожалуйста, нужен макрос для Word 2007, который бы имя файла вставлял бы в название документа

Спасибо

2

Re: Макрос для вставки имени файла в название документа

Зачем макрос? Можно обычным стандартным полем это реализовать. Читайте заметку: Как вставить в колонтинтул путь и имя файла.

3

Re: Макрос для вставки имени файла в название документа

admin пишет:

Зачем макрос? Можно обычным стандартным полем это реализовать. Читайте заметку: Как вставить в колонтинтул путь и имя файла.

мне надо вставить имя файла в название документа которое в свойствах, а не в колонтитулах

вроде разобрался, может кому пригодится

1) имя файла без расширения берем отсюда:

"имя файла" = Left(ActiveDocument.Name, Len(ActiveDocument.Name) - 5)

2) присваиваем его названию документа в свойствах документа:

ActiveDocument.BuiltInDocumentProperties(wdPropertyTitle) = "имя файла"

ps

возможно я не внятно задал вопрос

4

Re: Макрос для вставки имени файла в название документа

возможно я не внятно задал вопрос

Возможно, я неправильно понял  hmm
Я решал подобную задачу когда-то и даже здесь на форуме публиковал где-то.

5

Re: Макрос для вставки имени файла в название документа

Не забывайте, писать "$"
Имя_файла = Left$(ActiveDocument.Name, Len(ActiveDocument.Name) - 5)
1.Что-то не пойму, а почему отнимаем 5 знаков??? вроде же надо 4 знака - ".doc"
2.А что другим способом нельзя узнать имя файла бе з расширения, кроме как отнимать знаки????

6

Re: Макрос для вставки имени файла в название документа

Что я переспрашиваю
Имя_файла = Left$(ActiveDocument.Name, Len(ActiveDocument.Name) - 4) '4 а не 5 !!!!!!!!!!!!!

7

Re: Макрос для вставки имени файла в название документа

Ципихович Эндрю пишет:

'4 а не 5 !!!!!!!!!!!!!

ну если расширение .docx то 5  smile

8

Re: Макрос для вставки имени файла в название документа

Ципихович Эндрю пишет:

2.А что другим способом нельзя узнать имя файла бе з расширения, кроме как отнимать знаки????

наверно можно, я не большой специалист если задаю такие вопросы  smile

Отредактировано Андрей61 (28.11.2010 10:50:10)

9

Re: Макрос для вставки имени файла в название документа

если такие дела:
ну если расширение .docx то 5
То вопрос
А что другим способом нельзя узнать имя файла без расширения, кроме как отнимать знаки
Актуален ????

10

Re: Макрос для вставки имени файла в название документа

Вопрос снят:

Полное_имя_файла_с_расширением_и_местом_его_нахождения = ActiveDocument.FullName
Имя_файла_с_расширением = ActiveDocument.Name
Имя_файла_без_расширения = CreateObject("Scripting.FileSystemObject").GetBaseName(ActiveDocument.Name)
Set FSO = CreateObject("Scripting.FileSystemObject")
Расширение_файла = FSO.GetExtensionName(ActiveDocument)
'установка объекта с именем ... в значение Nothing требуется для освобождения памяти, которая была выделена для создания этого объекта
Set FSO = Nothing

11

Re: Макрос для вставки имени файла в название документа

из предыдущего поста 4 нижние строки удаляем и получаем, краткость сестра ...

Полное_имя_файла_с_расширением_и_местом_его_нахождения = ActiveDocument.FullName
Имя_файла_с_расширением = ActiveDocument.Name
Имя_файла_без_расширения = CreateObject("Scripting.FileSystemObject").GetBaseName(ActiveDocument.Name)
Расширение_файла = CreateObject("Scripting.FileSystemObject").GetExtensionName(ActiveDocument)