从Excel将VBA插入Word

Question

1. 我有一个电子表格，该电子表格会生成一个Word文档，对其进行格式化，然后根据所有选定内容并将其输入到电子表格中，向文档中添加一堆文本。 所有这些都很好。
2. 我想做的是在Excel中生成VBA代码时将其插入Word文档中。

这是我要插入的特定代码-最终这需要进入Word VBA：

Private Sub Document_Close()
    ActiveDocument.Saved = True
End Sub

我似乎无法让Excel将此代码插入到正在生成的Word文档中。 我知道这是可能的，但无法解决。 我尝试了几件事，它接受了我的代码，但是我不知道将其插入到哪里，因为当我寻找插入的行时，找不到它们。

这是我用来生成Word documen的代码。 有人可以看一下，让我知道如何将以上代码插入本文档吗？ 谢谢你提供的所有帮助。

Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Add

With wrdApp.Selection
‘A bunch of formatting code and text inputting is listed here for the word document.
End With

wrdApp.Visible = True
wrdApp.Activate

Answer 1

如果已将Word设置为信任对VBA项目的编程访问，则：

Sub ExceltoWord()
Dim strIn As String
strIn = "Private Sub Document_Close()" & Chr(10) & " ActiveDocument.Saved = True" & Chr(10) & "End Sub"
Set wrdApp = CreateObject("Word.Application")
Set wrddoc = wrdApp.Documents.Add
wrddoc.VBProject.VBComponents("ThisDocument").CodeModule.AddFromString strIn
wrdApp.Visible = True
wrdApp.Activate
End Sub

Answer 2

如果要插入到Word中的代码是恒定的（可能应该是恒定的），则可以手动创建一个已有代码的Word文件，然后将该文件用作模板，而不是从一个完全空的Word文档开始。