VBAでエクセルからワードへの差し込み印刷について教えてください。

デバッグ機能でチェックしながら実行すると「wddoc.PrintOut」の直前行まではうまくいっている（データのやり取りが機能している）のですが、印刷したword文書を見ると印刷したいエクセルのデータではなくて、（同path内にある）全く別の内容の「お礼状.doc」が印刷されます。
私としてはエクセルデータを「お礼状.doc」に印刷しているつもりです。
参照設定で[microsoft word 16.0 object library]は設定しています。
どなたかご教授ください。
以下構文です。　　
Sub スマイル4_Click()
Dim cmax, cnt, i, k As Long
Dim path, str As String
Dim wdapp As Word.Application
Dim wddoc As Word.Document
Dim wdrg As Word.Range
Dim c As Long
Dim waitTime As Variant

cmax = Range("B65536").End(xlUp).row
cnt = Range("IV1").End(xlToLeft).Column

Set wdapp = CreateObject("Word.application")
wdapp.Visible = True

For i = 2 To cmax

path = ThisWorkbook.path & "\お礼状.doc"
Set wddoc = wdapp.Documents.Open(path)
waitTime = Now + TimeValue("0:00:03")
Application.Wait waitTime

For k = 0 To cnt - 2
With wddoc.Content.Find
.Text = Range("B1").Offset(0, k).Value
.Forward = True
.Replacement.Text = Range("B" & i).Offset(0, k).Value
.Wrap = wdFindContinue
.MatchFuzzy = True
.Execute Replace:=wdReplaceAll
End With
Next

wddoc.PrintOut

wddoc.Close savechanges:=False
Set wddoc = Nothing
Next
wdapp.Quit
Set wdapp = Nothing
End Sub

質問者からの補足コメント

• 

  めぐみんさんに教えて頂いた構文を実行したのですがうまくいきません。
  説明不足もあろうかと思い、画像をアップしました。（顔の画像にVBAを登録しています）
  現在の現象は1行目の「高橋」は印刷されず、2行目の「伊能」が2回印刷されます。
  「伊能」の内容は正しく差し込み印刷されています。
  特に2回印刷させる設定でもないのに、なぜ、同じ内容で「伊能」が2回印刷されるのでしょうか？
  ご教示願えれば助かります。

  
    補足日時：2019/08/27 10:21

No.2 ベストアンサー 回答者： めぐみん_ 回答日時： 2019/08/27 16:17

No.1です。

https://www.239-programing.com/excel-vba/basic/b …

にあるようなブレークポイントを設定してその際の状況を調べてみるとかかな？

https://www.239-programing.com/excel-vba/basic/b …

.PrintOut

を

.PrintPreview

にしてみてどうなっているのかを。

この回答へのお礼

いろいろとご心配をお掛けしました。
アドバイスもいただき感謝しています。
もう少し頑張ってみます。
ありがとうございました。

お礼日時：2019/08/28 10:52

No.1 回答者： めぐみん_ 回答日時： 2019/08/23 18:07

印刷しているのは紛れもなく

＞path = ThisWorkbook.path & "\お礼状.doc"
＞Set wddoc = wdapp.Documents.Open(path)
＞wddoc.PrintOut

ですよね。（多分そう言う事での思惑違いかと）

Ｗｏｒｄ文書が最前面にあるのなら、

wddoc.PrintOut

ではなく

ActiveDocument.PrintOut Background:=True

等にしてみるとか？

この回答へのお礼

早速のご教示ありがとうございます。
事情があり、来週の火曜日以降にしか検証できません。折角ご返答いただきながら申し訳ありません。
取り急ぎお礼まで。

お礼日時：2019/08/23 21:01