Archive for May 26th, 2006

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

Link: http://support.microsoft.com/default.aspx