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

Процесс выполнения такой задачи довольно прост: откройте текстовый файл, выберите имя, поместите его в заголовок и затем распечатайте документ. Захватывается другое имя, и процесс повторяется до тех пор, пока в файле не кончатся имена. Следующий макрос реализует такой процесс:

Sub PutNamesInHeader()

Dim sName As String

Open "c:/names.txt" For Input As #5     Do While Not EOF(5)

' get the name         Line Input #5, sName

ActiveWindow.ActivePane.View.SeekView = _           wdSeekCurrentPageHeader         Selection.WholeStory         Selection.Delete         Selection.TypeText Text:=sName

ActiveWindow.ActivePane.View.SeekView = _           wdSeekMainDocument         ActiveDocument.PrintOut     Loop

Close #5

ActiveWindow.ActivePane.View.SeekView = _       wdSeekCurrentPageHeader     Selection.WholeStory     Selection.Delete     ActiveWindow.ActivePane.View.SeekView = _       wdSeekMainDocument End Sub

Сложная часть макроса заключается в использовании свойства .SeekView, чтобы указать, с какой историей в документе вы хотите работать. Как здесь реализовано, свойство .SeekView многократно используется для переключения между областью заголовка и основным документом. После цикла (захват имен и печать)

завершается, область заголовка очищается и .SeekView возвращается к основному документу.

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

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

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

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

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (4366) применим к Microsoft Word 2007, 2010, 2013 и 2016. Вы можете найти версию этого совета для старого интерфейса меню Word здесь:

link: / word-Printing_Personalized_Copies_of_a_Document [Печать персонализированных копий документа].