Change font in MSWord when opening

[JohnVB6]

Hi, I'd like to change the font for a word document (MSWord 2000) when the document is opened. This document will actually be a template (.dot). Here is what I have so far:

Private Sub Document_Open()
  'set font should be mono spaced
  ActiveDocument.Content.Font.Name = "Curier New"
  'write header
  Selection.TypeText Text:="Some initial text"
  Selection.TypeParagraph 'line feed cr
  Selection.TypeParagraph 'line feed cr
End Sub

The problem I'm having is that after the initial text is typed (in the correct font by the way) word seems to revert back to the default font at the insertion point. In other words, when I start typing the document from the keyboard the font used is the default not the font I set up ( in this case Curier New).

I've also tried it this way with the same results:

Selection.Font.Name = "Curier New"
  'or
  ActiveDocument.Range.Font.Name = "Curier New"

Thanks for any help.