AutoHotkey Community

Code: Select all

/*----------------------------------------------------------------------------*/
/*                                                                            */
/* Copyright (c) 1995, 2004 IBM Corporation. All rights reserved.             */
/* Copyright (c) 2005-2014 Rexx Language Association. All rights reserved.    */
/*                                                                            */
/* This program and the accompanying materials are made available under       */
/* the terms of the Common Public License v1.0 which accompanies this         */
/* distribution. A copy is also available at the following address:           */
/* http://www.oorexx.org/license.html                          */
/*                                                                            */
/* Redistribution and use in source and binary forms, with or                 */
/* without modification, are permitted provided that the following            */
/* conditions are met:                                                        */
/*                                                                            */
/* Redistributions of source code must retain the above copyright             */
/* notice, this list of conditions and the following disclaimer.              */
/* Redistributions in binary form must reproduce the above copyright          */
/* notice, this list of conditions and the following disclaimer in            */
/* the documentation and/or other materials provided with the distribution.   */
/*                                                                            */
/* Neither the name of Rexx Language Association nor the names                */
/* of its contributors may be used to endorse or promote products             */
/* derived from this software without specific prior written permission.      */
/*                                                                            */
/* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS        */
/* "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT          */
/* LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS          */
/* FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT   */
/* OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,      */
/* SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED   */
/* TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA,        */
/* OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY     */
/* OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING    */
/* NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS         */
/* SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.               */
/*                                                                            */
/*----------------------------------------------------------------------------*/
/**********************************************************************/
/*                                                                    */
/* SAMP05.REX: OLE Automation with Object REXX - Sample 5             */
/*                                                                    */
/* Create a new document in WordPro 97, enter some text with          */
/* different attributes and finally save and print the document.      */
/*                                                                    */
/* Since no check is done do ensure the new document does not already */
/* exist you will get a popup message from WordPro asking to          */
/* overwrite an already existing document when this sample is run     */
/* multiple times.                                                    */
/*                                                                    */
/**********************************************************************/

WordProApp = .OLEObject~New("WordPro.Application")
WordProApp~NewDocument("AutomatedDocument.lwp","","default.mwp")
WPDoc = WordProApp~ActiveDocument
WPDocText = WordProApp~Text

WordProApp~Type("This is the first paragraph entered from REXX via ")
WordProApp~Type("the OLE automation classes.[Enter]")

WordProApp~Type("The second paragraph will be changed in its ")
WordProApp~Type("appearance.")
WordProApp~SelectParagraph
WPDocText~Font~Name = "Arial"
WPDocText~Font~Bold = .True
WPDocText~Font~Italic = .True
WPDocText~Font~Size = 15

WordProApp~Type("[End][Enter][End]Document created at:" Time("N") "on" Date("N"))

WPDoc~Save

/* if you want this document printed, comment in the next line */
--WordProApp~PrintOut(1, 1, 1, .True)

say "Created" WPDoc~Path"\"WPDoc~Name

WPDoc~Close
WordProApp~Quit

Code: Select all

#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
; #Warn  ; Enable warnings to assist with detecting common errors.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.
#Persistent
SetTitleMatchMode, 2
myDir := A_ScriptDir
myEuro := "€"
myString := "Thank you. This lesson cost " . myEuro . " 100. Pay at the door."
;msgbox %myString%
myText:=
(
"Lorem ipsum dolor sit amet, consectetur adipisicing elit. Soybean gram endive greens summer. Seakale bitterleaf, other leone courgette cauliflower. Corn greens nori many those spring beet celery quandong purslane sprouts! Okra brussels, fennel horseradish sprout zucchini, quandong water. 

Root water onion coriander nuts, lotus spring water, celtuce rock salsify! Jícama other chicory bean many napa pumpkin summer gourd corn leone? Carrot plantain soko, pepper broccoli. Maize napa bologi tomato salsify greens, chard peanut ricebean turnip, daikon leek? Garbanzo kohlrabi much nuts spinach, plantain! 

Prairie cauliflower asparagus desert cabbage earthnut cauliflower salsify? Nuts aubergine much sprouts kohlrabi. Carrot ricebean fennel okra radicchio groundnut, turnip, purslane zucchini! Artichoke onion tatsoi bitterleaf beetroot nuts peanut watercress horseradish gumbo! Shallot cabbage coriander sierra courgette seed. Gumbo horseradish garbanzo daikon bell. Kakadu, seakale watercress winter garlic, a sierra together grape azuki avocado! Catsear taro chicory collard avocado lentil! Pepper quandong other!"
)

wp := ComObjCreate("WordPerfect.PerfectScript")
wpHwnd := WinExist("A")
wp.WPActivate()
wp.AppMaximize()
wp.FileNew()
wp.KeyType("This is my first text. It has one line now.")
wp.HardReturn()
wp.PosDocBottom()
wp.KeyType(myText)
wp.PosDocBottom()
wp.FileInsert(A_ScriptDir . "\lorem.wpd")
wp.HardReturn()
wp.PosDocBottom()
wp.HardReturn()
wp.HardReturn()
wp.KeyType(myString)
wp.FileSaveAsMSWord() ; At the moment the File Compatibility Pack is not available for docx.
						; A solution is expected this month (June 2018).
wp.ExitWordPerfect() ; You'll get a save dialog, so it won't bail right away.
wp =

ExitApp