作者mnb7120 (gogo)
看板Visual_Basic
标题[VBA ] 如何将替换的文字改变颜色
时间Sun Jul 20 17:18:27 2008
我要比对excel与word的资料(主要是单字)，我是以EXCEL为单字资料库，
如果word里有相同的单字的话，我想要把找到所有文字的颜色改变
现在的程式码已经可运行寻找的功能，但是就是无法改变颜色
有没有大大可以帮忙一下，谢了。
程式码如下：
Const wdReplaceAll = 2
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objDoc = objWord.Documents.Open("C:\Test.doc")
Set objSelection = objWord.Selection
Set objWorkbook = objExcel.Workbooks.Open("C:\Test.xls")
For i = 1 To 100
objSelection.Find.Text = objExcel.Range("A" & i)
objSelection.Find.Forward = TRUE
objSelection.Find.MatchWholeWord = TRUE
objSelection.Find.Replacement.Text = objExcel.Range("A" & i)
objSelection.Find.Font.ColorIndex = wdRed
objSelection.Find.Execute ,,,,,,,,,,wdReplaceAll
Next
--
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.57.78.12