スキップしてメイン コンテンツに移動

AppleScript : tell application "Microsoft Word" したら、あれ!仮想マシンのWordが起動された!!!

tell application "Microsoft Word"

    set newDoc to make new document

end tell

このように新しワード文書を作ろうと思ったら、Parallels Desktop 仮想マシン内の Word が起動しようとします。

恐らく VMware Fusion を入れた場合も同じ現象が発生しますが、

当分の方法として、わざと"Microsoft Word 2011" とかに変更すると、アプリを選択する画面が出てきますので、Word を選択すれば解決できます。


【追記】もっといい方法を見つかりました。

set WordApp to "/Applications/Microsoft Office 2011/Microsoft Word.app"
if not application WordApp is running then
    tell application WordApp
        activate
    end tell
end if
tell application WordApp
    set newDoc to make new document
end tell
しっかりパスまで指定します。

【更に追記】
set ExcelApp to "/Applications/Microsoft Office 2011/Microsoft Excel.app"
tell application ExcelApp
    set wk to open excelFile
    activate object worksheet "sheet1"
end tell

上記の書き方は開くの問題は解決しましたが、構文エラーになってしまいます。


ということは仮想マシンのアプリケーションを削除するしかありません。。。
ユーザの ~/Applications の下にありました。
MyMac:Applications myname$ sudo rm -rf Windows\ 7\ x64\ trad-chinese\ Applications.app/
MyMac:Applications myname$ sudo rm -rf Windows\ XP\ Professional\ template\ Applications.app/

すると構文エラーがなくなりました。

shyunsei.9ten.net

コメント

このブログの人気の投稿

余裕ですかね。

  いまの自分はやることが多いが、意外と慌てず一歩一歩現場と歩んでいき、地道にデータ入力から可視化までの利便性、完全性と正確性を追求する余裕が出ております。SpotfireというBIツールにハマり、人に使い方を教えながらもまたその恩恵を受けているといういい循環も大きいですね。大体自分のようなポストにいる人たちはあまりプログラムを書く余裕もないだが、自分は幸せのほうと思います。

自己流思い付き

 長年契約してきたさくらインターネットのVPSに稼働しているWordpressが何らかのものに削除されました。幸い残したいものはこのブログに移したので、あまり困ったことはありませんでした。もうVPSを解約しようと思いますが、今年の11月までの契約なので、正直って迷っております。  職場のホームページサーバがMacmini上のピュアDebianなので、実験台としてVPSを契約したのですが、もう実験しないし、解約してもよいだと思います。   このブログもこれをきっかけにタイトルを変えました。

Excel Power Query 英数字の全角から半角への変換

最近仕事上でExcelのPower Queryを始めました。しかし、英数字の全角から半角への変換関数がないため、下記のサイトを参考して、 作っちゃいました。  https://qiita.com/baku2san/items/8041d0259fe0db680e7e https://www.yoheim.net/blog.php?q=20191101 (original as text) as text =&gt; let    originalText = Text.Combine({original, ""}),    replaceResult =  Web.Page("<script>var originalText="&"'"&originalText&"'"&";var result=originalText.replace(/[A-Za-z0-9]/g, function(s) {return String.fromCharCode(s.charCodeAt(0) - 0xFEE0);});document.write(result);</script>")       [Data]{0}[Children]{0}[Children],    result = if (List.Count(replaceResult) &lt;= 1) then    {        "" as text // 変換して何も残らない場合    } else if (replaceResult{1}[Text]{0} = null) then    {       originalText   as text// 何も見つからない場合    }  else {       replaceResult{1}[Text]{0} as text    } in     result{0}