Please Note: This article is written for users of the following Microsoft Word versions: 97, 2000, 2002, and 2003. If you are using a later version (Word 2007 or later), this tip may not work for you. For a version of this tip written specifically for later versions of Word, click here: Sharing Headings with Others.
by Allen Wyatt
(last updated July 21, 2018)
There may be times when you have developed a document, and you want to share an outline—your headings—with other people. Fortunately, Word allows you to do this rather easily. The easiest way, of course, is to simply print the outline. You do this by following these steps:
You should note that when you are viewing an outline, how you print is very critical. If you choose Print Preview, Word does not display only the headings in your document, meaning that you don't see what will really print. Further, if you choose Print from Print Preview, more than just your headings will print. This may lead some readers to believe that you can't print just your outline. This is simply misleading; if you follow the instructions above, you can print your outline just fine. This outline can then be shared with others, as desired.
But what if you want to share a document (not a printout) that consists of just the outline? Things get a bit more sticky here. The idea is that you must find a way to remove everything except the headings. The obvious way to do this is through the use of either a table of contents, or the use of RD fields. (Both of these techniques have been covered in other issues of WordTips.)
If you need to share just the headings quite a bit, a simpler solution may be to write a macro that strips everything out of the document except the headers. The following VBA macro will do the trick quite nicely:
Sub ReduceToHeadings() Dim docActive As Document Dim objPara As Paragraph Dim objShape As Shape ' set fixed ref to the working document Set docActive = ActiveDocument ' loop and remove any non-"Heading" paragraphs For Each objPara In docActive.Content.Paragraphs If LCase(Left(objPara.Style, 7)) <> "heading" Then objPara.Range.Delete End If Next objPara End Sub
What this macro does is simply loop to remove paragraphs in the main body of the document if the paragraph does not use a heading style. It assumes, of course, that the heading styles have not been renamed. When it is done running, only the headings remain. You should make sure you use the Save As command right away to end up with a document that you can share with others. Do not use the Save command, otherwise you will overwrite your original document (definitely a bad thing).
WordTips is your source for cost-effective Microsoft Word training. (Microsoft Word is the most popular word processing software in the world.) This tip (1780) applies to Microsoft Word 97, 2000, 2002, and 2003. You can find a version of this tip for the ribbon interface of Word (Word 2007 and later) here: Sharing Headings with Others.
Learning Made Easy! Quickly teach yourself how to format, publish, and share your content using Word 2013. With Step by Step, you set the pace, building and practicing the skills you need, just when you need them! Check out Microsoft Word 2013 Step by Step today!
A little trick to get rid of pagination marks when you have background pagination turned off.Discover More
Need to keep notes about a document, but you don't want others to see those notes either on-screen or on-paper? Here's an ...Discover More
Ever wonder why you can't undo just a single edit you made a few minutes earlier? The short answer is that it could make ...Discover More
FREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."
Got a version of Word that uses the menu interface (Word 97, Word 2000, Word 2002, or Word 2003)? This site is for you! If you use a later version of Word, visit our WordTips site focusing on the ribbon interface.