printing autocorrect entries

  • Thread starter Thread starter feagin
  • Start date Start date
F

feagin

Is there a way to print a list of autocorrect entries in
Word 2002? I see the way to print autotext, but not
autocorrect? thanks
 
feagin,

Try this macro posted earlier by Peter Hewett:

Public Sub DumpAllAutoCorrect()
Dim aceTemp As Word.AutoCorrectEntry
Dim rngTemp As Word.Range

If Documents.Count = 0 Then
Documents.Add
End If

' Clear out the existing document
Set rngTemp = ActiveDocument.Content
rngTemp.Delete

' Add header info
rngTemp.Text = "Autocorrect entries as at: " & _
Format$(Now, "dd mmm yyyy") & vbCr
rngTemp.Collapse wdCollapseEnd

' List all autocorrect entries
For Each aceTemp In AutoCorrect.Entries
rngTemp.InsertAfter aceTemp.Name
rngTemp.Font.Color = wdColorRed
rngTemp.InsertAfter vbCr
rngTemp.ParagraphFormat.SpaceBefore = 12
rngTemp.Collapse wdCollapseEnd
rngTemp.InsertAfter aceTemp.Value & vbCr
rngTemp.Collapse wdCollapseEnd
Next
End Sub
 
Back
Top