Одно из свойств, которое Word позволяет сохранять вместе с документом, — это заголовок документа. Если вы регулярно используете это свойство в своих новых документах, вы можете создать для Word способ автоматического присвоения имени вашему документу, просмотрев введенный вами заголовок.

Этот конкретный макрос хорошо подходит для использования с буквами, хотя его можно легко изменить для других типов документов. Макрос называется FileSaveAs, поэтому он заменяет встроенную команду «Сохранить как». Лучше всего сохранить этот макрос в шаблоне, который вы используете для своих писем:

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

Обратите внимание, что этот макрос работает правильно только при первом сохранении нового документа. Если вы используете его с существующим документом (ранее сохраненным под другим именем), исходное имя по-прежнему предлагается по умолчанию в диалоговом окне «Сохранить как», даже если заголовок документа изменен.

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

_Примечание: _

Если вы хотите знать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах WordTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (1693) применим к Microsoft Word 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Word (Word 2007 и позже) здесь:

link: / wordribbon-An_Automatic_File_Name [Автоматическое имя файла].