如何用delphi控制word做圖片的"排版"? |
|
缺席
|
|
moonunderdoor
一般會員   發表：8 回覆：5 積分：2 註冊：2002-10-27 發送簡訊給我 |
我用了~
wordApplication1.Selection.GoTo_(vwhat,emptyParam,emptyParam,vBookmark); 的指令把游標指到我想到的位置，但當我用~
wordapplication1.ActiveDocument.InlineShapes.AddPicture(picname,f,t,EmptyParam); 指令插入圖片時，圖片並沒有放在我想要的位置，而是放在第一行。但是如果我在我想要的位置插入的是文字，就沒問題。
是不是wordapplication1.ActiveDocument.InlineShapes.AddPicture指令有別的指定位置的指令?
謝謝..
|
|
flyup
資深會員   發表：280 回覆：508 積分：385 註冊：2002-04-15 發送簡訊給我 |
|
|
moonunderdoor
一般會員 發表：8 回覆：5 積分：2 註冊：2002-10-27 發送簡訊給我 |
請問這二行的意思是不是
DBImgFishImg.CopyToClipboard;先將圖片copy到剪貼板，WordDocument.Sentences.Last.Paste;再將游標移到指定的地方貼上 ?? 我執行時有DBImgFishImg.CopyToClipboard;編譯錯誤的訊息：
[Error] wordupdata.pas(121): Undeclared identifier: 'DBImgFishImg'
[Error] wordupdata.pas(121): Missing operator or semicolon 而且我也不知到DBImgFishImg.CopyToClipboard;指令是不是屬於word的指令
能不能再指點一下. 謝謝
|
|
flyup
資深會員 發表：280 回覆：508 積分：385 註冊：2002-04-15 發送簡訊給我 |
|
|
moonunderdoor
一般會員 發表：8 回覆：5 積分：2 註冊：2002-10-27 發送簡訊給我 |
謝謝flyup的指點，我最後有找到關於AddPicture的指令說明
我最後的做法是：
var
vwhat,vBookmark,picposition:OleVariant;
picname:widestring;
...
..
vBookmark:='書籤名稱...'; //設定參數。先在word檔內自己想要放圖或新增文字的位置插入書籤並命名為'書籤名稱...'。
vWhat:=wdGoToBookmark;//設定參數。
WordApplication1.Selection.GoTo_(vwhat,emptyParam,emptyParam,vBookmark);//使用指令將游標指到書籤的位置 picposition:=wordapplication1.Selection.Range;
//這時wordapplication1.Selection.Range;屬性(是唯讀的)會記下游標現在的位置。 wordapplication1.ActiveDocument.InlineShapes.AddPicture(picname,f,t,picposition);
//參數說名：AddPicture(FileName, LinkToFile, SaveWithDocument, Range)
//range指的是要將圖片放在什麼位置，若指定特定位置，word會自動將圖片插入在第一行。 詳細的用法可以到這個網站查
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/office97/html/output/F1/D4/S5A8A3.asp
|
發表時間：2003-03-07 10:06:55
IP:211.75.xxx.xxx 未訂閱
系統時間：2024-11-22 23:23:03
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |