| |
はじめて書き込みします。
aichanと申します。
実は、Outlook2002のVBAと秀丸エディタのマクロを使って、Outlookメール本文の一
部を取り出し、それを秀丸エディタの該当するファイルに貼り付けるという作業の自
動化をやろうとしています。
ほぼ完成しているのですが、VBAでクリップボードに転送したはずのテキストが、秀
丸エディタのマクロ中のPasteコマンドではうまく参照できないという現象が発生し
ています。
VBAでは、該当する部分をクリップボードに転送した後、WindowsAPIで秀丸を実行し
ていて、そのコマンドラインは、該当するファイルを開いて秀丸マクロを実行すると
いうものです(以下一部抜粋）。
＞'抜き出した本文部分をクリップボードへ転送する処理
＞myData.SetText (myCopy)
＞myData.PutInClipboard
＞'秀丸エディタでマクロを起動して、メールから抜き出した文章を該当するファイ
＞ルにコピー＆ペーストする
＞strAppli = """c:\Program Files\ols\Hidemaru\Hidemaru.exe"" /x読むシリーズ
＞コピー2.mac "
＞strAppli = strAppli & """D:\My Documents\Windowsマガジン\" & myTitle & ".t
＞xt"""
＞On Error GoTo Err_Proc3
＞Call WinExec(strAppli, SW_NORMAL)
秀丸に制御が移ったときに実行されるマクロは以下の通りですが、最初のpasteコマ
ンドで何も貼り付けられません。
ちなみに、クリップボードの中身はしっかり、VBAでペーストしたものが入っていて、
その証拠にVBAを中断して、秀丸を立ち上げ、編集メニューから貼り付けを行うと正
常に貼り付けが出来ます。
耳寄りな情報がありましたら、ご教授願いますm(__)m
// 最終行へ移動
gofileend;
// コピーした文章を最終行以降に貼り付け
paste;
// 1行空行を追加
insertreturn;
// ★を検索します
searchup "^★",regular;
// タイトル行２行をコピー
beginsel;
// selectline;
// down 1;
// selectline;
down 2;
copy;
// 先頭に戻って目次にタイトル行を追加
gofiletop;
// 先頭が空白行を検索します
searchdown "^\\n",regular;
paste;
// 保存して終了します
saveexit
|
|