VBA エラー 462

Question

前提・実現したいこと

VBAを使いExcelのB1～B4にある、会場、顧客名、ID、パスワードの情報を基に
テンプレートのWordをコピーし、中身の表に情報を入力していくようなコードを作成したいと考えております。（コードはExcelの方で書いています）
1回目は成功しても、2回目にエラー462が発生します。
一度、終了し該当ファイルを削除後に再実行すると成功します。
たて続けに実行するとエラーが発生するようです。

Microsoftのヘルプページを見てみると、「2 回目のコード実行時に Excel のオートメーションが失敗する」に該当するようで、解決方法「この問題を解決するには、適切なオブジェクト変数で修飾して、Excel のオブジェクト、メソッド、またはプロパティをそれぞれ呼び出すようにコードを変更します。」とありますがどうすれば分かりませんでした。

解決方法をご教示頂けますでしょうか。

発生している問題・エラーメッセージ

実行エラー 462
リモートサーバーがないか、使用できる状態ではありません。

該当のソースコード

Sub make()

Dim i As String
Dim name As String
Dim B1 As String
Dim site As String
Dim Ex As Excel.Application
Set Ex = CreateObject("Excel.Application")

B1 = Sheets("Input").Range("B1").Value       ←大阪会場、東京会場の区別をしています。
If B1 = "大阪" Then
site = "大阪"
Else
site = "東京"
End If

i = Sheets("Input").Range("B2")

Dim target As String
target = "C:\Users\Desktop\セールのご案内(" & i & "様)(" & site & "会場).doc"

If Dir(target) <> "" Then　　　　←もし、同じ名前のWordがある場合は、メッセージを表示し終了
MsgBox "既に作成されています。フォルダ内を確認してください。"
GoTo byebye
Else
 
FileCopy "C:\Users\Desktop\テンプレート\セールのご案内(お客様名)(" & site & "会場).doc", "C:\Users\Desktop\セールのご案内(" & i & "様)(" & site & "会場).doc"

Sheets("Input").Range("C1") = "C:\Users\Desktop\セールのご案内(" & i & "様)(" & site & "会場).doc"

Dim Document As Word.Application
Set Document = CreateObject("Word.Application")
Document.Application.Visible = flse

With Document.Documents.Open("C:\Users\Desktop\セールのご案内(" & i & "様)(" & site & "会場).doc")

Set mytable1 = ActiveDocument.Tables(1)　　　　　　　　　　　　←このあたりで、エラーが発生しているようです。
mytable1.Cell(2, 2) = Sheets("Input").Range("B1").Value
mytable1.Cell(3, 2) = Sheets("Input").Range("B2").Value   
mytable1.Cell(4, 2) = Sheets("Input").Range("B3").Value
mytable1.Cell(5, 2) = Sheets("Input").Range("B4").Value

End With

Document.Quit savechanges = False

MsgBox "「セールのご案内(" & i & "様)(" & site & "会場).doc」を作成しました。"

End If

byebye:　　　　　　
Set mytable1 = Nothing
Set mytable4 = Nothing
Set objIE = Nothing
Set Document = Nothing
Set Ex = Nothing

End Sub

補足情報（FW/ツールのバージョンなど）

ファイルパスや適当なものを一応書いているだけなので、気にしないでください。

Answer 1

なんかチグハグなコードですね。
自分で作ってます？？

修正・改善点は山ほどありますが、
書くと時間がかかるので、
下記のコードを参考にしてください。

動かしてませんが、コンパイルが通るようにしてます。
後はそちらで頑張ってください。
参考まで。

Sub make()
    
    '不要
'    Dim Ex As Excel.Application
'    Set Ex = CreateObject("Excel.Application")
    
    Dim Sht As Worksheet
    Set Sht = ThisWorkbook.Worksheets("Input")
    With Sht
        
        Dim B1 As String
        B1 = .Range("B1").Value       '←大阪会場、東京会場の区別をしています。
        
        '？条件分岐の意味不明？
        Dim site As String
        If B1 = "大阪" Then
            site = "大阪"
        Else
            site = "東京"
        End If
        
        Dim Customer    As String
        Customer = .Range("B2").Value　’←「.Value」を省略しない
        
        Dim DocName As String
        DocName = "セールのご案内(" & Customer & "様)(" & site & "会場).doc"　’←せっかく変数にいれてるんだから、他でも使いまわそうよ。
        
        Dim DocPath As String
        DocPath = "C:\Users\Desktop\" & DocName
        
        If Dir(DocPath) <> "" Then  '←もし､同じ名前のWordがある場合は､メッセージを表示し終了
            MsgBox "既に作成されています。フォルダ内を確認してください。"
            Exit Sub    'ラベル無いし、意味もないのでプロシージャを終了
        End If
        
        FileCopy "C:\Users\Desktop\テンプレート\セールのご案内(お客様名)(" & site & "会場).doc", DocPath
        .Range("C1").Value = DocPath
            
        Dim Word As Word.Application
        Set Word = New Word.Application '参照設定してるから、Newを利用。そしてDocumentではないから、WordApp、WD等、ちゃんと名前をつけようよ。。。
        Word.Visible = False
        
        Dim Doc As Word.Document
        Set Doc = Word.Documents.Open(DocPath)
        
        Dim mytable1    As Word.Table   '←扱いやすいよう、Tablesの戻り値のTable型変数にいれる
        Set mytable1 = Doc.Tables(1)
        mytable1.Cell(2, 2).Range.Text = .Range("B1").Value     '←このあたりで、エラーじゃない？デバッグした？ Cell()の「Range.Text」をちゃんと書かないと動くはずがないですよ。。。
        mytable1.Cell(3, 2).Range.Text = .Range("B2").Value
        mytable1.Cell(4, 2).Range.Text = .Range("B3").Value
        mytable1.Cell(5, 2).Range.Text = .Range("B4").Value
        
        '文書を閉じる
        Call Doc.Close(SaveChanges:=False)
        
        'ワードを終了させる
        Call Word.Quit(SaveChanges:=False)    '名前指定で引数を渡す時は「:=」　「:」なくて本当に動いてるの？？
    
    End With
    
    MsgBox DocName & " を作成しました。"
    
    Set mytable1 = Nothing
'    Set mytable4 = Nothing
'    Set objIE = Nothing
'    Set Document = Nothing
'    Set Ex = Nothing

End Sub

Answer 2

ActiveDocumentを使用しているので、Wordの起動とかのタイミングでActiveDocumentとしてwordのファイルを捕捉できていないのではないでしょうか。
明示的に処理するとエラー解消するかもしれません。
※withは無意味ですね。

Dim wddoc As Word.Document
Set wddoc = Document.Documents.Open("C:\Users\Desktop\セールのご案内(" & i & "様)(" & site & "会場).doc")

Set mytable1 = wddoc.Tables(1)　　　　　　　　　　　　←このあたりで、エラーが発生しているようです。