喫茶XRAYトップページ
[
スレッド全体
]
[4642]
Re5:OLEObjectによるWORD操作
返信
削除
2011/4/17 (日) 09:32:09
yumapa
▼ Mr.XRAYさん
いつも、お世話になります。
[Servers]タブのコンポーネントを使用する方法に
変更して対応してみることにします。
ご教授ありがとうございました。
[4645]
Re6:OLEObjectによるWORD操作
返信
削除
2011/4/17 (日) 11:13:52
Mr.XRAY
▼ yumapaさん
> [Servers]タブのコンポーネントを使用する方法に
> 変更して対応してみることにします。
あらっ，ごめんなさい．
WordApplication := CreateOleObject('Word.Application');
となっていましたね．というか，タイトルにOLEObjectと書いてありますね．
失礼．でしたら，自分でイベントを定義してください．
WordApplication.OnDocumentBeforeClose := 自分で定義した関数名;
^^^^^^^^^^^^^^^^^^^^^
OLEObjectで生成した場合，ここは違うのかな(不明)
Word2000.pas内等を参照してください
参考までに，[Servers]タブのコンポ(Word2000の場合)のイベントの
スケルトンは以下のようにできます．
VBAのヘルプか，実際に[Servers]タブのコンポを配置して，空のイベントを
作成して確認してください．自分で作成した関数名の引数とその順序は一致
する必要があります．
VBAのヘルプは，
http://
mrxray.
on.
coocan.
jp/
Delphi/
Others/
Office20
00Help.
htm
procedure TForm1.WordApplication1DocumentBeforeClose(ASender: TObject;
const Doc: _Document; var Cancel: WordBool);
begin
//
end;
procedure TForm1.WordDocument1Close(Sender: TObject);
begin
//
end;
[
▼次のスレッド
]
INCM/CMT
Cyclamen v3.82