Optimizar macro en vba

Denunciar
Message postés
2
Date d'inscription
miércoles, 7 de julio de 2021
Estatus
Miembro
Última intervención
lunes, 12 de julio de 2021
-
Hola,
Espero estén muy bien.

Tengo un listado de más de 2000 palabras que están en un libro de excel, los cuales necesito corregir en varios documentos word. Este listado indica que palabras buscar y por cuales reemplazar.
Tengo esta macro pero siento que se puede optimizar y estaré completamente agradecido a quién lo resuelva.... dejo algunas líneas que tengo de solo 3 palabras

Sub ortografia()
'
' ortografia Macro
'
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "Con que servicios"
.Replacement.Text = "Con qué servicios"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "Publico"
.Replacement.Text = "público"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "tangues"
.Replacement.Text = "tanques"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
End Sub