Update document (Word file) on workbook open

Hello everyone
Is there a way to update word document from cells in Sheets("INF") on workbook open
I put example for word template

In the third line the text "2015 / 2016"
would be updated according to sheets("INF").range("B5')

The same with the text "My Regards"
Would be updated according to Sheets("INF").range("B3")
Hope it is clear ..
Thanks advanced

Is it possible or would it be difficult to be done?

Hello YasserKhalil,

Can you post an Excel workbook that has the data to be inserted into the Word document?

Thanks Mr. Leith for reply
Here's normal file with the texts which I need to update the word document with

Hello Yasser,

Is this "2015 / 2016" the only text for paragraph 3 or will it be inserted at the end of a line like in your example?

Is the same true for "My Regards" ?

Hello Mr. Leith
sorry for late reply
As for the word template is almost fixed in the structure
I will attach again the two files (template document - excel file)
All what I need is to run a macro in the excel file to change the underlined text in the word template ..
As in the new attachment >>> the text "2014 / 2015" in the template would be the same value as in the excel file in Range("B5")
the text "Thanks" in the template would be the same value as in the excel file in Range("B3")

Hope it is clear now

Any other questions Mr. Leith?

Hello Yasser,

Here is the updated workbook. This will insert the data from the cells B3 and B5 of the worksheet INF into the specified Word document.

Change the file path to where your Word document is saved.

Module1 Macro Code

Please Login or Register  to view this content.

Workbook_Open Event Code

Please Login or Register  to view this content.

Thanks a lot for this wonderful code
I traced it using F8 and everything is ok but when opening the doc file I found results are not correct ...
May be we can use different variables for Text variable?!

Hello Yasser,

When you say "I found the results are not correct", do you mean the changes were not saved?

Thanks I found the problem point
It's this line

Please Login or Register  to view this content.

Should be

Please Login or Register  to view this content.

How can I replace specific word in the whole word document ...?

Hello Yasser,

You can replace a word throughout the Word document using the Word Find method. If you need help with coding this, let me know.

Yes I'm in the same context as I need to replace specific words ..say array of words with another array

Old =Array("Testy","Yaser","Hallo")
with the following array of words

New=Array("Test","Yasser","Hello")

Hope it is clear and simple

Hello Yasser,

This should work.

Please Login or Register  to view this content.

Thank you very very much for all this great and awesome help
Regards

Hello Yasser,

You're welcome. Should I mark this post as solved?

FWIW, if you're always using the same Excel workbook and cells, you can do the lot without code. Simply copy the Excel cell, switch to the Word document and use Paste Special with the 'Paste Link' option and the paste format of your choice. If you need the same cell replicated in a number of places in the Word document, you could either:
• replicate the link for each instance (e.g. by copying & pasting the first link to each subsequent location); or
• bookmark the linked range then cross-reference the bookmark.
The first option will update all references when the document is opened but will slow down the opening; the second option will update the first reference and the others will need the cross-references updated (e.g. via Ctrl-A, F9)

Thanks a lot Mr. Paul for this useful information
Regards