台灣最大程式設計社群網站
線上人數
2019
 
會員總數:245894
討論主題:189492
歡迎您免費加入會員
討論區列表 >> VB6 >> 如何把搜尋到的字串顏色改變?
[]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
如何把搜尋到的字串顏色改變?
價值 : 10 QP  點閱數:1806 回應數:0
樓主

老謝
門外漢
0 41
548 49
發送站內信

捐贈 VP 給 老謝
我用下列程式碼,想把搜尋到的字串的顏色,全改成紅色,但一直無法成功,不知何處有誤?

With WordObj
.Documents.open NewDocFileName

.Selection.Find.ClearFormatting
.Selection.Find.Replacement.ClearFormatting
With .Selection.Find
.Text = "{*}"
.Replacement.Text = "^&"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
.Selection.Font.Color = wdColorRed
.Selection.Find.Execute Replace:=wdReplaceAll

.ActiveDocument.SaveAs NewDocFileName
On Error Resume Next
.ActiveDocument.Close
.Quit
End With
Set WordObj = Nothing

搜尋相關Tags的文章: [ 顏色 ] ,
本篇文章發表於2007-03-27 17:24
目前尚無任何回覆
   

回覆
如要回應,請先登入.