0

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
4

2 に答える 2

2

これはあなたがしようとしていることですか？

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
于 2012-07-31T07:10:00.460 に答える