VBA: Access Excel from Word

I need a word VBA Macro which does the following: Function 1: from a selection of a text ("this is a test sentence.") within word: extract the first three words as an array call excel from within word, open a new excel spreadsheet and write the three words in the spreadsheet: A1: "this" B2: "is" C3: "a" Function 2: macro is started from Word. an excel file is open on the system. the spreadsheet contains: A1: "from" B1: 0 A2: "excel" B2: 1 A3: "to" B3: 0 A4: "word" B4: 1 the word macro does the following: check if an excel sheet is open. if not: error message box. end macro. if excel sheet is open: the word macro reads out the excel sheet. it inserts the content of the A-column into Word. Where the respective B-column has the value '1' the text is set *bold* in word. result in word: the following text is added to the document from the excel sheet (between "*" is bold): "from *excel* to *word*" to confirm you read the description please include "code: green duck" in your bid/personal message. thanks!