templates - 模板 word 文件中的 BeforePrintEvent

Question

我使用 Word 2013，但遇到以下问题：我创建了一个 Word 模板 (.dotm) 文件，我想在用户打印此文件之前将该文件的副本复制到另一个文件夹中。我看到了这篇文章（制作打印的 Word 文档的副本并将其保存在文件夹中）并完全按照描述执行此操作。当我将模板作为“.dotm”文件打开时它可以工作，但我需要的是，当我按原样打开这个文档时它也可以工作，作为一个模板，这意味着当我双击打开文件时，word打开一个新的 word 文件 (.docx)，但随后“BeforePrint 事件不起作用”。

模块代码：

Dim X As New EventClassModule
Sub Register_Event_Handler()
    Set X.App = Word.Application
End Sub

本文档代码：

Private Sub Document_Open()
Register_Event_Handler
End Sub

EventClassModule-代码：

Public WithEvents App As Word.Application


Private Sub App_DocumentBeforePrint(ByVal Doc As Document, Cancel As Boolean)
    MsgBox "Sind drin"
    CopyToFolder
End Sub

Private Sub CopyToFolder()
    Doc.SaveAs2 FileName:="MyPath" + ActiveDocument.Name
End Sub

有没有人知道为什么？

标签： templateseventsprintingms-word