Стандартные возможности Word для слияния позволяют выполнять слияние непосредственно с принтером или с новым документом. В зависимости от вашей версии Word и установки вы также можете объединить серию сообщений электронной почты. (Каждая запись в источнике данных создаст отдельное сообщение электронной почты.)

Однако могут быть случаи, когда вам нужно создать отдельный документ для каждой записи источника данных. К сожалению, Word не позволяет это сделать. К счастью, вы можете создать макрос, который позаботится об этой задаче за вас. Ниже приведен макрос, который будет «разрывать» документ, созданный функцией слияния почты. Каждый раздел документа (для каждой записи источника данных есть один раздел) извлекается и сохраняется в собственном файле документа.

Sub Splitter()

Dim numlets As Integer     Dim Counter As Integer     Dim BaseName As String     Dim DocName As String

Selection.EndKey Unit:=wdStory     numlets = Selection.Information(wdActiveEndSectionNumber)

If numlets > 1 Then numlets = numlets - 1     Selection.HomeKey Unit:=wdStory     BaseName = "c:\Let"

For Counter = 1 To numlets         DocName = BaseName & Right("000" & LTrim(Str(Counter)), 3)

ActiveDocument.Sections.First.Range.Cut         Documents.Add         Selection.Paste         Selection.MoveLeft Unit:=wdCharacter, Count:=1         Selection.Delete Unit:=wdCharacter, Count:=1         ActiveDocument.SaveAs FileName:=DocName         ActiveWindow.Close     Next Counter End Sub

Когда макрос запускается, он создает серию файлов с именами от Ltr001 до Ltrxxx, где xxx — количество разделов в исходном документе.

Фактически, макрос создает на один Ltr-файл меньше, чем количество разделов в документе. Последний раздел документа остается в исходном файле (том, который вы обрабатываете). Если вы хотите изменить имя файла или место сохранения файлов, измените настройку переменной BaseName в макросе.

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

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

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

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

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

link: / wordribbon-Creating_Files_with_Mail_Merge [Создание файлов с помощью слияния писем].