Deena có một tài liệu được định dạng để sử dụng ba cột. Cô ấy muốn một cách hiển thị và in tự động số cột ở đầu mỗi cột. Do đó, các cột trên trang 1 sẽ được đánh số từ 1 đến 3, các cột trên trang 2 sẽ là 4 đến 6, v.v.

Không có cách nào để thực hiện việc này một cách tự động, nhưng cách giải quyết là tạo một macro sẽ in tài liệu với số cột trong tiêu đề trang. Tất cả những gì bạn cần làm là đảm bảo rằng tiêu đề đã đặt các điểm dừng tab để khớp với vị trí bạn muốn số cột xuất hiện.

Sub ColumnHeaders()

Dim p As Long     Dim tp As Long     Dim c As Integer     Dim tc As Integer     Dim h As String     Dim ch As String

' Get total pages     tp = ActiveDocument.Content.ComputeStatistics(wdStatisticPages)

' Get number of columns     tc = ActiveDocument.Sections(1).PageSetup.TextColumns.Count     ' Save current header     ch = ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text

For p = 1 To tp         h = ""

For c = 1 To tc             h = h & Trim(Str(p + (c - 1) + (2 * p - 2))) & vbTab         Next c         h = Left(h, Len(h) - 1)

ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text = h         ActiveDocument.PrintOut Range:=wdPrintFromTo, _           From:=Trim(Str(p)), To:=Trim(Str(p))

Next p          If Len(ch) > 1 Then         ' Restore previous header         ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text = ch     Else         ' There is no previous header         ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Delete     End If End Sub

Macro thực sự in ra từng trang của tài liệu riêng lẻ. Nó giả định chỉ có một phần duy nhất trong tài liệu. Số lượng cột cho một phần đó được xác định và sau đó số lượng này được sử dụng để tập hợp tiêu đề cho mỗi trang. Tiêu đề bao gồm các số cột được phân tách bằng các tab. Tiêu đề được tạo cho mỗi trang, và sau đó mỗi trang được in.

_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 (12826) áp dụng cho Microsoft Word 2007, 2010, 2013, 2016, 2019 và Word trong Office 365.