VBAのPrintOutメソッドでのエラー

Question

前提・実現したいこと

ＶＢＡでＷｏｒｄを印刷するマクロを作成しています。
仕様としては、InputBoxで部数とファイルパスを入力したら、
ファイル内のdocファイル順番に開いて印刷し閉じて次のdocファイル
を印刷するというものです。

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

PrintOutメソッド時にエラーメッセージ「名前付き引数が見つかりません」が表示される

該当のソースコード

Sub 連続印刷()
Dim FilePath, doc As String
Dim CopiesNum As Long
Dim WApp, OpenDoc
'
' 連続印刷 Macro
'
    Set WApp = CreateObject("Word.Application")
    WApp.Visible = True
    
    CopiesNum = InputBox("部数を入力してください")
    FilePath = InputBox("ファイルパスを入力してください")
    doc = FilePath & "\" & Dir(FilePath & "*.doc*")
   
    Do While doc <> ""
        Set OpenDoc = WApp.Documents.Open(doc)
        OpenDoc.PrintOut FileName:=doc, Copies:=CopiesNum, Range:=wdPrintAllDocument

        OpenDoc.Save
        OpenDoc.Close
        doc = Dir()
    Loop
End Sub

試したこと

PrintOutメソッドをApplicationに変えましたが、
今度は「文書ウィンドウが開かれていないため、メソッドとプロパティを使用することができない」
と表示されました。

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

Office2010
Windows10 32bit

Answer 1

OpenDoc.PrintOut Copies:=CopiesNum, Range:=wdPrintAllDocument

すでに開いているものに対する処理なので、Filenameは不要ではないでしょうか。

Comments

[inagin]

ありがとうございました。解決できました