請問各位 不知道 Delphi 可以在 Word 上插圖嗎?? Delphi 初學者

這是word從檔案中插圖的VBA....前面的開檔動作等,請參考之前的文章...     

     Selection.InlineShapes.AddPicture FileName:= _
        "C:\Documents and Settings\dennisdai\My Documents\My Pictures\002.jpg", _
        LinkToFile:=False, SaveWithDocument:=True

永遠追不上技術更新的速度~~

------
星期一,二...無窮迴圈＠＠

那...... 不能用 Delphi 直接控制去插圖嗎?

引言: 那...... 不能用 Delphi 直接控制去插圖嗎?

你誤會我意思了.雖然那是 class="code"> procedure TForm1.Button1Click(Sender: TObject); var V:variant; S: Selection; begin V := CreateOleObject('word.Application'); V.Visible := True; V.Documents.add; V.Selection.InlineShapes.AddPicture('C:\jenny.jpg',False,True); end; 永遠追不上技術更新的速度~~

謝謝!! 但是有錯耶 V.Documents.add; Not enough actual parameters. V.Selection.InlineShapes.AddPicture(''C:\jenny.jpg'',False,True); Type of actual and formal var parameters must be identical . 會出現錯誤 不知該怎麼改!!

參考看看： 將圖片插入word的指定位置 var FPicture:OleVariant; //插入圖片 FPicture:=MSWord.documents.item(1).InlineShapes.AddPicture('C:\0003.jpg',False, True ); FPicture.ConvertToShape.select; //轉成可移動模式... documents.Application.Selection.ShapeRange.width:=大小; documents.Application.Selection.ShapeRange.height:=高度; documents.Application.Selection.ShapeRange.IncrementLeft(左); documents.Application.Selection.ShapeRange.IncrementTop(右); 發表是最好的記憶!

不好意思!! MSWord. 之後好像沒有 documents 應是 MSWord.Application.Documents.Item(1) 但是就沒有 InlineShapes.AddPicture('C:\0003.jpg',False, True ); 這段了 是不是您忘了什麼 如果想起來 請跟我說 因為我打這樣還是錯 MSWord.Application.Documents.Item(1).InlineShapes.AddPicture('C:\0003.jpg',False, True); 會出現錯誤 Type of actual and formal var parameters must be identical .

引言: 不好意思!! MSWord. 之後好像沒有 documents 應是 MSWord.Application.Documents.Item(1) 但是就沒有 InlineShapes.AddPicture('C:\0003.jpg',False, True ); 這段了 是不是您忘了什麼 如果想起來 請跟我說 因為我打這樣還是錯 MSWord.Application.Documents.Item(1).InlineShapes.AddPicture('C:\0003.jpg',False, True); 會出現錯誤 Type of actual and formal var parameters must be identical .

你有 uses word2000嗎...word97 2000不一樣喔 我是在word2000下測的...程式碼就只有我po的那樣..... 永遠追不上技術更新的速度~~

我也是用 Word 2000 我是這樣寫阿 msword.Connect; msword.Application.Visible := true ; msword.Application.Documents.Add; msword.Application.Selection.InlineShapes.AddPicture('C:\1.jpg',False,True); msword.Disconnect; 可是還是出現我打的那些錯誤訊息阿 我用 qoo1234 大大的也是不能用阿

引言: 我也是用 Word 2000 我是這樣寫阿 msword.Connect; msword.Application.Visible := true ; msword.Application.Documents.Add; msword.Application.Selection.InlineShapes.AddPicture('C:\1.jpg',False,True); msword.Disconnect; 可是還是出現我打的那些錯誤訊息阿 我用 qoo1234 大大的也是不能用阿

你好像將元件盤上的wordapplication元件和CreateOleObject('word.Application')搞混了......兩個不一樣的用法喔 你先確定在沒改我的程式的情形下,能跑嗎? <--我是正常 我沒用元件盤上的wordapplication元件..注意喔 delphi元件盤的wordapplication元件..和你用CreateOleObject('word.Application')有很大的差別.... 用CreateOleObject表示你用的word的method是runtime才去call的.. 好處是..參數,函式名稱都和word所提供的一樣,只要查msdn或vba就可以查到資料... 如果用元件盤的wordapplication元件就不一樣了,基本上delphi可能有改寫函式 ,參數,型態等..加上說明文件少...要查某個函式怎麼用.比較難...不過你編譯時他就會檢查有無錯誤..算是他的優點,不像CreateOleObject的做法,要等到真的執行到那一行時,才會發現有沒有錯誤.. 我是傾向用CreateOleObject的做法,這樣你可用的說明文件資源較多.. 至於 > 改 class="code"> procedure TForm1.Button2Click(Sender: TObject); var FPicture,C:OleVariant; begin C:=Worddocument1.Range; FPicture:=WordDocument1.Range.InlineShapes.AddPicture( 'C:\jenny.jpg',EmptyParam, EmptyParam,C); Worddocument1.Application.Visible:=true; 永遠追不上技術更新的速度~~ 發表人 - pgdennis 於 2003/05/05 16:47:22 發表人 - pgdennis 於 2003/05/05 16:58:13