Auto Text/Auto Correct

  • Thread starter Thread starter PJY
  • Start date Start date
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

Similar Threads

How to print auto text entries I created? 2
Auto fill not working 2
The next Grand Theft Auto title has been officially announced 0
Auto Text and Auto Correct 1
Auto Correct / Text 2
Auto text entries are gone 3
AUTO CORRECT 2
Auto Text or Auto Correct Entries 5

Back
Top