Export embedded Word document and set data

[Cosmo]

I need to save a Word document that has been inserted into an Excel file, then be able to populate it with values entered into the Excel document. My experience with VBA in Word and Excel is very limited (most of my work has involved PowerPoint), and I haven't seen exactly how to save out the Word document.

Can anyone point me in the correct direction to save the document into a specific location, and reference it's objects? (I specifically need to fill data into various cells in a table)

[Kenneth Hobs]

Sub OpenADoc()
Dim mpWord As Object
Dim mpDoc As Object

ActiveSheet.OLEObjects("Object 1").Verb xlPrimary
Do
Set mpWord = GetObject(, "Word.Application")
mpWord.Visible = True
Set mpDoc = mpWord.ActiveDocument
Loop Until Not mpDoc Is Nothing

With mpDoc
.Range(.Content.Start, .Content.End).Copy
End With

mpDoc.Close
mpWord.Quit
Set mpDoc = Nothing
Set mpWord = Nothing

Worksheets("Sheet2").Paste
End Sub

[Cosmo]

Thanks! That looks like that should get me pretty well started.



Sub OpenADoc()
Dim mpWord As Object
Dim mpDoc As Object

ActiveSheet.OLEObjects("Object 1").Verb xlPrimary
Do
Set mpWord = GetObject(, "Word.Application")
mpWord.Visible = True
Set mpDoc = mpWord.ActiveDocument
Loop Until Not mpDoc Is Nothing

With mpDoc
.Range(.Content.Start, .Content.End).Copy
End With

mpDoc.Close
mpWord.Quit
Set mpDoc = Nothing
Set mpWord = Nothing

Worksheets("Sheet2").Paste
End Sub