上鎖的討論區
瀏覽次數：1281
推到 Plurk!
推到 Facebook!
Delphi&Word第三章用Word套表htm說明 |
|
|
|
delphiwww
資深會員   發表：145 回覆：363 積分：368 註冊：2002-03-13 發送簡訊給我 |
|
|
fjthomas
一般會員  發表：1 回覆：6 積分：1 註冊：2003-03-18 發送簡訊給我 |
我之前用Word 是為了作套表
我是在Word設書籤 然後在由Delphi丟資料進去 但是有一個想做的功能一直無法作到
就是 " 在Word裡的一段文字中 有幾個關鍵字要變顏色 " 不知是否可麻煩你將此功能也加入範例內
謝謝 From thomas
email:fjthomas@ms60.url.com.tw
|
|
fjthomas
一般會員 發表：1 回覆：6 積分：1 註冊：2003-03-18 發送簡訊給我 |
我之前用Word 是為了作套表
我是在Word設書籤 然後在由Delphi丟資料進去 但是有一個想做的功能一直無法作到
就是 " 在Word裡的一段文字中 有幾個關鍵字要變顏色 " 不知是否可麻煩你將此功能也加入範例內
謝謝 From thomas
email:fjthomas@ms60.url.com.tw
|
|
delphiwww
資深會員 發表：145 回覆：363 積分：368 註冊：2002-03-13 發送簡訊給我 |
你所指的關鍵字是什麼?
是全部的內容嗎?
我想你應該可以先尋找->然後將找到的字變顏色
引言: 我之前用Word 是為了作套表 我是在Word設書籤 然後在由Delphi丟資料進去 但是有一個想做的功能一直無法作到 就是 " 在Word裡的一段文字中 有幾個關鍵字要變顏色 " 不知是否可麻煩你將此功能也加入範例內 謝謝 From thomas email:fjthomas@ms60.url.com.tw |
|
fjthomas
一般會員 發表：1 回覆：6 積分：1 註冊：2003-03-18 發送簡訊給我 |
謝謝你的回答 我想我說的不夠清楚
我所指的關鍵字不是全部的內容
而是指從Delphi 丟 資料到 Word 時 將使用者所要尋找的關鍵字變顏色 如何用程式找到那些字我已經沒問題
有問題的是如何將那些特定字也一起變色 例如:有問題的是如何將資料放到Word 的時候 也將那些字變色 如上 只改變此字"Word"的顏色 其他不變 From thomas
email:fjthomas@ms60.url.com.tw
|
|
delphiwww
資深會員 發表：145 回覆：363 積分：368 註冊：2002-03-13 發送簡訊給我 |
procedure replkeywordcolor(var source:string);
var _Text,_MatchCase,_MatchWholeWord,_MatchWildcards,_MatchSoundsLike,
_MatchAllWordForms,_Forward,_Wrap,_Format,_ReplaceWith,_Replace,
_MatchKashida,_MatchDiacritics,_MatchAlefHamza,_MatchControl
:OleVariant;
begin
WordApplication1.Selection.Find.ClearFormatting;
_Text :=source;
_MatchCase := False;
_MatchWholeWord := False;
_MatchWildcards := False;
_MatchSoundsLike := False;
_MatchAllWordForms:=EmptyParam;
_Forward := True;
_Wrap := wdFindContinue;
_Format := False;
_Replace:=wdReplaceNone;
_ReplaceWith:='';
_MatchKashida:=EmptyParam;
_MatchDiacritics:=EmptyParam;
_MatchAlefHamza:=EmptyParam;
_MatchControl:=EmptyParam;
WordApplication1.Selection.Find.Execute(_Text,_MatchCase,_MatchWholeWord,
_MatchWildcards,_MatchSoundsLike,_MatchAllWordForms,_Forward,_Wrap,
_Format,_ReplaceWith,_Replace,_MatchKashida,_MatchDiacritics,
_MatchAlefHamza,_MatchControl);
WordApplication1.Selection.Font.Color:=wdColorRed;
end;
修改repl,這可能是你要的wdColorRed顏色你自己再查一下
|
|
fjthomas
一般會員 發表：1 回覆：6 積分：1 註冊：2003-03-18 發送簡訊給我 |
謝謝
完全是我要的
你真是神阿
謝謝
|
發表時間：2003-03-19 12:23:44
IP:202.145.xxx.xxx 未訂閱
附加檔案：系統時間：2024-05-05 9:27:40
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |