WD: Macro to Create Table of Contents Entry Automatically

ID: Q70996


The information in this article applies to:
  • Microsoft Word for Windows, versions 1.0, 1.1, 1.1a, 2.0, 2.0a, 2.0a-CD, 2.0b, 2.0c, 6.0, 6.0a, 6.0c
  • Microsoft Word for Windows 95, versions 7.0, 7.0a


SUMMARY

The following macro examples allow you to designate selected text as a table of contents entry without removing the text from the body of the document. You do not have to type the table of contents entry twice.


MORE INFORMATION

WARNING: ANY USE BY YOU OF THE CODE PROVIDED IN THIS ARTICLE IS AT YOUR OWN RISK. Microsoft provides this macro code "as is" without warranty of any kind, either express or implied, including but not limited to the implied warranties of merchantability and/or fitness for a particular purpose.

You can assign the following macro to a menu, toolbar, or a key sequence to quickly designate text to be included in a table of contents:


   Sub MAIN
      a$ = Selection$()
      CharRight 1
      InsertFieldChars
      Insert "tc " + Chr$(34) + a$ + Chr$(34)
      CharRight 1
   End Sub 
When you have designated all of the table of contents entries with this macro, choose Table Of Contents from the Insert menu and select Use Table Entry Fields.

Table of Contents entries or TC fields are automatically formatted as hidden text. To edit these entries, you must select either Show All or Hidden Text. In Word versions 6.x and 7.x, choose Options from the Tools menu, then choose Field Codes from the View tab. Click the Hidden Text check box to select it. In Word version 2.0 for Windows, choose Options from the Tools menu. Select the View category and mark the Hiddent Text check box. In Word version 1.0 for Windows, choose Preferences from the View menu and mark the Show All check box.

Additional query words: 1.x 2.0 word6 7.0 word95 winword winword2

Keywords : kbmacro kbmacroexample kbfield
Version : WINDOWS:1.0,1.1,1.1a,2.0,2.0a,2.0a-CD,2.0b,2.0c,6.0,6.0a,6.0c,7.0,7.0a
Platform : WINDOWS
Issue type : kbhowto


Last Reviewed: October 18, 1999
© 2000 Microsoft Corporation. All rights reserved. Terms of Use.