Nếu bạn làm việc với các tài liệu bạn nhận được từ người khác, một trong những tác vụ bạn có thể cần làm thường xuyên là xóa tất cả đầu trang và chân trang trong tài liệu. Một cách để làm điều này là chỉ cần chọn các đầu trang và chân trang khác nhau và xóa chúng, nhưng nếu tài liệu chứa nhiều phần, làm như vậy có thể rất tốn thời gian. (Đặc biệt nếu bạn cho rằng mỗi phần có thể có tối đa ba đầu trang và chân trang khác nhau.)

Các tác vụ lặp đi lặp lại, tốn thời gian luôn là ứng cử viên hàng đầu cho macro; điều này không phải là ngoại lệ. Macro sau sẽ nén qua từng phần của tài liệu, xóa tất cả các đầu trang và chân trang đã được xác định.

Sub RemoveHeadAndFoot()

Dim oSec As Section     Dim oHead As HeaderFooter     Dim oFoot As HeaderFooter

For Each oSec In ActiveDocument.Sections         For Each oHead In oSec.Headers             If oHead.Exists Then oHead.Range.Delete         Next oHead

For Each oFoot In oSec.Footers             If oFoot.Exists Then oFoot.Range.Delete         Next oFoot     Next oSec End Sub

Macro này rất mạnh mẽ — nó không hỏi bạn có muốn tiếp tục hay không, cũng không xem xét những gì có thể được đưa vào đầu trang và chân trang. Nó chỉ đơn giản là xóa tất cả, không để lại tài liệu của bạn. Nếu bạn thường xuyên xử lý khá nhiều tài liệu, bạn có thể dễ dàng gán macro cho nút trên thanh công cụ, mục menu hoặc phím tắt.

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