Word - Change Paper Size (Simple syntax problem)

[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 August 20, 2015 by sparrow925

[BrewManNH]

Try replacing $oDoc with $oWord in that line.

[water]

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

[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

[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

 

[sparrow925]

Hrm. Error popup:

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

 

[water]

Which version of Autoit do you run?

[sparrow925]

As far as I can tell: v3.3.12.0

[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

 

[sparrow925]

It errors out at the same point

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

[water]

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

[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?

[water]

Add

Global Const $wdPaperLetter = 2 ; Letter dimensions

at the top of your script.

[sparrow925]

Thanks, that fixed it!

[water]