Please Note: This article is written for users of the following Microsoft Word versions: 2007, 2010, and 2013. If you are using an earlier version (Word 2003 or earlier), this tip may not work for you. For a version of this tip written specifically for earlier versions of Word, click here: Sharing Headings with Others.
by Allen Wyatt
(last updated October 31, 2019)
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 (9774) applies to Microsoft Word 2007, 2010, and 2013. You can find a version of this tip for the older menu interface of Word here: Sharing Headings with Others.
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!
Word provides a few ways you can adjust pagination to accommodate where you want your headings to appear. If you want ...Discover More
When settling on an overall design for your document, you need to decide how you want your headings to appear. If you ...Discover More
If your heading styles are designed to add extra space before the heading, you may be surprised when that extra space is ...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 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.