You could get word to pull but, from a personal point of view, writing VBA in Excel is easier that in Word.
I would suggest that any Excel 'push' code is lcated in a separate workbook so all you need is to read from the restricted weekly sheet.
I've attached a couple of files.
Save the Word file to c:\temp
Then run the Test macro in the workbook.
The code creates a Word application, opens the template and substitutes three values. I've made a reference to the Word 14 object library. (VBA editor - tools - references)
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Sub Test()
Set WordApp = New Word.Application
Set WordDoc = WordApp.Documents.Open("C:\temp\template.docx")
WordApp.Visible = True
With WordApp.Selection.Find
.Text = "#A1#"
.Replacement.Text = Range("A1")
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
WordApp.Selection.Find.Execute Replace:=wdReplaceAll
With WordApp.Selection.Find
.Text = "#B1#"
.Replacement.Text = Range("B1")
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
WordApp.Selection.Find.Execute Replace:=wdReplaceAll
With WordApp.Selection.Find
.Text = "#C1#"
.Replacement.Text = Range("C1")
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
WordApp.Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Bookmarks