ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Excel to Word Run-time error 91 (https://www.excelbanter.com/excel-programming/359771-excel-word-run-time-error-91-a.html)

lee

Excel to Word Run-time error 91
 
Below is part of a larger routine that copies pages from Excel and pastes
them into Word. This is running on numerous PC's with no problems, but on
one particular PC I'm getting a Run-Time Error 91, Object variable or with
block variable not set, that stops on wdapp.Selection.PasteSpecial.

Sub Page1()
'this subrountine prints the first page of the BOE
'select the range
Range("A2:N41").Select
'copy the range
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
'paste the range in word
wdapp.Selection.PasteSpecial Link:=False,
DataType:=wdPasteEnhancedMetafile, _
Placement:=wdlinline, DisplayAsIcon:=False
End Sub

Any ideas why it doesn't work on only one P.C? I'm not sure where to start
looking since it it set up with the same applications and directory structure
as all of the rest.

Thanks,

Lee


Jim Cone

Excel to Word Run-time error 91
 
Lee,

Something to try.
1. Replace the word constants with their numeric value...
wdPasteEnhancedMetafile is 9
wdlinline is 0

2. Tell Excel which ranges and selections you referring to as
both applications use that terminology...
Excel.Range("A2:N41") and Excel.Selection

Even better...
Excel.Range("A2:N41").CopyPicture Appearance:=Excel.xlScreen, Format:=Excel.xlPicture
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware


"Lee"
wrote in message
Below is part of a larger routine that copies pages from Excel and pastes
them into Word. This is running on numerous PC's with no problems, but on
one particular PC I'm getting a Run-Time Error 91, Object variable or with
block variable not set, that stops on wdapp.Selection.PasteSpecial.

Sub Page1()
'this subrountine prints the first page of the BOE
'select the range
Range("A2:N41").Select
'copy the range
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
'paste the range in word
wdapp.Selection.PasteSpecial Link:=False,
DataType:=wdPasteEnhancedMetafile, _
Placement:=wdlinline, DisplayAsIcon:=False
End Sub

Any ideas why it doesn't work on only one P.C? I'm not sure where to start
looking since it it set up with the same applications and directory structure
as all of the rest.
Thanks,
Lee



All times are GMT +1. The time now is 06:17 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com