How to extract data from Excel database to create word report for each patient

Thanks. It does work, although it doesn't show all the columns in the wizard, they all show up as available to include in the word report. However, for some reason, it add an empty record every other recipient number (1 is ok, 2 is empty, 3 is ok, 4 is empty, etc.). It must be a conversion artifact from the CSV (comma separated) conversion. I unchecked these empty cases and now when I browse through my recipients, it goes from 1, to 3, to 5, etc (so patient 001, patient 002, patient 003). I guess that's good enough for what I need, thank you.

I am a beginner with this macro stuff. I was wanting to do same kind of thing... In Excel I had 6 rows of customers with 7 columns of Data... First sheet is called "data" created 2nd sheet called "template" And set it up with name of matching columns on first sheet, (so in Column A on Template is Name in Cell A3 , address in A4 etc.. then figured the data from first sheet goes to B3, B4, etc.) it creates a word doc for each customer, then saves it as the customer name. This is my code if you can use and rewrite it to match your columns and cells

Sub ControlWord()
Dim appWD As Word.Application
' Create a new instance of word & make it visble
Set appWD = CreateObject("Word.Application.15")
appWD.Visible = True

Sheets("Data").Select
'Find the last row with data in the database
finalRow = Range("A25").End(xlUp).Row
For i = 2 To finalRow
Sheets("Data").Select
' Copy the name to cell B3
Range("A" & i).Copy Destination:=Sheets("Template").Range("B3")
' copy the data columns, transpose and paste in B4:B9
Range("B" & i & ":G" & i).Copy
Sheets("Template").Select
Range("B4").PasteSpecial Transpose:=True
' Copy the data for the new document to the clipboard
Range("A2:H10").Copy
' tell word to create a new document
appWD.Documents.Add
' tell word to paste the contents of the clipboard into the new document
appWD.Selection.Paste
' save the new document with a sequential file name
appWD.ActiveDocument.SaveAs Filename:=Sheets("Data").Range("A" & i).Value
' close this new word document
appWD.ActiveDocument.Close
Next i
' Close the Word application
appWD.Quit


End Sub