Dear Friends

I would like a macro that runs automatically on word document open, such that it replaces placeholder text in a word template with data from an existing excel file. The template then saves the edited document with a new name so that it does not permanently affect the template itself. I would like to write this macro on a word document rather than an excel spreadsheet. The excel file and word template will all be stored in one folder, so the location paths should be relative.

Here is my code so far:
Private Sub Document_Open()
Dim objExcel As Object
Dim A As Range
Set objExcel = CreateObject("Excel.Application")


Set exWb = objExcel.Workbooks.Open ThisDocument.Path & "/madokero18a.xlsm")
ActiveDocument.Content.Find.Execute "#1Zita", ReplaceWith:=exWb.Sheets("Assign").Cells(12, 4)
ActiveDocument.Content.Find.Execute "#2Zita", ReplaceWith:=exWb.Sheets("Assign").Cells(16, 4)
ActiveDocument.Content.Find.Execute "#3Zita", ReplaceWith:=exWb.Sheets("Assign").Cells(20, 4)
ActiveDocument.Content.Find.Execute "#4Zita", ReplaceWith:=exWb.Sheets("Assign").Cells(24, 4)
ActiveDocument.Content.Find.Execute "#5Zita", ReplaceWith:=exWb.Sheets("Assign").Cells(32, 4)

ActiveDocument.SaveAs2 FileName:=exWb.Sheets("Assign").Cells(5, 4).Value & "Schedule.rtf", _
        FileFormat:=wdFormatRTF


exWb.Close

Set exWb = Nothing
Set objExcel = Nothing
End Sub

I have an excel workbook named madokero18a with a Sheet named Assign.


Somebody please help!!! Thanks.