sparrow925

Word - Change Paper Size (Simple syntax problem)

15 posts in this topic

#1 ·  Posted (edited)

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



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

$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 (NEW 2017-04-18 - Version 1.4.8.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2017-02-27 - Version 1.3.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites

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

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 (NEW 2017-04-18 - Version 1.4.8.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2017-02-27 - Version 1.3.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites

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

Which version of Autoit do you run?


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2017-04-18 - Version 1.4.8.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2017-02-27 - Version 1.3.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites

As far as I can tell: v3.3.12.0

Share this post


Link to post
Share on other sites
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 (NEW 2017-04-18 - Version 1.4.8.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2017-02-27 - Version 1.3.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites

It errors out at the same point :(

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

Share this post


Link to post
Share on other sites

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


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2017-04-18 - Version 1.4.8.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2017-02-27 - Version 1.3.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites

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

Add

Global Const $wdPaperLetter = 2 ; Letter dimensions

at the top of your script.


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2017-04-18 - Version 1.4.8.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2017-02-27 - Version 1.3.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites

Thanks, that fixed it!

Share this post


Link to post
Share on other sites

:)


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2017-04-18 - Version 1.4.8.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2017-02-27 - Version 1.3.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

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