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
 
Back
Top