名前
題名
▼ Mr.XRAYさん > ▼ まるじさん、こんにちは。 > > > 元の文章が消されてしまい図だけ張り付きます。 > > (ワードの"元に戻すボタン"で書き込んであった文章は戻せます。) > > まず、以下のことを教えて下さい。 > (1) 開発Delphiのバージョン > (2) 開発Windowsのバージョンとワードのバージョン > (3) その図を貼付けた時に、ワードの文書のどの位置にどのくらい > の大きさとなっているか。 > (例　用紙の横幅一杯とか、mmのサイズとか) > (4) その図を選択した時に、周囲のグラブ(サイズ調整用の四角形の > 色(塗りつぶしか白か) > (5) もし、その図形をマウスで移動できるなら、移動したら元の > 文章が見えるようになるのか。 > > それと、テストコードで気づいたこと。 > (1) たとえテストでも生成したオブジェクトは破棄しておく方が > いいでしょう。予期せぬ状態を招くことがあります。 > (2) 同様に、もし、クリップボードから画像を取得できなかった場合も > 考えておく。 > (3) Wordという予約語の変数は使用しない。問題が発生した場合、バグ > 取りが困難となります。 > > 例えば以下の様に。 > > procedure TForm1.Button1Click(Sender: TObject); > var > S: String; > begin > S:='C:\AAA\Test.doc'; > WApp := CreateOleObject('Word.Application'); > try > AWord := WApp.Documents.Open(S); > AWord.Content.PasteSpecial(,,,,wdPasteBitmap); > //ここでAWord:=AWord.Content...としてしまうと、 > //後でAWordが何を指しているか不明となってしまう。 > //必要であれば別の変数を用意する。 > except > end; > WApp.Visible := True; > end; > > procedure TForm1.FormDestroy(Sender: TObject); > begin > //VarIsEmptyはDelphiのバージョンによっては使用不可? > if not VarIsEmpty(WApp) then begin > AWord :=unAssigned; > WApp :=unAssigned; > end; > end; > >
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link