Mailing Lists: Apple Mailing Lists
Image of Mac OS face in stamp
 
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Moving Word VBA to AS

Hi List,

I have a heck of a time moving my Word VBA macros to AS, in view of the next MS Office release.

1/ I need to delete text within brackets

VBA version

 With Selection.Find
        .Text = "\[*\]"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWildcards = True
    End With
Selection.Find.Execute Replace:=wdReplaceAll

AS version

set selFind to find object of myrange
set forward of selFind to true
set match wildcards of selFind to true
set wrap of selFind to find continue
tell selFind
set content to "\\[.*\\]"
set content of replacement of selFind to ""
execute find wrap find find continue replace replace all with match forward
end tell


2/ I need to delete hyperlinks

VBA version

Do Until ActiveDocument.Hyperlinks.Count = 0
ActiveDocument.Hyperlinks(1).Delete
Loop

AS  version

set theHlist to (count of hyperlink objects of selection)
repeat with i from (theHlist) to 1 by -1
-- delete  hyperlink object i of selection ?????
end repeat

Any guru to help me?

Thanks much,

Michael
 _______________________________________________
Do not post admin requests to the list. They will be ignored.
AppleScript-Users mailing list      (email@hidden)
Help/Unsubscribe/Update your Subscription:
http://lists.apple.com/mailman/options/applescript-users/email@hidden
Archives: http://lists.apple.com/archives/applescript-users

This email sent to email@hidden


Visit the Apple Store online or at retail locations.
1-800-MY-APPLE

Contact Apple | Terms of Use | Privacy Policy

Copyright © 2007 Apple Inc. All rights reserved.