• MacTech Network:
  • Tech Support
  • |
  • MacForge.net
  • |
  • Apple News
  • |
  • Register Domains
  • |
  • SSL Certificates
  • |
  • iPod Deals
  • |
  • Mac Deals
  • |
  • Mac Book Shelf

MAC TECH

  • Home
  • Magazine
    • About MacTech in Print
    • Issue Table of Contents
    • Subscribe
    • Risk Free Sample
    • Back Issues
    • MacTech DVD
  • Archives
    • MacTech Print Archives
    • MacMod
    • MacTutor
    • FrameWorks
    • develop
  • Forums
  • News
    • MacTech News
    • MacTech Blog
    • MacTech Reviews and KoolTools
    • Whitepapers, Screencasts, Videos and Books
    • News Scanner
    • Rumors Scanner
    • Documentation Scanner
    • Submit News or PR
    • MacTech News List
  • Store
  • Apple Expo
    • by Category
    • by Company
    • by Product
  • Job Board
  • Editorial
    • Submit News or PR
    • Writer's Kit
    • Editorial Staff
    • Editorial Calendar
  • Advertising
    • Benefits of MacTech
    • Mechanicals and Submission
    • Dates and Deadlines
    • Submit Apple Expo Entry
  • User
    • Register for Ongoing Raffles
    • Register new user
    • Edit User Settings
    • Logout
  • Contact
    • Customer Service
    • Webmaster Feedback
    • Submit News or PR
    • Suggest an article
  • Connect Tools
    • MacTech Live Podcast
    • RSS Feeds
    • Twitter

Moving from Microsoft Office VBA to AppleScript:
MacTech's Guide to Making the Transition

Introduction  |  Table of Contents

Page Prev and Page Next buttons at bottom of the page.

Would you like a hard copy
or PDF of this Guide?

You can get a hard copy sent to you
AND download a PDF now ($19.95)
, or

... just download a PDF ($9.95).

Either way, you get a complimentary
MacTech Magazine Subscription

courtesy of the
Microsoft Mac Business Unit


 

  Magazine Reg. Price:  $50.00 value  
  Guide Reg. Price:  $40.00 value  
  You Save:  over $80.00!  

April, 2007
Page 15



Instead, the objects (such as headers and footers in Word) are "stand-alone" classes that can only be ’got‘ by proprietary commands in the dictionary, not as elements or properties of a containing class (such as section) as you might expect. Some examples of this sort will be mentioned as they come up in the various application chapters, and it is something you need to be alert to: always check the dictionary to verify if an object is "contained by" another class other than base object, or if you can only get it by a specific command that you might need to search for using the Search box.

An Example of Removing Code Not Needed in AppleScript

As a review, here's a fairly extensive example of the sort of code you might well run into in a macro in one of the Office applications, calling another one, and how much of the macro needs to be stripped away in AppleScript. This particular example needs to run some Word code from a macro in Excel. Not only the bit that invokes an existing or new instance of Word needs to be removed (as in "Invoking one Office application from another", above), but also, as we have now seen, every Dim declaration, and some of the error handling too.

Here is the VBA subroutine (derived from "Control Word from Excel" by Bill Coan and Dave Rado: <http://www.word.mvps.org/FAQs/InterDev/ControlWordFromXL.htm>):

 

Sub ControlWordFromXL()

 

Dim oWord As Word.Application

Dim WordWasNotRunning As Boolean

Dim oDoc As Word.Document

Dim myDialog As Word.Dialog

Dim UserButton As Long

 

'Get existing instance of Word if it's open; otherwise create a new one

 

On Error Resume Next

 

Set oWord = GetObject(, "Word.Application")

If Err Then

Set oWord = New Word.Application

WordWasNotRunning = True

End If

 

On Error GoTo Err_Handler

 

oWord.Visible = True

oWord.Activate

Set oDoc = oWord.Documents.Add

 

' code here to manipulate the document

 

oDoc.Close savechanges:=wdDoNotSaveChanges

 

If WordWasNotRunning Then

oWord.Quit

End If

 

'Make sure you release object references.

 

Set oWord = Nothing

Set oDoc = Nothing

Set myDialog = Nothing

 

'quit

Exit Sub

 

Err_Handler:

MsgBox "Word caused a problem. " & Err.Description, vbCritical, "Error: " _

& Err.Number

If WordWasNotRunning Then

oWord.Quit

End If

 

End Sub

And here's the AppleScript equivalent, presented this time as a subroutine (handler) rather than as a top-level script, which you would do especially if you might want to use the same code frequently in several scripts:

to ControlWord()

    -- no need for any Dim statements

    -- no need for a try/error block to invoke Word

    -- no need to create a new instance of Word specifically, but

   



< Previous Page Next Page>
 
MacTech Only Search:
Community Search:

 
 
 

 
 
 
 
 
  • SPREAD THE WORD:
  • Slashdot
  • Digg
  • Del.icio.us
  • Reddit
  • Newsvine
  • Generate a short URL for this page:



MacTech Magazine. www.mactech.com
Toll Free 877-MACTECH, Outside US/Canada: 805-494-9797
MacTech is a registered trademark of Xplain Corporation. Xplain, "The journal of Apple technology", Apple Expo, Explain It, MacDev, MacDev-1, THINK Reference, NetProfessional, Apple Expo, MacTech Central, MacTech Domains, MacNews, MacForge, and the MacTutorMan are trademarks or service marks of Xplain Corporation. Sprocket is a registered trademark of eSprocket Corporation. Other trademarks and copyrights appearing in this printing or software remain the property of their respective holders.
All contents are Copyright 1984-2010 by Xplain Corporation. All rights reserved. Theme designed by Icreon.
 
Nov. 20: Take Control of Syncing Data in Sow Leopard' released
Nov. 19: Cocktail 4.5 (Leopard Edition) released
Nov. 19: macProVideo offers new Cubase tutorials
Nov. 18: S Stardom anounces Safe Capsule, a companion piece for Apple's
Nov. 17: Ableton releases Max for Live
Nov. 17: Ableton releases Max for Live
Nov. 17: Ableton releases Max for Live
Nov. 17: Ableton releases Max for Live
Nov. 17: Ableton releases Max for Live
Nov. 17: Ableton releases Max for Live
Nov. 17: Ableton releases Max for Live
Nov. 17: Ableton releases Max for Live
Nov. 17: Ableton releases Max for Live
Nov. 17: Ableton releases Max for Live