word批量查找并高亮显示

dansanhan

希望在一篇文章中，一次性显示表格中列A中所列出来的所有错别字词。只显示，不替换。

ming0018

用遍历查找就行了。可以自己录宏。

yian123

百度了很久，因为平时我都是在excel写代码。在word中调试了很久，好像不能随心所欲操作excel，只能读取之类的。下面代码实现了效果，有的地方是多余的，
Sub AA()
    Dim projectno As String
    Dim myxls As Object, wb As Object, i As Integer, p As String
  
    Set myxls = CreateObject("excel.application") '启动Excel程序
    myxls.Visible = True   '不可见'C:\Users\Administrator\Desktop\批量查找并显示\常见错.xlsx 这是文件地址，然后我把词汇文件改为了 常见错.xlsx。
    Set wb = myxls.Workbooks.Open("C:\Users\Administrator\Desktop\批量查找并显示\常见错.xlsx")
    Set sht = wb.worksheets(1)
    i = 1
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Font.Color = 12611584
  Do
  i = i + 1
  p = wb.ActiveSheet.Cells(i, 1)
  If p = "" Then Exit Sub
   With Selection.Find
        .Text = p
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
  Loop
  wb.Save
  wb.Close

    myxls.Quit
    Set myxls = Nothing
End Sub

dansanhan

yian123 发表于 2020-4-26 21:30
百度了很久，因为平时我都是在excel写代码。在word中调试了很久，好像不能随心所欲操作excel，只能读取之类 ...

谢谢高手！完美解决问题

dansanhan

yian123 发表于 2020-4-26 21:30
百度了很久，因为平时我都是在excel写代码。在word中调试了很久，好像不能随心所欲操作excel，只能读取之类 ...

老师您好，
      我想增加一个功能：就是在完成上述查找后，又开始查找Sheet2里面列1的所有词汇，并显示成红色。烦请您有空时帮我增加一下代码。谢谢。