Find and replace each occurence of text with msgbox.

[hoppy186]

I need a code that will find an italicized word in a document and highlight it and pop up a message box to the user asking if they want to non-italicize it. The user clicks yes, no, or cancel then the code should find and highlight the next italicized word and pop up the message box again. I want this to happen throughout the whole document. Please help.

 

[niceguymattx]

Try code below:

Public Sub FindAndHighlight()
    Dim x As Range, mr As VbMsgBoxResult
    For Each x In ThisDocument.Words
        If x.Italic = True Then
            x.Select
            mr = MsgBox("Do you want to remove italic effect?", vbYesNoCancel, "Remove Italic")
            If mr = vbCancel Then Exit Sub
            If mr = vbYes Then x.Italic = False
        End If
    Next
End Sub

 

[fumei]

Nice. Clean code. Nice.

Gerry