Thanks Doug for the direction.  I however am still running into the same type
of problem only with different error messages and am running myself ragged
trying to get the syntax right.  Here is what I have so far:

Sub MakeBkup()
   Dim strBodyText As String
   
   With UserForm2
       ' combine the individual text boxes into a string and write to a
backup text file
       
       strBodyText = UserForm2.AnnounceNum & UserForm2.SummaryText &
UserForm2.ProfileText & UserForm2.ResponText & UserForm2.QualifText
       System.PrivateProfileString("c:\usr\solarbackup.txt", "SOLARBackup",
"Text") = strBodyText
   End With
End Sub

I am also still fighting with trying to "grab" the current window the
template creates when it starts, so when the code is excuted it starts
running in the correct document.  This is what I have for that:

Option Explicit
Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long,
ByVal hWndNewParent As Long) As Long
Public WithEvents appword As Word.Application

Public Sub Document_New()
    Dim strName As String
    Dim iHandleDoc As Long
    Dim iHandleForm As Long
    Dim iNull As Long
   
    iHandleDoc = GetActiveWindow()
    iHandleForm = GetActiveWindow()
    iNull = SetParent(iHandleForm, iHandleDoc)
    strName = ActiveDocument.FullName
   
   UserForm2.Show
   
End Sub

Any suggestions would be helpful.  Thank you in advance.