Одно из свойств, которое 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

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

Макрос может быть привязан к ссылке: / wordribbon-Adding_Tools_to_the_Quick_Access_Toolbar [Панель быстрого доступа] или сочетанию клавиш, чтобы вы могли сохранять свои документы и автоматически присваивать им имена.

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

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

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

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

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (10358) применим к Microsoft Word 2007, 2010, 2013 и 2016. Вы можете найти версию этого совета для старого интерфейса меню Word здесь: link: / word-An_Automatic_File_Name [Автоматическое имя файла].