open and manipulate embedded word documents from excel?

**mcledavid** · 09-17-2009, 02:14 PM

I am trying to open several word documents embedded in excel, open them in word, and save them to a folder on the computer using excel vba. I can get the embedded document to open, but it loses control of the opened document after that and opens a new instance of word. Can anyone help on this?

**mcledavid** · 09-17-2009, 04:55 PM

Here is the code I am using so far....

Sub ExcelToExistingWordDoc()
Dim MyDir As String
Dim strPath As String
Dim WrdApp As Word.Application
Dim wrdDoc As Word.Document
Dim windowCt As Integer

MyDir = ActiveWorkbook.Path
strPath = MyDir & "\Sample Touchpoint"
' Reference instance of Word
On Error Resume Next
' Check whether Word is running
ActiveSheet.Shapes("Object 46").Select

Selection.Verb Verb:=xlOpen
Set wrdDoc = WrdApp.ActiveDocument
GoTo Line29:

Line29:
With wrdDoc

''---------------------
'' Do Some Stuff Here
''---------------------

.SaveAs (strPath & "\TESTPRES.doc")
.Close
End With
WrdApp.Quit

Set wrdDoc = Nothing
Set WrdApp = Nothing

End Sub

for some reason, right after the Selection.Verb Verb =xlOpen command, the macro completely halts, and I'm left sitting in word with the open document. Any ideas of where I may be missing something?

**shg** · 09-17-2009, 05:04 PM

Please take a few minutes to read the forum rules, and then edit your post to add code tags.

Thanks.

**shg** · 09-17-2009, 09:27 PM

Also read the forum rules about cross-posting.

**mcledavid** · 09-21-2009, 04:24 PM

Sorry, shg. Is there anyone who has any suggestions based on the aforementioned problem?

I've been doing some reading and I think I may have to create a new class variable to monitor the actions taking place in MS Word after I open the embedded word document. Not sure I quite understand this. can anyone help? Thanks