Auto Text/Auto Correct

P

PJY

In Word 2003, is there a way to print out all entries in auto text and/or
auto correct?
 
G

Greg Maxey

While scorned by some in this forum, you can always use a macro. This one
provides a basic list of both:

Sub AutoTextAndAutoCorrectNailsMeetTheHammer()
Dim oAT As AutoTextEntry
Dim oAC As AutoCorrectEntry
ActiveDocument.Range.InsertAfter "List of AutoText Entries" & vbCr + vbCr
For Each oAT In ActiveDocument.AttachedTemplate.AutoTextEntries
ActiveDocument.Range.InsertAfter oAT.Name + vbTab + oAT.Value & vbCr
Next oAT
ActiveDocument.Range.InsertAfter "List of AutoCorrect Entries" & vbCr + vbCr
For Each oAC In AutoCorrect.Entries
ActiveDocument.Range.InsertAfter oAC.Name + vbTab + oAC.Value & vbCr
Next oAC
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top