How to goto the Last Page of Word and PPT

[alexzhao 0]

I am new to autoIT script, I have a requirement to open a Word and a PPT file, then goto the last Page of Word and PPT file. Could someone share the sample code of this? Thank you very much.

[Jfish 125]

This will get you to the end of the Word doc:

#include <MsgBoxConstants.au3>
#include <Word.au3>

; Create application object
Local $oWord = _Word_Create()
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocOpen Example", _
        "Error creating a new Word application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended)

Local $sDocument = @ScriptDir & "\testdoc.docx"; YOUR FILENAME GOES HERE
_Word_DocOpen($oWord, $sDocument, Default, Default, True)

$oWord.ActiveDocument.Characters.Last.Select; puts cursor after the last characters

 

[water 2,359]

Why do you want to go to the last page? To the top or the end of the last page?

[alexzhao 0]

Why do you want to go to the last page? To the top or the end of the last page?

To Water,

Yes, the test step require to open the Word first and then goto the last page, Top or end of  the last page doesn't matter. 

Edited September 6, 2015 by alexzhao
repost with change

[alexzhao 0]

 

This will get you to the end of the Word doc:

#include <MsgBoxConstants.au3>
#include <Word.au3>

; Create application object
Local $oWord = _Word_Create()
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocOpen Example", _
        "Error creating a new Word application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended)

Local $sDocument = @ScriptDir & "\testdoc.docx"; YOUR FILENAME GOES HERE
_Word_DocOpen($oWord, $sDocument, Default, Default, True)

$oWord.ActiveDocument.Characters.Last.Select; puts cursor after the last characters

 

Hi Jfish,

This code works for me, by the way, how about the same function with PPT, open the PPT, then goto the last page, any suggestion? Thank you for the kindly help. 

[Jfish 125]

Try this:

$oPPT = ObjCreate("PowerPoint.Application")
$oPresentation = $oPPT.Presentations.Open(@ScriptDir&"\test.pptx"); YOUR FILE NAME HERE
$oPresentation.Slides($oPresentation.Slides.Count).Select

 

Edited September 6, 2015 by Jfish

[computergroove 33]

Send("{CTRLDOWN}{END}{CTRLUP}")

 

might help

[Jfish 125]

Send("{CTRLDOWN}{END}{CTRLUP}")

 

might help

@computergroove - That could also work but I think sending keystrokes would be much less reliable than going through the com API.