如何搜索文本並檢查VBA中的下劃線字

Question

如何搜索文本並在word文檔中檢查相同的文本以進行下劃線。 任何人都可以幫我嗎？

Sub Underline() 
    Dim fnd As String 
    Dim n As Long 

    fnd = InputBox("Enter text to search" & vbCr & vbCr _ 
    & "Click OK to search the entire workbook for all instances of the search text.") 

    Dim x As Integer 

    x = 0 

    Do While x = 0 
     With Selection.Find 
      .ClearFormatting 
     End With 

     If fnd = False Then 
      x = 1 
      Exit Do 
     End If 
     Selection.Find.Execute 
     If .Underline = False Then 
      Selection.Comments.Add Range:=Selection.Range, Text:="pls underline text" 
      Selection.Find.Execute 
     End If 
    Loop 
End Sub 

Answer 1

這是你在想什麼？

Sub Sample() 
    Dim c As Range 
    Dim fnd As String 

    fnd = InputBox("Enter text to search" & vbCr & vbCr _ 
    & "Click OK to search the entire document for all instances of the search text.") 

    If fnd = "" Then Exit Sub 

    Set c = ActiveDocument.Content 

    c.Find.ClearFormatting 
    c.Find.Replacement.ClearFormatting 
    With c.Find 
     .Text = fnd 
     .Replacement.Text = "" 
     .Forward = True 
     .Wrap = wdFindStop 
    End With 

    c.Find.Execute 
    While c.Find.Found 
     If c.Font.Underline = wdUnderlineNone Then 
      c.Select 
      c.Comments.Add Range:=Selection.Range, Text:="pls underline text" 
     End If 
     c.Find.Execute 
    Wend 
End Sub