[Resolved] how to run a word macro from Excel

[writelearner]

I want to transfer some pieces of information from Excel to a word document
then save it as a new word document

[writelearner]

sorry it was already in the forum
this code works

Sub test()
 
Dim objExcel As Object
Set objExcel = CreateObject("word.Application")
' Make Excel visible'
objExcel.Visible = True
 
'Open template'
Dim wb As Object
Set wb = objExcel.documents.Open("F:\dummy.doc")
Set wb = objExcel.Application.Run("F:\dummy.doc!mes")
               
End Sub