名前 題名 ▼ 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/Office2000Help.htm > > procedure TForm1.WordApplication1DocumentBeforeClose(ASender: TObject; > const Doc: _Document; var Cancel: WordBool); > begin > // > end; > > procedure TForm1.WordDocument1Close(Sender: TObject); > begin > // > end; > GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link