Có những lúc Larry thực sự cần tạo bốn hoặc nhiều tài liệu trống mới. Anh ấy tự hỏi liệu có cách nào để tạo bốn tài liệu trống mới (sẽ rất tuyệt nếu bạn nhập bao nhiêu tài liệu trống cần thiết) cùng một lúc.

Có một số cách bạn có thể tiếp cận vấn đề này. Nếu tất cả những gì bạn muốn làm là tạo bốn tài liệu mới, tất cả đều dựa trên mẫu Thường, thì cách dễ nhất là chỉ cần nhấn Ctrl + N bốn lần. (Trên thực tế, bạn có thể giữ phím Ctrl và nhấn N bốn lần.) Kết quả là bốn tài liệu trống, sẵn sàng để sử dụng.

Nếu tài liệu của bạn cần dựa trên một mẫu khác với mẫu Thường, thì tốt nhất bạn nên sử dụng macro. Macro sau sẽ nhắc người dùng về số lượng tài liệu sẽ được tạo, rồi tạo chúng dựa trên mẫu BusinessReport.

Sub NewDocuments()

Dim Answer As Variant     Dim iNewDocs As Integer     Dim J As Integer

Answer = InputBox("How many new documents?")

iNewDocs = CInt(Answer)

For J = 1 to iNewDocs         Documents.Add Template:="BusinessReport", NewTemplate:=False, _           DocumentType:=wdNewBlankDocument     Next J End Sub

Macro có thể được gán cho một phím tắt hoặc cho một nút trên thanh công cụ, sẵn sàng để tạo tài liệu của bạn. Bạn cũng có thể thực hiện một cách tiếp cận hơi khác với cùng một đoạn mã. Tạo tài liệu mới dựa trên mẫu mong muốn (chẳng hạn như mẫu BusinessReport), sau đó thêm macro này vào mẫu:

Sub AutoOpen()

Dim Answer As Variant     Dim iNewDocs As Integer     Dim J As Integer

Answer = InputBox("How many more docs?", "Doc Count")

iNewDocs = CInt(Answer)

For J = 1 To iNewDocs         Documents.Add Template:="BusinessReport", NewTemplate:=False, _           DocumentType:=wdNewBlankDocument     Next End Sub

Lưu tài liệu dưới tên chẳng hạn như “MultipleDocs.doc.” Cơ sở của macro cũng giống như phần trước. Sự khác biệt là tên được đặt cho macro. Vì nó sử dụng tên AutoOpen đặc biệt, nên bất cứ khi nào tài liệu MultipleDocs được mở sau đó, macro sẽ tự động chạy và người dùng được hỏi có bao nhiêu tài liệu bổ sung để tạo.

_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 (11236) á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: