【1分でわかる】Excel「関数」「マクロ」の違いは？特性を解説

Sub word_tenki()

    '変数
    Dim i As Long, k As Long
    Dim waitTime As Variant
    
    'シート設定
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("個人情報")
    
    '最終行と最右列を取得
    Dim cmax As Long, cnt As Long
    cmax = Range("A65536").End(xlUp).Row
    cnt = Range("IV1").End(xlToLeft).Column

    'word起動
    Dim wdapp As Word.Application
    Set wdapp = CreateObject("Word.application")
    wdapp.Visible = True

    'wordのパス取得
    Dim path As String
    path = ThisWorkbook.path & "\Sample.docx"

    'Excelのデータを1行ずつ処理
    For i = 2 To cmax
        
        'Wordを開く
        Dim wddoc As Word.Document
        Set wddoc = wdapp.Documents.Open(path)

        'WordにExcelのデータを挿入
        For m = 0 To cnt - 2
            With wddoc.Content.Find
                .Text = ws.Range("B1").Offset(0, m).Value
                .Forward = True
                .Replacement.Text = ws.Range("B" & i).Offset(0, m).Value
                .Wrap = wdFindContinue
                .MatchFuzzy = True
                .Execute Replace:=wdReplaceAll
            End With
        Next
        
        'Excelデータを差し込んだWordを印刷
        wddoc.PrintOut
        
        'Wordを保存
        Dim str As String
        str = ws.Range("A" & i).Value & "_" & Range("B" & i).Value & Range("C" & i).Value & ".docx"
        wddoc.SaveAs Filename:=ThisWorkbook.path & "\" & str
        
        'Wordを保存せずに閉じる
        wddoc.Close savechanges:=False
        
        'オブジェクト解放
        Set wddoc = Nothing
        
        'Excelにデータを出力
        ws.Range("G" & i).Value = Now & "処理済"
    Next
    
    'Wordをアプリケーションごと閉じる
    wdapp.Quit
    Set wdapp = Nothing

End Sub

コードの解説は、今後別途解説します。
今回はこのコードをコピペして使用ください。