reemplazo de cadenas de palabras por lotes

Pruebe los siguientes pasos:

1. Ingrese ALT + F11 para abrir el editor VBA y seleccione el menú "Insertar - Módulo"

2. p>

Opción explícita

Sub BatchReplace()

Dim oDict, strKey

Establecer oDict = CreateObject("Scripting.Dictionary")

oDict.Add "melocotón", "melocotón"

oDict.Add "manzana", "manzana"