Jump to content
sparrow925

Word - Change Paper Size (Simple syntax problem)

Recommended Posts

sparrow925

Hi there,

Line 5 is my attempt to change the paper size on a word document. An error pops up telling me that the item after "$oDoc." must be an object. 

For $count = 0 To UBound($aFileList)-1
   Local $sDocument = $sOpenFrom&"\"&$aFileList[$count]&".doc"
   Local $oDoc = _Word_DocOpen($oWord, $sDocument, Default, Default, Default)
   ; Change page size to Letter
   $oDoc.PageSetup.PaperSize = $wdPaperLetter
   ; Save and close
   _Word_DocClose($oDoc, $WdSaveChanges, $WdOriginalDocumentFormat)
Next

I've tried to solve it myself, but it seems I am ignorant enough to not even know the right question to ask. Can someone who understands the bones of all this help me out? Any insight or explanation would be appriciated!

 

Edit to add: I've also tried  $oDoc.Activewindow.PageSetup.PaperSize = $wdPaperLetter and get the same error message. Do I need to select a range? Grah.

Edited by sparrow925

Share this post


Link to post
Share on other sites
BrewManNH

Try replacing $oDoc with $oWord in that line.


If I posted any code, assume that code was written using the latest release version unless stated otherwise. Also, if it doesn't work on XP I can't help with that because I don't have access to XP, and I'm not going to.
Give a programmer the correct code and he can do his work for a day. Teach a programmer to debug and he can do his work for a lifetime - by Chirag Gude
How to ask questions the smart way!

I hereby grant any person the right to use any code I post, that I am the original author of, on the autoitscript.com forums, unless I've specifically stated otherwise in the code or the thread post. If you do use my code all I ask, as a courtesy, is to make note of where you got it from.

Back up and restore Windows user files _Array.au3 - Modified array functions that include support for 2D arrays.  -  ColorChooser - An add-on for SciTE that pops up a color dialog so you can select and paste a color code into a script.  -  Customizable Splashscreen GUI w/Progress Bar - Create a custom "splash screen" GUI with a progress bar and custom label.  -  _FileGetProperty - Retrieve the properties of a file  -  SciTE Toolbar - A toolbar demo for use with the SciTE editor  -  GUIRegisterMsg demo - Demo script to show how to use the Windows messages to interact with controls and your GUI.  -   Latin Square password generator

Share this post


Link to post
Share on other sites
water

$oDoc is correct as PageSetup is a property of the document object.
Can you check that _Word_DocOpen doesn't return an error?


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (2018-06-01 - Version 1.4.9.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2018-09-01 - Version 1.3.4.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts
PowerPoint (2017-06-06 - Version 0.0.5.0) - Download - General Help & Support
Excel - Example Scripts - Wiki
Word - Wiki
 
Tutorials:

ADO - Wiki

 

Share this post


Link to post
Share on other sites
sparrow925

I tried $oWord for the heck of it, that's not the solution. Thanks though, KingBob.

Water, no interesting error value is returned. @error = 0

Share this post


Link to post
Share on other sites
water

Let's check if we have the needed objects:

For $count = 0 To UBound($aFileList)-1
   Local $sDocument = $sOpenFrom&"\"&$aFileList[$count]&".doc"
   Local $oDoc = _Word_DocOpen($oWord, $sDocument, Default, Default, Default)
   ConsoleWrite("$oDoc: " & IsObj($oDoc) & @CRLF)
   ConsoleWrite("$oDoc.PageSetup: " & IsObj($oDoc.PageSetup) & @CRLF)
   ; Change page size to Letter
   $oDoc.PageSetup.PaperSize = $wdPaperLetter
   ; Save and close
   _Word_DocClose($oDoc, $WdSaveChanges, $WdOriginalDocumentFormat)
Next

 


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (2018-06-01 - Version 1.4.9.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2018-09-01 - Version 1.3.4.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts
PowerPoint (2017-06-06 - Version 0.0.5.0) - Download - General Help & Support
Excel - Example Scripts - Wiki
Word - Wiki
 
Tutorials:

ADO - Wiki

 

Share this post


Link to post
Share on other sites
sparrow925

Hrm. Error popup:

ConsoleWrite("$oDoc.PageSetup: " & IsObj($oDoc^ ERROR
Error: Variable must be of type "Object".

 

Share this post


Link to post
Share on other sites
water

Which version of Autoit do you run?


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (2018-06-01 - Version 1.4.9.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2018-09-01 - Version 1.3.4.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts
PowerPoint (2017-06-06 - Version 0.0.5.0) - Download - General Help & Support
Excel - Example Scripts - Wiki
Word - Wiki
 
Tutorials:

ADO - Wiki

 

Share this post


Link to post
Share on other sites
sparrow925

As far as I can tell: v3.3.12.0

Share this post


Link to post
Share on other sites
water
For $count = 0 To UBound($aFileList)-1
   Local $sDocument = $sOpenFrom & "\" & $aFileList[$count] & ".doc"
   ConsoleWrite("Document: " & $sDocument & @CRLF)
   Local $oDoc = _Word_DocOpen($oWord, $sDocument, Default, Default, Default)
   ConsoleWrite("Doc Open: " & @error & "-" & @extended & @CRLF)
   ConsoleWrite("$oDoc: " & IsObj($oDoc) & @CRLF)
   ConsoleWrite("$oDoc.PageSetup: " & IsObj($oDoc.PageSetup) & @CRLF)
   ; Change page size to Letter
   $oDoc.PageSetup.PaperSize = $wdPaperLetter
   ; Save and close
   _Word_DocClose($oDoc, $WdSaveChanges, $WdOriginalDocumentFormat)
Next

 


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (2018-06-01 - Version 1.4.9.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2018-09-01 - Version 1.3.4.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts
PowerPoint (2017-06-06 - Version 0.0.5.0) - Download - General Help & Support
Excel - Example Scripts - Wiki
Word - Wiki
 
Tutorials:

ADO - Wiki

 

Share this post


Link to post
Share on other sites
sparrow925

It errors out at the same point :(

ConsoleWrite("$oDoc.PageSetup: " & IsObj($oDoc^ ERROR

Share this post


Link to post
Share on other sites
water

Can you please post the whole output you get in the ScIte output pane?


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (2018-06-01 - Version 1.4.9.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2018-09-01 - Version 1.3.4.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts
PowerPoint (2017-06-06 - Version 0.0.5.0) - Download - General Help & Support
Excel - Example Scripts - Wiki
Word - Wiki
 
Tutorials:

ADO - Wiki

 

Share this post


Link to post
Share on other sites
sparrow925

I changed gears a little, because I suspect the filepath was wrong and I wasn't seeing how. This seemed to help -- now the error message seems more helpful.

Local $oWord = _Word_Create()
Local $sDocument = "C:\Users\user\Desktop\Test\document.doc"
Local $oDoc = _Word_DocOpen($oWord, $sDocument, Default, Default, Default)

$oDoc.PageSetup.PaperSize = $wdPaperLetter

_Word_DocClose($oDoc, $WdSaveChanges, $WdOriginalDocumentFormat)

_Word_Quit($oWord)
Exit

The document opens, it thinks a little, and I get this error: It doesn't like $wdPaperLetter as a variable. "Varibale being used without being declared."

 

Am I formatting this change line incorrectly?

Share this post


Link to post
Share on other sites
water

Add

Global Const $wdPaperLetter = 2 ; Letter dimensions

at the top of your script.


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (2018-06-01 - Version 1.4.9.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2018-09-01 - Version 1.3.4.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts
PowerPoint (2017-06-06 - Version 0.0.5.0) - Download - General Help & Support
Excel - Example Scripts - Wiki
Word - Wiki
 
Tutorials:

ADO - Wiki

 

Share this post


Link to post
Share on other sites
sparrow925

Thanks, that fixed it!

Share this post


Link to post
Share on other sites
water

:)


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (2018-06-01 - Version 1.4.9.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2018-09-01 - Version 1.3.4.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts
PowerPoint (2017-06-06 - Version 0.0.5.0) - Download - General Help & Support
Excel - Example Scripts - Wiki
Word - Wiki
 
Tutorials:

ADO - Wiki

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×