Print out embedded Word object
 

I have embedded a word document in a excel sheet and now want to
figure out how to print the word document using VBA. I found the
following in one of the groups and it seems to error out at Set wDoc =
wObject.Object
"Type mismatch"

I think that I have all the references set correctly.

I would appreciated any help you might be able to provide.

Sub OpenPrintCloseWordDoc()
Dim wksDocs As Worksheet
Dim wObject As OLEObject
Dim wDoc As Word.Document

Set wksDocs = ThisWorkbook.Worksheets("Well Summary")
For Each wObject In wksDocs.OLEObjects
wObject.Activate
Set wDoc = wObject.Object
wDoc.PrintOut
wDoc.Close
Next wObject
End Sub

Print out embedded Word object
 

After some further searching I also found this. I get an error at
ActiveSheet.OLEObjects(i).Object.Application.Print Out when I use it in
the workbook I am developing.

When I copy this code to a newly created blank workbook and embed a
word file - it works fine. Does anyone have any ideas why it would
work correctly in one instance and not the other?


Sub otherprint()
For i = 1 To ActiveSheet.OLEObjects.Count
ActiveSheet.OLEObjects(i).Activate
ActiveSheet.OLEObjects(i).Object.Application.Print Out
ActiveSheet.OLEObjects(i).Object.Close
Next i
End Sub



On Apr 28, 1:16*pm, wrote:
I have embedded a word document in a excel sheet and now want to
figure out how to print the word document using VBA. I found the
following in one of the groups and it seems to error out at Set wDoc =
wObject.Object
"Type mismatch"

I think that I have all the references set correctly.

I would appreciated any help you might be able to provide.

Sub OpenPrintCloseWordDoc()
Dim wksDocs As Worksheet
Dim wObject As OLEObject
Dim wDoc As Word.Document

Set wksDocs = ThisWorkbook.Worksheets("Well Summary")
For Each wObject In wksDocs.OLEObjects
wObject.Activate
Set wDoc = wObject.Object
wDoc.PrintOut
wDoc.Close
Next wObject
End Sub

Print out embedded Word object
 

Okay solved the problem - I also had an ole button on the sheet and
the code was trying to act on it as well and was creating the error.

On Apr 28, 3:19*pm, wrote:
After some further searching I also found this. I get an error at
ActiveSheet.OLEObjects(i).Object.Application.Print Out when I use it in
the workbook I am developing.

When I copy this code to a newly created blank workbook and embed a
word file - it works fine. Does anyone have any ideas why it would
work correctly in one instance and not the other?

Sub otherprint()
For i = 1 To ActiveSheet.OLEObjects.Count
* *ActiveSheet.OLEObjects(i).Activate
* *ActiveSheet.OLEObjects(i).Object.Application.Prin tOut
* *ActiveSheet.OLEObjects(i).Object.Close
Next i
End Sub

On Apr 28, 1:16*pm, wrote:



I have embedded a word document in a excel sheet and now want to
figure out how to print the word document using VBA. I found the
following in one of the groups and it seems to error out at Set wDoc =
wObject.Object
"Type mismatch"

I think that I have all the references set correctly.

I would appreciated any help you might be able to provide.

Sub OpenPrintCloseWordDoc()
Dim wksDocs As Worksheet
Dim wObject As OLEObject
Dim wDoc As Word.Document

Set wksDocs = ThisWorkbook.Worksheets("Well Summary")
For Each wObject In wksDocs.OLEObjects
wObject.Activate
Set wDoc = wObject.Object
wDoc.PrintOut
wDoc.Close
Next wObject
End Sub- Hide quoted text -

- Show quoted text -