WD: Sample WordBasic Macro to Type All AutoText Entries

ID: Q138966

The information in this article applies to:

Microsoft Word for the Macintosh, versions 6.0, 6.0.1
Microsoft Word for Windows, versions 6.0, 6.0a, and 6.0c
Microsoft Word for Windows NT, version 6.0
Microsoft Word for Windows 95, version 7.0

SUMMARY

The following macro inserts all the AutoText entries in Normal.dot into a new document. The new document includes the name of each entry and separates the entries with horizontal lines.

Note that you can quickly print a list of all AutoText entries by clicking Print on the File menu, and choosing AutoText Entries in the Print What box. (On Word for the Macintosh, the box is named Print.) It is not necessary to use a macro for this method.

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.

   Sub MAIN
      FileNewDefault
      n = CountAutoTextEntries()
      For count = 1 To n
         FormatBordersAndShading .TopBorder = 1
         Bold 1
         Insert AutoTextName$(count) + ":" + String$(2, 13)
         FormatBordersAndShading .TopBorder = 0
         Bold 0
         EditAutoText .Name = AutoTextName$(count), .Insert
         Insert Chr$(13) + Chr$(13)
      Next
      StartOfDocument
   End Sub

Additional query words: entries

Keywords          : kbdta kbmacroexample kbautotext winword macword word6 word7 word95 
Version           : MACINTOSH:6.0,6.0.1; WINDOWS:6.0,6.0a,6.0c,7.0; winnt:6.0
Platform          : MACINTOSH WINDOWS winnt
Issue type        : kbinfo

Last Reviewed: March 12, 1999