＞次に開いたときにはなぜかや<送信日付>に戻ってしまいます。

不思議ですね。もし、その < > 括弧が普通の文字でしたら・・

１．エクセルの表題を[]括弧で囲むのは止め、<>括弧だけで囲むことにする。

２．Word側の差し込みフィールドは、ありのままにする。
　　すなわち、元の < > だけにしておく。

それだけで、正常化すると思われます。

仕組みを全く理解していないようだ。
素直にWordの差し込み印刷機能を使ったほうがいい。
日本語の説明がネット上にたくさんあります。
当日日付だけに限定するなら、直接シートにオートフィルタを掛けて
それだけを抽出したものを使えばいいだけです。

＞A1完了日時,B1INDEX,C1,送信日付,D1送信時間,G1支店コード,H1受付番号,I1組合員,J1行番号1,K1問選択,・・

そちらのコードの元ネタはこれですよね？
　　　　　　　　　　　　　↓
＞エクセルマクロVBAでWord連携！ワード操作して差し込み印刷(コード付)

その解説によると、エクセルの表題は[]括弧で囲むことになっています。
C1[送信日付],D1[送信時間],・・・　となっていないとおかしい。

また、Word文書も
＞差し込みしたい箇所を以下のように、[xxx]と入力しています。

つまり、［姓］［名］様 ・・・

と言った様に、エクセルのタイトルと同じ文言は、
同じ様に[]括弧で囲んでいる必要があります。

チャントそうなる様にお膳立てしていますか？

＞    .Text = ws.Range("B3").Offset(0, k).Value
　　　　　　　　　　　　↑
　　　　　　　　　　　ここの「3」がおかしい。

差し込むべきタイトル(例：[氏名]）が入っている行番号に合わせる。

例：タイトルが１行目にあるなら→   .Text = ws.Range("B1").Offset(0, k).Value
 
 

ExcelVBAで質問です。
Excel側「フォーム」シートの表でB3セル以下の当日日付が入っている行のみWord（a.docx）へ差し込み印刷して、A列に日時と処理済と入力するコードを作成しているのですが、印刷は出るのですが、当日日付の行ではなく、保存されているWordのデータしか印刷されません。
どうしたら、当日日付が入っている行のみWordへ差し込み印刷出来るようになるか、ご教示頂けないでしょうか。

===============

'プログラム0｜変数設定の指定
Option Explicit

'プログラム1｜プログラム開始
Sub Sashikomi_Insatsu()

    'プログラム2｜変数設定
    Dim i As Long, k As Long
    Dim waitTime As Variant
    Dim targetRow As Range
    
    'プログラム3｜シート設定
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("フォーム")
    
    'プログラム4｜エクセルの最終行と最右列を取得
    Dim cmax As Long, cnt As Long
    cmax = Range("A65536").End(xlUp).Row
    cnt = Range("IV1").End(xlToLeft).Column

    'プログラム5｜ワード起動
    Dim wdapp As Word.Application
    Set wdapp = CreateObject("Word.application")
    wdapp.Visible = True

    'プログラム6｜テンプレートワードのパス取得
    Dim path As String
    path = ThisWorkbook.path & "\a.docx"

    'プログラム7｜エクセルのデータを1行ずつ処理
    For i = 3 To cmax
        ' データを含む行を取得
        Set targetRow = ws.Rows(i)

        ' 当日日付が含まれているか確認
        If Application.WorksheetFunction.CountIf(targetRow, "=" & Format(Date, "yyyy/mm/dd")) > 0 Then
        
        ' プログラム8｜テンプレートワードを開く
        Dim wdDoc As Word.Document
        Set wdDoc = wdapp.Documents.Open(path)
            waitTime = Now + TimeValue("0:00:03")
            Application.Wait waitTime

         'プログラム9｜テンプレートワードにエクセルデータを挿入
        For k = 0 To cnt - 2
            With wdDoc.Content.Find
                .Text = ws.Range("B3").Offset(0, k).Value
                .Forward = True
                .Replacement.Text = ws.Range("B" & i).Offset(0, k).Value
                .Wrap = wdFindContinue
                .MatchFuzzy = True
                .Execute Replace:=wdReplaceAll
            End With
        Next

        ' プログラム10｜データを差し込んだワードを印刷
        wdDoc.PrintOut

        ' プログラム12｜テンプレートワードを保存せずに閉じる
        wdDoc.Close SaveChanges:=False
        
        'プログラム13｜オブジェクト解放
        Set wdDoc = Nothing
        
        'プログラム14｜エクセルにデータを出力
        ws.Range("A" & i).Value = Now & "処理済"
        End If
    Next
    
    'プログラム15｜ワードをアプリケーションごと閉じる
    wdapp.Quit
    Set wdapp = Nothing

'プログラム16｜プログラム終了
End Sub

===============