Exporting Microsoft Word Auto Text Entries Friday, May 26th, 2006

This is always a problem for users when they move from one computer to another.
I found some Visual Basic for Applications Code to export the data into a word document.
This is only half a solution, you still have to copy and paste them in on your new machine.
Anyway the Code is
Sub InsertAllAutoText()
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





Office2007 User Interface


