|
XRAYさん、こんにちは。
初めて投稿します"まるじ"といいます。
いつも有意義なコンポーネントの紹介、素晴らしいです。
ワード操作にお詳しいと思いご相談させていただきます。
あらかじめ文章を入れたWordを開いて、ClipbrdのBitmapを
貼り付けたいのですが、うまくいきません。
元の文章が消されてしまい図だけ張り付きます。
(ワードの"元に戻すボタン"で書き込んであった文章は戻せます。)
開いた文章を消さずにBitmapを貼り付ける方法をご存知であれば
ご教授いただければ幸いです。
ただ貼り付けてるからダメなんですよね・・・。
//usesにComObj追加
------------------------------------------
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;
どうぞよろしくお願いいたします。
|