Мона написать типа такого:
Private Sub Application_Startup()
Selection.TypeText Text:="Привет всем!"
Selection.TypeParagraph
Selection.TypeText Text:="Как всегда спршиваю Вас ""как себя ведете...."
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeText Text:="С уважением, delphi7 "
ActiveDocument.Background.Fill.ForeColor.RGB = RGB(0, 255, 0)
ActiveDocument.Background.Fill.Visible = msoTrue
ActiveDocument.Background.Fill.Solid
End Sub

в шаблон и запускать макрос вручную или вывести на кнопку или на открытие...
Stepler ^{(щёлк-щёлк!!)}