お世話になります。
最近ですがdelphiを始めたものです。
D6Personalです。
ClipbrdのBitmapをMS-Wordへ自動で貼り付けたいの
ですが、あらかじめ文章を入れたWordを開いて使う
と何故か次のページになってしまいます。
(Wordの元に戻す矢印ボタンで戻ると元の文章になる)
開いた文章を消さずに自動でBitmapを貼り付ける
方法をご存知の方がおられましたらご教授頂けます
ようお願いいたします。
これはWordの問題で、Delphiとは無関係なので
レスが付かないのではないかと思うのですが・・・
違うかな？
Wordの世界でしたら、「文字列と一緒に移動する」チェックを
外せばいいと思います。これに関しては掲示板違いですので
これまでとしておきますね。
deldelさん、レスありがとうございます。
以前、Mr.XRAYさんのHPで"図形とワードアートの挿入"という
のを見まして、delphi側からもワードは操作できるのだと
感動しました。いま作りかけている物もワード側に依存し
ないでなんとかならないものかと色々と試しているのですが
行き詰ってしまいまして・・・。
すみませんでした。
http://homepage2.nifty.com/Mr_XRAY/Delphi/plWord/index.htm
DelphiからWordを操作するということのようなので、ここでもいいと思うのですが。
ただ、おマヌなWORDの仕様がからんでくると、ここではどうしようもないとは思いますけど。
> と何故か次のページになってしまいます。
貼り付けするページの内容が失われてしまうのか、
貼り付けしたいページの次のページに貼り付けられるのか。
あと、再現できる最小のコードなんか提示すると、回答がつくかもしれません。
ん？さん、コメントありがとうございます。
>貼り付けするページの内容が失われてしまうのか・・・
はい、失われてしまいます。但し、ワードの"元に戻すボタン"で
書き込んであった文章を戻せます。
>再現できる最小のコードなんか提示すると・・・
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;
ん？さん、すみません。
文章くっついちゃいました。
何故に・・・？