ＶＢよりＷＯＲＤを起動して印刷を連続で行いたいのですが、1度ＷＯＲＤを起動し印刷処理を
行った後、再度印刷処理を行いますと、エラーとなってしまいます。
実行時エラー　４６２
リモートサーバーがないか、使用できる状態ではありません。
と表示されます。
１度だけはうまくいくのですが。

Private Sub btnprint_Click()
    On Error Resume Next
    Dim wdApp   As Word.Application
    Dim wdDoc   As Word.Document
    
    Set wdApp = New Word.Application
    
    '新しい文書を開く
    Set wdDoc = wdApp.Documents.Add

    Selection.TypeParagraph　　←　ここでエラーです。
    Selection.Font.Size = 11
    Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
    Selection.TypeText Text:=txtsymd.Text
　　　　　・
　　　　　・　
　　　　　・  
      
    '文書を印刷　印刷処理が終了するまで待機
    wdDoc.PrintOut Background:=False

    '保存しないで終了
    wdApp.Quit SaveChanges:=wdDoNotSaveChanges
    
    'オブジェクトを解放します。
    Set wdDoc = Nothing
    Set wdApp = Nothing

End Sub

オブジェクトがうまく解放されていないんでしょうか？
それとも他に原因があるんでしょうか？
宜しくお願いいたします。

>     Selection.TypeParagraph　　←　ここでエラーです。
>     Selection.Font.Size = 11
>     Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
>     Selection.TypeText Text:=txtsymd.Text
> オブジェクトがうまく解放されていないんでしょうか？

Selection を直接使用しているからではないでしょうか。

Excel や Word の VBA 内で使用する分には良いですが、
VB で使用するのは避けた方が良いです。

こちらの、 Excel & Word 関係内の注意事項の
５と同じ現象になってしまいます。

「Selection」を直接使わないように修正しましたところ、うまくいきました。
どうもありがとうございました。