1.

Solve : Need macro?

Answer»

I would like a MACRO that will allow me to PRINT all autotext entries into a Word document. I have a macro that will do that for the Normal template, but I have several other templates that it will not work with, even with renaming "NormalTemplate" to the other template's name. Below is what I have to print autotext entries into a Word document for the Normal template. How do I edit this macro to work for other templates?

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



Discussion

No Comment Found