Excel field pushed into multiple locations on word document?

[wilrich25]

Hello, I am looking for someone to write code to push information in a single cell on an excel document to multiple locations on a word document.

so the info is a job number and i would like it to be entered the one time in the excel document ant then placed in the word document on the cover page in the middle and on the footer of every page within the "proposal" (word document)

if anyone has some time to spare for this matter it would be greatly appreciated

 

[Trevor G]

What I suggest is to have a bookmark in the word document and then you can code the excel workbook to open the document and go to the bookmark and paste it in. Example below:

Sub word1()
'Set the reference to use Microsoft Word
'Tools Menu and References Search down for Word
Dim wrdApp As Word.Application
Set wrdApp = CreateObject("Word.Application")
Sheets("SheetName").Range("Cell ID").Copy 'Add Sheet Name and Cell
With wrdApp
.Visible = True
.Documents.Open "Full Path to document and .doc" 'Full Path to document and its name
.Selection.GoTo What:=wdGoToBookmark, Name:="Test" 'Go to a bookmark
.Selection.PasteExcelTable False, False, False
.WordBasic.ViewFooterOnly
ActiveDocument.AttachedTemplate.BuildingBlockEntries(" Blank").Insert _
Where:=Selection.Range, RichText:=True
.Selection.Paste
.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End With


End Sub