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

_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 (10221) áp dụng cho Microsoft Word 2007, 2010, 2013 và 2016. Bạn có thể tìm phiên bản của mẹo này cho giao diện menu cũ hơn của Word tại đây: