Word - como se hace macro para destacar palabras con acentos

Sub BoldSpecial()

Dim oRng As Range, fRng As Range, StrText As String

Application.ScreenUpdating = False

StrText = InputBox("Character to Find", "Bold Words with Special Characters")

With Selection

Set oRng = .Range

With .Find

.ClearFormatting

.Wrap = wdFindContinue

.Format = False

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

.Text = StrText

With .Replacement

.Text = ""

.ClearFormatting

.Highlight = True

End With

.Execute

End With

Do While .Find.Found

Set fRng = ActiveDocument.Range(Start:=Selection.Start, End:=Selection.End)

With fRng

.Start = .Words(1).Start

.End = .Words(1).End - 1

.HighlightColorIndex = wdYellow

.Collapse Direction:=wdCollapseEnd

End With

.Find.Execute

Loop

End With

oRng.Select

Set fRng = Nothing

Set oRng = Nothing

Application.ScreenUpdating = True

End Sub