Mahmud yêu cầu một cách để in các bản sao được cá nhân hóa của một tài liệu. Anh ấy bắt đầu với một danh sách các tên trong một tệp văn bản thông thường, mỗi tên trên một dòng và anh ấy muốn in một bản sao của tài liệu Word hiện tại cho mỗi tên đó. Hơn nữa, anh ta muốn tên của người đó được đặt trong tiêu đề của tài liệu.

Quá trình thực hiện một tác vụ như vậy khá đơn giản: mở tệp văn bản, lấy tên, đặt tên đó vào tiêu đề, sau đó in tài liệu. Một tên khác được lấy và quá trình này được lặp lại cho đến khi không còn tên nào nữa trong tệp. Macro sau thực hiện một quá trình như vậy:

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

Phần phức tạp của macro là sử dụng thuộc tính .SeekView để chỉ định câu chuyện nào trong tài liệu bạn muốn làm việc. Như được triển khai ở đây, thuộc tính .SeekView được sử dụng nhiều lần để chuyển đổi giữa vùng tiêu đề và tài liệu chính. Sau vòng lặp (lấy tên và in)

được hoàn thành, vùng tiêu đề bị xóa và .SeekView được chuyển trở lại tài liệu chính.

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên các trang WordTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

WordTips là nguồn của bạn để đào tạo Microsoft Word hiệu quả về chi phí.

(Microsoft Word là phần mềm xử lý văn bản phổ biến nhất trên thế giới.) Mẹo này (152) áp dụng cho Microsoft Word 97, 2000, 2002 và 2003. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện ribbon của Word (Word 2007 và sau này) tại đây: