[VBA ] 如何將替換的文字改變顏色
我要比對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
討論串 (同標題文章)