Inserting Word text (with pictures) in an Excel cell

[Ghost_Line]

Hi !

I'm looking for a solution to "paste" a Word document's content into an Excel cell. I need that nor the Word file and Excel file appear on screen during the operation. Has anyone already done this ?

Thanks !

[water]

How large is the document?

There are Copy and Paste methods in both the Word and Excel COM. But when pasting to Excel I fear the formatting will give you some headache.

[Ghost_Line]

Not so big ... it has roughly to fit on a quarter A4 page, in order to let some space to the other informations I put on the Excel file. Ultimately, the whole thing must be printable on a single A4 paper page.

Edited May 17, 2013 by GhostLine

[water]

If you manually copy the Word document into the Excel cell are you happy with the formatting?

[Ghost_Line]

Yes sir I especially format the Word file to fit onto the Excel cell.

Edited May 17, 2013 by GhostLine

[water]

I would suggest the following approach:

#include <Word.au3>
#include <Excel.au3>

Global $oWordApp = _WordCreate("")
Global $oDoc = _WordDocOpen($oWordApp, @ScriptDir & "\_Word_Test.doc")
Global $oRange = $oDoc.Range ; select the whole document
Global $vContent = $oRange.Copy ; Copy to the clipboard
_WordQuit($oWordApp)

$oExcel = _ExcelBookOpen(@ScriptDir & "\_Excel.xls")
$oExcel.ActiveSheet.Paste

Edited May 17, 2013 by water

[Ghost_Line]

Is there a way to determine a destination cell for the paste ?

[water]

Sure. Paste to cell B2:

#include <Word.au3>
#include <Excel.au3>

Global $oWordApp = _WordCreate("")
Global $oDoc = _WordDocOpen($oWordApp, @ScriptDir & "\_Word_Test.doc")
Global $oRange = $oDoc.Range ; select the whole document
Global $vContent = $oRange.Copy ; Copy to the clipboard
_WordQuit($oWordApp)

$oExcel = _ExcelBookOpen(@ScriptDir & "\_Excel.xls")
$oExcel.ActiveSheet.Range("B2").Select()
$oExcel.ActiveSheet.Paste

Edited May 17, 2013 by water

[Ghost_Line]

Thank you so much

[water]

Glad to be of service