Статьи из блога

Статьи из блога

Имя файла на автомате

Рубрика: Макросы
Метки: | | |
Пятница, 28 июля 2006 г.
Просмотров: 6059
Подписаться на комментарии по RSS
Версия для печати

[Ссылки на статью]

Недавно на сайте wordtips.vitalnews.com я прочитал об интересном макросе, который позволяет автоматически (без вызова команды Сохранить как (Save as) из меню) сохранять ваш документ с именем, уже включающим в себя текущую дату и словом/буквой, которое вы можете определить по своему усмотрению.

Это может понадобиться, когда вы создаете однотипные документы под одним и тем же именем, отличающиеся друг от друга лишь датой создания.

 

Итак, загрузите редактор Word и выберите из меню Сервис (Tools) команду Макрос (Macro). Из открывшегося подменю выберите Редактор Visual Basic (Visual Basic Editor) или нажмите сочетание "горячих клавиш" Alt + F11.

 

Перед вами откроется окно редактор Visual Basic с пустым правым окном (это окно именуется окном кода).

 

Вставьте в это окно следующий код:

Public Sub FileSaveAs()
    Dim MyDocTitle As String
    MyDocTitle = Format(Date, "yymmdd") + " letter" '
    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "^pDear "
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    If Selection.Find.Found Then
        Selection.MoveRight Unit:=wdCharacter, Count:=1
        Selection.EndKey Unit:=wdLine, Extend:=wdExtend
        Selection.MoveLeft Unit:=wdCharacter, Count:=2, Extend:=wdExtend
        If Len(Selection.Text) > 1 Then
            MyDocTitle = MyDocTitle + " to " + Selection.Text
        End If
    End If  
    With Dialogs(wdDialogFileSummaryInfo)
        .Title = MyDocTitle
        .Execute
    End With    
    Dialogs(wdDialogFileSaveAs).Show
    End Sub

Вместо letter вы можете написать свое название, более подходящее по смыслу к вашему документу, например Отчет.

 

Теперь осталось разместить на панели инструментов кнопку этого макроса (подробнее о том, как разместить кнопку макроса на панели инструментов, я писал в пункте 8 заметки Как расположить два открытых документа Word рядом: полезная макрокоманда).

 

После создания вами нового документа, нажмите эту кнопку и выберите папку для сохранения файла или воспользуйтесь предлагаемой папкой Мои документы по умолчанию. А имя файла уже будет задано автоматически.

Этот макрос работает только в том случае, если вы создали и сохраняете таким образом новый документ. Если же вы работаете с ранее созданным документом, имеющим другое наименование (скажем, document.doc), то в этом случае при нажатии кнопки макроса будет использоваться старое имя документа, а не предлагаемое макросом.
twitter.com facebook.com vkontakte.ru odnoklassniki.ru mail.ru ya.ru rutvit.ru myspace.com technorati.com digg.com friendfeed.com pikabu.ru blogger.com liveinternet.ru livejournal.ru memori.ru google.com bobrdobr.ru mister-wong.ru yahoo.com yandex.ru del.icio.us

Еще записи по вопросам использования Microsoft Word:

Комментариев: 1

  1. Petr
    05.10.2009 в 18:19 | #1

    А сделать, чтобы добавлялся еще и текст закладки? Чтобы получилось примерно так: текст закладки_дата_произвольный текст

Оставьте комментарий!

(обязательно)

^ Наверх