VBA：実行時エラー「91」（コードテンプレートでの作業が、「テンプレートから新規」ではない）

Question

i「は新しいを使用するときに私のコードは、「オープン」テンプレート（例：Template.dotm。）から実行したときに動作しますが、ではありませんテンプレートから "（例えば、Document1.docx）。

"文書1" のエラーコードから実行を要求されます：

：

デバッガのハイライトを "実行時エラー '91' オブジェクト変数またはWithブロック変数が設定されていません"

Selection.MoveDownユニット：= wdLine、Count：= 129

テンプレートから新しいドキュメントを作成する際

がUserForm1でを開きます：

Private Sub Document_New() 
    Userform1.Show 
End Sub 

UserForm1で EDITED

でのコードのMicrosoft Word Obejcts /この文書に記載されている10

マイコード今すぐ "実行時エラー '438'オブジェクトはサポートしません。プロパティまたはメソッド。」

CheckBox1を、それが真の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