[5分]导出至Word为页眉加上特定字符，代码怎么写？

代码如下：

 Dim strTemplate As String
    Dim strFileName As String
    Dim objApp As Object    'New Word.Application
    Dim objDoc As Object    'Word.Document
    Dim objField As Object    'Word.Field
    Dim rst As Object
    Dim blnNoQuit As Boolean

    strTemplate = CurrentProject.Path & "\模板\入院录模板.doc"

 Set objApp = CreateObject("Word.Application")    '创建word对象
    Set objDoc = objApp.Documents.Open(strTemplate)  '打开word模块文档
    Set rst = CurrentDb.OpenRecordset("SELECT * FROM 表1 WHERE 病员号='" & 病员号 & "'", , 4)  

    If Not rst.EOF Then
        strFileName = CurrentProject.Path & "\存放位置\" & rst!姓名 & "入院录" & ".doc"

        If Dir(strFileName) <> "" Then Kill strFileName  '如果文件已存在，先删除已有文件
        objDoc.FormFields("姓名").result = rst!姓名
        objDoc.FormFields("性别").result = rst!性别
        objDoc.FormFields("年龄").result = rst!年龄
        objDoc.FormFields("病区").result = rst!病区
        objDoc.FormFields("床号").result = rst!床号
        objDoc.FormFields("婚否").result = rst!婚否

         .......

   End If

 rst.Close
    objDoc.SaveAs strFileName

    Dim MyText As String
    MyText = Me.姓名
    Set objDoc = objApp.Documents.Open(strFileName)

    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Selection.HeaderFooter.Range.Text = MyText
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

不知道这段代码错在哪里,不能为导出的wOrd文档添加页眉,望老师们予以指导,在此感谢了.