Vb.net Handles子句需要在包含类型或其基类型之一中定义的WithEvents变量？

当我在Visual Studio 2013中运行以下代码时，它显示：

Handles子句需要在包含类型或其基本类型之一中定义的WithEvents变量

Private Sub Application_DocumentBeforeSave(ByVal Doc As Word.Document, ByRef SaveAsUI As Boolean, _
    ByRef Cancel As Boolean) Handles Application.DocumentBeforeSave
    Doc.Paragraphs(1).Range.InsertParagraphBefore()
    Doc.Paragraphs(1).Range.Text = "This text was added by using code." 
End Sub

有人能告诉我如何解决这个问题吗？

---

上面的代码来自

，该代码假定当前类有一个名为

Application

的字段，类型为

Microsoft.Office.Interop.Word.Application

（其中包括

DocumentBeforeSave

事件）

创建新的Word 2013加载项项目

打开

ThisAddin.vb

文件

请注意，此类还有一个在

ThisAddin.Designer.vb

中定义的分部类，其中声明了

应用程序

字段：

---

该代码假定当前类有一个名为

Application

的字段，类型为

Microsoft.Office.Interop.Word.Application

（其中包括

DocumentBeforeSave

事件）

创建新的Word 2013加载项项目

打开

ThisAddin.vb

文件

请注意，此类还有一个在

ThisAddin.Designer.vb

中定义的分部类，其中声明了

应用程序

字段：

Friend WithEvents Application As Microsoft.Office.Interop.Word.Application