Written by Allen Wyatt (last updated May 31, 2024)
This tip applies to Word 2007, 2010, 2013, 2016, 2019, and 2021
Deena has a document that is formatted to use three columns. She would like a way to display and print, automatically, a column number at the top of each column. Thus, the columns on page 1 would be numbered 1 through 3, those on page 2 would be 4 through 6, etc.
There is no way to do this automatically, but a workaround is to create a macro that will print the document with column numbers in the page header. All you need to do is make sure that the header has tab stops set to match where you want the column numbers to appear.
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
The macro actually prints out each page of the document individually. It assumes there is only a single section in the document. The number of columns for that single section is determined, and then this count is used in putting together the header for each page. The header consists of the column numbers separated by tabs. The header is constructed for each page, and then each page is printed.
Note:
WordTips is your source for cost-effective Microsoft Word training. (Microsoft Word is the most popular word processing software in the world.) This tip (12826) applies to Microsoft Word 2007, 2010, 2013, 2016, 2019, and 2021.
Do More in Less Time! Are you ready to harness the full power of Word 2013 to create professional documents? In this comprehensive guide you'll learn the skills and techniques for efficiently building the documents you need for your professional and your personal life. Check out Word 2013 In Depth today!
Need to have multiple columns in a page layout that normally consists of a single column? You can change the column ...
Discover MoreYou can use the Columns tool, available on the Page Layout or Layout tab (depending on which version of Word you are ...
Discover MoreBalancing the length of each column in a multi-column page layout can be a challenge. Here's a quick way to get Word to ...
Discover MoreFREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."
There are currently no comments for this tip. (Be the first to leave your comment—just use the simple form above!)
Got a version of Word that uses the ribbon interface (Word 2007 or later)? This site is for you! If you use an earlier version of Word, visit our WordTips site focusing on the menu interface.
Visit the WordTips channel on YouTube
FREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."
Copyright © 2025 Sharon Parq Associates, Inc.
Comments