• 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 24



The canonic synonym, usually used in preference to the plural, is every [class name], which means the same thing. The usual For Each loop in VBA iterating through every member of a collection translates to a repeat loop in AppleScript, as explained in Chapter 2. (You get a choice between repeat with someObject in (every element) or repeat with i from 1 to (count every element).)

Unlink Fields

First, here is a simple VBA macro operating on the Fields Collection, with a simple translation to AppleScript via a repeat loop on a list:

For Each oField In ActiveDocument.Fields
    oField.Unlink
Next oField

becomes

tell application "Microsoft Word"

     set allFields to (every field of active document)

     repeat with oField in allFields

          unlink oField

     end repeat

end tell

That works. Here follows a small side-issue, which you can skip if you're not interested in the reasons why it can't be optimized further: It would be reasonable to hope that we could optimize this by using AppleScript's ability to have commands act on a whole list at once (see the last section of Chapter 2) and avoid the tedious repeat loop:

tell application "Microsoft Word"

     unlink (every field of active document)

end tell

…but having a command act on a list does not always work: the application developers need to have implemented it. In this case it does not work: you get an error, even when using the explicit get or a variable, that "{field 1 of active document, field 2 of active document, …} does not understand the unlink message." If you check the document, you'll see that the first field was in fact unlinked, but no others: it's just that the unlink command has not been implemented to work on lists. In most cases in Word, Excel and PowerPoint, unlike Entourage, that will be the case. The commands mostly mirror the VBA Methods from which they have been derived, which do not know anything about lists. It's too bad, but outside a few exceptions you might come upon, you'll have to use repeat loops.

In the repeat loop example above that does work, you first need to set a variable (allFields) and refer to that. If you instead try the following, without a variable, even with the explicit get:

     repeat with oField in (get every field of active document)

          unlink oField

     end repeat

you will get an error that some field "does not understand the unlink message". That's because the fields keep getting re-indexed as they get unlinked, skipping every second one, until the index is larger than the number of fields left. You‘d have to do it this way instead:

tell application "Microsoft Word"

     repeat with i from (count (get every field of active document)) to 1 by -1

          set oField to item i of (get every field of active document)

          unlink oField

     end repeat

end tell



< 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