VBA：运行时错误'91'（代码在模板中工作，但不是“来自模板的新代码”）

Question

我的代码在从“打开”模板（例如 Template.dotm）运行时有效，但在我使用“从模板新建”（例如 Document1.docx）时无效。

从“Document1”运行时出现错误代码提示：

“运行时错误'91'对象变量或未设置块变量”

调试器亮点：

Selection.MoveDown 单位：=wdLine，计数：=129

我在 Microsoft Word 对象/本文档中的代码：

从模板创建新文档时打开 Userform1：

Private Sub Document_New()
    Userform1.Show
End Sub

Userform1 中的代码

已编辑现在“运行时错误 '438' 对象不支持属性或方法。”

如果 CheckBox1 = True 则打开 text.docx 并将其内容粘贴到此文档的第 129 行

    Private Sub CommandButton1_Click()
Dim Newdocument As Document
Set NewDocument = ThisDocument            
Dim myDoc As Document
            Set myDoc = Documents.Open(FileName:="C:\Users\Stack\Documents\Text.docx", ReadOnly:=False)

         ' do some stuff
         'Opens text document and pastes it in line 129 of this document
          If CheckBox1 = True Then



          myDoc.WholeStory
          myDoc.Copy

          Newdocument.Activate

          Selection.MoveDown Unit:=wdLine, Count:=129
          Selection.PasteAndFormat (wdFormatOriginalFormatting)

          Application.DisplayAlerts = False
          myDoc.Close

      End If

      Unload Me
      Exit Sub

      End Sub



I probably seem clueless in your eyes, but i am new to VBA and still learning. Debugger now highlights the "mydoc.wholestory" with error '438'

Answer 1

这行得通：

Selection.InsertFile FileName:="文件路径"

Answer 2

您需要使用文档对象。

Dim myDoc as Document
Set myDoc = Documents.Open(FileName:="C:\Users\Stack\Documents\Text.docx", ReadOnly:=False)

' do some stuff

myDoc.Close