使用 VB.Net 将宏代码添加到 Word 文档

Question

好的，让我详细解释一下。

假设有一个名为“Word.doc”的word文件

我想做的基本上是使用VB.NET来做以下事情：

打开word文档

添加宏代码

例如

将以下宏代码添加到 Word 文档中

Sub AutoOpen()
    Msgbox 
End Sub

然后保存这个文档。

请记住，我想将宏代码插入到 word 文档中，而不是从文档中检索已经存在的宏代码

Answer 1

这是一个简单的 VBA 宏，展示了如何使用 Word 对象模型将宏添加到文档（VB.NET 代码几乎相同）。

Sub NewDocWithCode()
    Dim doc As Document

    Set doc = Application.Documents.Add
    doc.VBProject.VBComponents("ThisDocument").CodeModule.AddFromString _
            "Sub AutoOpen()" & vbLf & _
            "   MsgBox ""It works""" & vbLf & _
            "End Sub"
End Sub

请注意，运行此代码需要信任对 VBA 项目对象模型的访问（这需要在 Word 选项的信任中心中启用）。

Answer 2

通过对象模型在 VBA 编辑器中处理对象需要引用 Microsoft Office VBA 可扩展性 5.3 对象模型，您可以在 Visual Studio 的项目/添加引用的 COM 选项卡中找到该模型。

我喜欢在代码顶部添加 Imports 语句，这样我就不必总是写出完整的命名空间限定：

Imports VBE = Microsoft.Vbe.Interop

AutoOpen 宏必须是普通代码模块中的“公共”Sub。假设您要在文档中添加新的代码模块，请使用VBComponents.Add 方法并指定枚举类型vbext_ct_StdModule。

默认情况下，VBE 会将新模块命名为“Module#”——一个递增的数字。如果您需要再次以编程方式处理此模块（例如，查看它是否存在），最好为其指定一个名称。

使用AddFromString 方法将代码作为字符串添加。

如果您要向文档添加代码，则该文档的类型可能是 docx，这意味着它不能包含宏代码。文档必须具有扩展名docm 才能包含宏代码。所以你可能需要在文档上使用 SaveAs 方法来更改文件类型和名称！

Private Sub InsVbaCode_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InsVbaCode.Click
    'Helper method to get current Word instance or, if none, start one
    GetWordProcess()

    Dim doc As Word.Document = WordApp.ActiveDocument
    Dim vbModule As VBE.VBComponent = doc.VBProject.VBComponents.Add(VBE.vbext_ComponentType.vbext_ct_StdModule)
    vbModule.Name = "basAddedCode"
    vbModule.CodeModule.AddFromString( _
      "Sub AutoOpen()" & vbLf & _
      "   MsgBox ""Document "" & ActiveDocument.FullName & "" has been opened successfully!""" & vbLf & _
      "End Sub")
    'doc.Save() or doc.SaveAs to change file type and/or name
End Sub