Delphi&Word第三章用Word套表htm說明 |
|
delphiwww
資深會員 發表:145 回覆:363 積分:368 註冊:2002-03-13 發送簡訊給我 |
|
fjthomas
一般會員 發表:1 回覆:6 積分:1 註冊:2003-03-18 發送簡訊給我 |
#2
發表時間:2003-03-23 16:49:56
IP:211.76.xxx.xxx
未訂閱
我之前用Word 是為了作套表
我是在Word設書籤 然後在由Delphi丟資料進去 但是有一個想做的功能一直無法作到
就是 " 在Word裡的一段文字中 有幾個關鍵字要變顏色 " 不知是否可麻煩你將此功能也加入範例內
謝謝 From thomas
email:fjthomas@ms60.url.com.tw
|
fjthomas
一般會員 發表:1 回覆:6 積分:1 註冊:2003-03-18 發送簡訊給我 |
#3
發表時間:2003-03-23 16:50:09
IP:211.76.xxx.xxx
未訂閱
我之前用Word 是為了作套表
我是在Word設書籤 然後在由Delphi丟資料進去 但是有一個想做的功能一直無法作到
就是 " 在Word裡的一段文字中 有幾個關鍵字要變顏色 " 不知是否可麻煩你將此功能也加入範例內
謝謝 From thomas
email:fjthomas@ms60.url.com.tw
|
delphiwww
資深會員 發表:145 回覆:363 積分:368 註冊:2002-03-13 發送簡訊給我 |
#4
發表時間:2003-03-23 23:27:26
IP:219.68.xxx.xxx
未訂閱
你所指的關鍵字是什麼?
是全部的內容嗎?
我想你應該可以先尋找->然後將找到的字變顏色
引言: 我之前用Word 是為了作套表 我是在Word設書籤 然後在由Delphi丟資料進去 但是有一個想做的功能一直無法作到 就是 " 在Word裡的一段文字中 有幾個關鍵字要變顏色 " 不知是否可麻煩你將此功能也加入範例內 謝謝 From thomas email:fjthomas@ms60.url.com.tw >>< face="Verdana, Arial, Helvetica"> |
fjthomas
一般會員 發表:1 回覆:6 積分:1 註冊:2003-03-18 發送簡訊給我 |
#5
發表時間:2003-03-24 16:41:19
IP:211.76.xxx.xxx
未訂閱
謝謝你的回答 我想我說的不夠清楚
我所指的關鍵字不是全部的內容
而是指從Delphi 丟 資料到 Word 時 將使用者所要尋找的關鍵字變顏色 如何用程式找到那些字我已經沒問題
有問題的是如何將那些特定字也一起變色 例如:有問題的是如何將資料放到Word 的時候 也將那些字變色 如上 只改變此字"Word"的顏色 其他不變 From thomas
email:fjthomas@ms60.url.com.tw
|
delphiwww
資深會員 發表:145 回覆:363 積分:368 註冊:2002-03-13 發送簡訊給我 |
#6
發表時間:2003-03-24 17:22:18
IP:202.145.xxx.xxx
未訂閱
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 發送簡訊給我 |
#7
發表時間:2003-03-25 19:05:59
IP:211.76.xxx.xxx
未訂閱
謝謝
完全是我要的
你真是神阿
謝謝
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |