you could place this on a button sub or call it from a button sub, either way
I'm not going to loop anything here, I'm assuming there are a manageable amount of bookmarks that we will use so we will just access them all one at a time to keep things easy.
Private Sub FillTemplate()
Dim FilePath As String
Dim SavePath As String
Dim wApp As Object
Dim wDoc As Object
on error resume next
Set wApp = CreateObject("Word.Application")
On Error Goto 0
If wApp Is Nothing Then Exit Sub 'Something went wrong and no app is loaded
FilePath = "C:\MyFile.doc" 'Make sure its accessible to excel, you will need to double check what file extension your file has
SavePath = "C:\MyNewFile" '
wApp.Visible = True 'always do this in case something goes wrong, or else you cannot see it and close it without taskmanager
Set wDoc = wApp.Documents.Open(Filename:=FilePath)
With wDoc
.Bookmarks("BookMark1").Range.Text = Sheet1.Range("A1").Value 'make sure the bookmark names are exact matches
.Bookmarks("BookMark2").Range.Text = Sheet1.Range("A2").Value 'make sure you bookmarks have a space on either end of them so you document doesnt look weird afterwards
'just keep adding more lines as you need them
'Word of warning (no punn intended :) this will automatically overwrite a file without notice if it has the same name
.SaveAs(FileName:=SavePath, FileFormat:=16) 'FileFormat 16 = .DocX, 17 = .PDF, there are many types just google wdSaveFormat
.Close False
End With
wApp.Quit
End Sub
ok this is the basic code to get you started.......aall you need to do it tie up the data in excel to the bookmarks in word.
just post back if it has problems
i didnt test this. but it should be fine
Bookmarks