Cómo Buscar y reemplazar estilos de Word en Visual Basic Excel

Excel Visual Basic para Aplicaciones ( VBA) es un lenguaje de programación que se construye en los libros de Excel . Usted puede utilizar el lenguaje para adaptar sus hojas de trabajo para satisfacer sus necesidades. Por ejemplo , usted puede preferir un estilo palabra en su texto. La forma tradicional de dar formato al texto es resaltar el texto que desea cambiar y haga clic a través de la función de " estilos " , seleccionar el estilo que desee . Con Excel VBA , sin embargo , puede sustituir esta tarea mundana con un clic del ratón o un derrame cerebral teclado. Instrucciones
1

Pulse " Alt " + " F11 " en el teclado de Excel para abrir el editor de Visual Basic .
2

Abra el módulo de código VBA de la navegación de la izquierda . panel o crear un nuevo módulo , haga clic en "Insertar" y "Módulo " en el menú superior
3

Copia y pega el siguiente código en la ventana del módulo : Con ActiveDocument.Content.Find . ClearFormatting.Font.Bold = TrueWith Replacement.ClearFormatting.Font.Bold = FalseEnd With.Execute FindText : . = "", ReplaceWith : = "", _format : = True , Reemplazar : = wdReplaceAllEnd Con

código se encuentra todo el texto que aparecerá en negrita y sustituirlo por el texto que no está en negrita .
4

Modifique el " Font.Bold = . verdadero" línea para cambiar el estilo que desea buscar o añadir nuevas líneas para los formatos más complejos, como el texto en negrita , azul o subrayado . En ese caso debes reemplazar la línea con : . Font.Bold = True.Font.Color = BlueFont.Underlined = True
5

Editar el " Font.Bold = False ". Línea para cambiar el estilo que desea reemplazar los estilos encontrados con . Por ejemplo , es posible que desee cambiar todo el texto se encuentra al rojo , por lo que debería reemplazar la línea con : . . Font.Color = Red
6 Pulse

"F5 " para ejecutar el código VBA reemplazo