名前
題名
▼ まるじさん > 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; > > どうぞよろしくお願いいたします。
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link