Các trang trống tự động ở cuối phần (Microsoft Word)
Word cho phép bạn thêm một số kiểu ngắt phần vào tài liệu của mình. Hai trong số các kiểu ngắt phần dẫn đến việc thêm các trang trống vào tài liệu, nếu cần. Ví dụ: nếu bạn sử dụng ngắt phần Trang Lẻ và phần trước đó kết thúc trên một trang lẻ, thì Word sẽ tự động chèn một trang chẵn trống để phần tiếp theo có thể bắt đầu trên trang lẻ tiếp theo.
Vấn đề với điều này là Word chèn một trang hoàn toàn trống – nó thậm chí không in đầu trang hoặc chân trang trên trang. Nếu bạn thích đầu trang và chân trang hoặc một số thông tin khác trên trang (chẳng hạn như “Trang này cố ý để trống”), thì bạn không thể chỉ dựa vào ngắt phần của Word.
Một cách tiếp cận là xem tài liệu theo cách thủ công và nếu cần, hãy thêm văn bản vô hình của riêng bạn sẽ “in” trên trang mà nếu không thì sẽ trống. Bạn tạo văn bản vô hình bằng cách thêm văn bản thông thường và định dạng nó thành màu trắng. Màu trắng trên nền trắng, khi in ra, không nhìn thấy được.
Tuy nhiên, Word không nhận ra điều này và cung cấp đầu trang và chân trang trên trang “trống”.
Một cách tiếp cận thú vị là tạo văn bản tiêu chuẩn cuối phần của riêng bạn. Tạo một mục nhập khối xây dựng chứa văn bản cuối phần của bạn, bao gồm dấu ngắt trang ở đầu mục nhập. Đặt tên cho mục nhập như “BLANKPAGE”. Sau đó, ở cuối mỗi phần, ngay trước khi ngắt phần, hãy thêm trường ghép sau:
{ if { =int( {page} / 2 ) * 2 } = { page } " " { autotext "BLANKPAGE" } }
Hãy nhớ rằng các dấu ngoặc nhọn được hiển thị trong ví dụ này phải là dấu ngoặc nhọn trường. Bạn nhập dấu ngoặc nhọn trường bằng cách nhấn Ctrl + F9 cho mỗi bộ. Trường kiểm tra xem trang hiện tại có đồng đều hay không. Nếu đúng như vậy, trường sẽ tự động chèn khối xây dựng của bạn bằng cách sử dụng trường AUTOTEXT.
Nếu muốn, bạn cũng có thể tạo macro sẽ lướt qua tài liệu, xem từng phần, quyết định có bao nhiêu trang trong phần, sau đó thêm dấu ngắt trang ở cuối phần, nếu cần. Macro sau thực hiện nhiệm vụ này:
Sub CheckSecLen() Dim iSec As Integer Dim oRng As Range Dim iValue As Integer With ActiveDocument ' go through each section (except for the last one) For iSec = 1 To .Sections.Count - 1 ' create a range object at the start of the section Set oRng = .Sections(iSec).Range oRng.Collapse wdCollapseStart ' insert a sectionpages field .Fields.Add Range:=oRng, Type:=wdFieldSectionPages ' divide the sectionpages field by 2 ' if it gives a zero as the remainder, then ' you have an even number of pages in the section, ' which is what you want with an odd section page break If (.Sections(iSec).Range.Fields(1).Result Mod 2) <> 0 Then ' if you have an odd number of pages, then insert ' a page break before the section's section break Set oRng = .Sections(iSec).Range With oRng .Collapse Direction:=wdCollapseEnd .MoveEnd unit:=wdCharacter, Count:=-1 .InsertBreak Type:=wdPageBreak End With End If ' remove the sectionpages field that was added .Sections(iSec).Range.Fields(1).Delete Next iSec End With 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 (12565) áp dụng cho Microsoft Word 2007, 2010, 2013, 2016, 2019 và Word trong Office 365. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện menu cũ hơn của Word tại đây: