ClipbrdのBitmap貼り付けについて

解決

まるじ 2006-05-30 19:07:07 No: 21932

お世話になります。
最近ですがdelphiを始めたものです。
D6Personalです。
ClipbrdのBitmapをMS-Wordへ自動で貼り付けたいの
ですが、あらかじめ文章を入れたWordを開いて使う
と何故か次のページになってしまいます。
(Wordの元に戻す矢印ボタンで戻ると元の文章になる)
開いた文章を消さずに自動でBitmapを貼り付ける
方法をご存知の方がおられましたらご教授頂けます
ようお願いいたします。

deldel 2006-05-31 01:15:24 No: 21933

これはWordの問題で、Delphiとは無関係なので
レスが付かないのではないかと思うのですが・・・
違うかな？
Wordの世界でしたら、「文字列と一緒に移動する」チェックを
外せばいいと思います。これに関しては掲示板違いですので
これまでとしておきますね。

まるじ 2006-05-31 02:17:42 No: 21934

deldelさん、レスありがとうございます。
以前、Mr.XRAYさんのHPで"図形とワードアートの挿入"という
のを見まして、delphi側からもワードは操作できるのだと
感動しました。いま作りかけている物もワード側に依存し
ないでなんとかならないものかと色々と試しているのですが
行き詰ってしまいまして・・・。
すみませんでした。
http://homepage2.nifty.com/Mr_XRAY/Delphi/plWord/index.htm

ん？ 2006-05-31 02:28:05 No: 21935

DelphiからWordを操作するということのようなので、ここでもいいと思うのですが。

ただ、おマヌなWORDの仕様がからんでくると、ここではどうしようもないとは思いますけど。

> と何故か次のページになってしまいます。
貼り付けするページの内容が失われてしまうのか、
貼り付けしたいページの次のページに貼り付けられるのか。

あと、再現できる最小のコードなんか提示すると、回答がつくかもしれません。

/06050099.txtFrom: ま 2006-05-31 03:36:18 No: 21936

ん？さん、コメントありがとうございます。

>貼り付けするページの内容が失われてしまうのか・・・
はい、失われてしまいます。但し、ワードの"元に戻すボタン"で
書き込んであった文章を戻せます。

>再現できる最小のコードなんか提示すると・・・
Clipbrdの図をワードを立ち上げて、ただ貼り付けているだけ
なのですが。

------------------------------------------
  private
   WApp, Word : Variant;
  end;

const
wdPasteBitmap = $00000004;
var
Form1: TForm1;

implementation

{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
WApp  := CreateOleObject('Word.Application');
Word  := WApp.Documents.Open('"C:\□□\□□\sample.doc"');
Word  := Word.Content.PasteSpecial(,,,,wdPasteBitmap);
WApp.Visible := True;
end;

まるじ 2006-05-31 03:48:29 No: 21937

ん？さん、すみません。
文章くっついちゃいました。
何故に・・・？