Microsoft KB Archive/91077

{|
 * width="100%"|

WordBasic Macros to Write AutoText Entries to Text File

 * }

Q91077

-

The information in this article applies to:


 * Microsoft Word for Windows, version 6.0

-

SUMMARY
Microsoft Word for Windows does not include an option to write the contents of your Autotext entries to a text file. This article contains two macros that you can use to export your Autotext entries to a text file named either GLOBAL.TXT (for global Autotext entries) or TEMPLATE.TXT (for template Autotext entries).

Note: To generate a printed list of your AutoText entries instead of a text file, choose Print from the File command, select AutoText Entries in the Print What box, and choose the OK button.

MORE INFORMATION
Note: Microsoft provides this macro code &quot;as is&quot; without warranty of any kind, either expressed or implied, including but not limited to the implied warranties of merchantability and/or fitness for a particular purpose.

Global Autotext Entries
Use the following macro to write the global AutoText entries (entries from NORMAL.DOT and any global templates) to a text file named GLOBAL.TXT, stored in the current directory:

Sub MAIN Open &quot;GLOBAL.TXT&quot; For Output As #1 For count = 1 To CountAutoTextEntries a$ = AutoTextName$(count) Print #1, &quot;Autotext Name: &quot;, a$ Print #1, GetAutoText$(a$) Print #1, &quot;&quot; Next count Close #1 End Sub

Template Autotext Entries
Use the following macro to write the Autotext entries from the current template to a text file named TEMPLATE.TXT, stored in the current directory:

Sub MAIN Open &quot;TEMPLATE.TXT&quot; For Output As #1 For count = 1 To CountAutoTextEntries(1) a$ = AutoTextName$(count, 1) Print #1, &quot;Autotext Name: &quot;, a$ Print #1, GetAutoText$(a$, 1) Print #1, &quot;&quot; Next count Close #1 End Sub The CountAutoTextEntries function determines the number of Autotext entries for the specified context (global is the default context). The AutoTextName$ function returns the Autotext name, which the GetAutoText$ function uses to retrieve the contents of the Autotext entry.

Insert Autotext Entries into Document
Use the following macro to insert all global AutoText entries into a new document window.

Sub MAIN FileNewDefault For count = 1 To CountAutoTextEntries a$ = AutoTextName$(count) Bold 1 : Insert a$ InsertPara Bold 0 : EditAutoText .Name = a$, .Insert InsertPara : InsertPara Next End Sub