Microsoft Word Autocorrect Entries 1

[GP]

I need to extract all the Autocorrect entries to a file. How do i do it? I have found a succesful script for autotext entries:

Sub ExtractAutoText()
'
' ExtractAutoText Macro
' Macro created 1/14/2004 by
'
Dim Entry As AutoTextEntry

Documents.Add

For Each Entry In NormalTemplate.AutoTextEntries

' Turn bold formatting on and insert the AutoText name
Selection.Font.Bold = True
Selection.TypeText Text:=Entry.Name

' Turn bold formatting off and insert AutoText entry
Selection.Font.Bold = False
Selection.TypeParagraph
Entry.Insert Where:=Selection.Range, RichText:=True
Selection.Range.Select
Selection.TypeParagraph

' Insert a blank line between entries
Selection.TypeParagraph
Next

End Sub

 

[TonyJollans]

Hi GP,

Based on your code above ..

Sub Extract

AutoCorrect

()
'
' ExtractAutoText Macro
' Macro created 1/14/2004 by
'
Dim Entry As

AutoCorrect

Entry

Documents.Add

For Each Entry In

AutoCorrect.

Entries

' Turn bold formatting on and insert the

AutoCorrect

 name

   Selection.Font.Bold = True
   Selection.TypeText Text:=Entry.Name

' Turn bold formatting off and insert

AutoCorrect

 entry

   Selection.Font.Bold = False
   Selection.TypeParagraph

Selection.TypeText Text:=Entry.Value

' Entry.Insert Where:=Selection.Range, RichText:=True

' Remove this line

   Selection.Range.Select
   Selection.TypeParagraph

   ' Insert a blank line between entries
   Selection.TypeParagraph
Next

End Sub

Enjoy,
Tony

------------------------------------------------------------------------------------------------------
We want to help you; help us to do it by reading FAQ222-2244 before you ask a question.