求一段导出到word并自动保存doc文档的代码

各位老师，我想从数据库中根据模板通知单.doc替换书签来自动生成以序号命名的doc文档并直接打印，该怎么做，下面的代码提示保存但实际并没有保存，到底哪儿错了呢？

Private Sub print_Click()
    On Error Resume Next    ' 将错误处理的方式改为“继续下一行”。
    Dim DocApp As Object                                '定义Doc应用程序对象变量
    Set DocApp = GetObject(, "word.Application")        '得到当前的WORD应用程序对象
    Dim strFileName As String
    strFileName = CurrentProject.Path & "\文书\" & "通知单" & Me.序号 & ".doc"

    If Err.Number <> 0 Then                             '出错说明WORD没有运行
       Err.clear                                        '清除 Err 对象的所有属性设置
       Set DocApp = CreateObject("word.Application")    '创建WORD对象
       
       If Err.Number <> 0 Then                          '未安装WORD应用程序错误
          MsgBox "请确认是否安装WORD应用程序！", vbQuestion, "系统提示："
          Exit Sub
       End If
    End If

    DocApp.Visible = False   '隐藏WORD应用程序
    Dim DocObj As Object     '定义Word对象
    Dim DocWin As Object     '定义Word窗口对象

    Set DocObj = DocApp.Documents.Add(CurrentProject.Path & "\通知单模板.doc") '使用定义好的模板创建新文件
    Set DocWin = DocObj.ActiveWindow

    With DocObj
             .Bookmarks("序号").Range.Text = 序号
             .Bookmarks("来件时间").Range.Text = 来件时间
             .Bookmarks("交办时间").Range.Text = 交办时间
             .Bookmarks("信访人姓名").Range.Text = 信访人姓名
             .Bookmarks("TextLB").Range.Text = 类别
             .Bookmarks("来源").Range.Text = 来源
             .Bookmarks("联系电话").Range.Text = 联系电话
             .Bookmarks("联系地址").Range.Text = 联系地址
             .Bookmarks("来件网址").Range.Text = 来件网址
             .Bookmarks("来件文名").Range.Text = 来件文名
             .Bookmarks("来件文号").Range.Text = 来件文号
             .Bookmarks("诉求事项主题").Range.Text = 诉求事项主题
             .Bookmarks("办理责任单位").Range.Text = 办理责任单位
             .Bookmarks("办理责任人").Range.Text = 办理责任人
             .Bookmarks("联系人电话").Range.Text = 联系人电话
             .Bookmarks("包案领导").Range.Text = 包案领导
             .Bookmarks("包案领导电话").Range.Text = 包案领导电话
             .Bookmarks("包案领导电话").Range.Text = 包案领导电话
             .Bookmarks("办理情况").Range.Text = 办理情况

    End With

    objDoc.SaveAs strFileName
    Beep
    
    If MsgBox("导出已完成，是否打开该文件？", vbQuestion + vbYesNo, "导出完成") = vbYes Then
        objApp.Visible = True
        objDoc.Saved = True
        blnNoQuit = True
    End If

   DocObj.PrintNormal                '打印

    '释放对象占用内存
    Set DocApp = Nothing
    Set DocObj = Nothing
    Set DocWin = Nothing

End Sub

肯请指教，谢谢！