Want to have data linkefrom excel into a word document in a certain way, is this possible?

Originally Posted by mrice

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

Thanks for your help! Can't access those at the moment since im using a mac and it doesnt seem to happy with it, but will give it a go when i get on a windows computer!

Could you clarify what you mean by "so all you need is to read from the restricted weekly sheet" could you clarify what you mean by this? (Sorry to be a pain! All of this is quite new to me!)