2012-07-25 95 views

Respuesta

22

Mediante el uso de caracteres.

Range("A1").Characters(8, 5).Font.Bold = True 
+0

He mezclado texto en negrita en una celda Quiero extraer cada subcadena en negrita. –

5

yo diría que el uso de esta fórmula dinámico -

Range("A1").Characters(worksheetfunction.find("Excel",Range("A1").value,1),len("Excel")).font.bold = True 
0

Otra manera para personas que necesitan una solución rápida y no se sienten cómodos utilizando VBA:

  1. Copiar y pegar la celda rango en un documento de Word (se verá desordenado al principio).
  2. Ve a "reemplazar" (arriba a la derecha).
  3. Escriba la palabra que desea resaltar en el campo "Buscar qué:" y la misma en el campo "Reemplazar con:", luego, cuando se encuentre en el cuadro "Reemplazar con:", presione CTRL B. Debería ver "Formato: Letra: Negrita" aparece debajo.
  4. Haga clic en Reemplazar todo y verá todas las palabras seleccionadas en negrita.
  5. Desplácese sobre su texto de Excel (actualmente en Word) y verá un pequeño símbolo de 4 flechas en la parte superior izquierda del texto. Haz clic para resaltar las celdas, luego puedes copiarlas y volver a pegarlas en Excel.

No es la manera más rápida, pero si no está familiarizado con VBA y necesita una solución rápida, ¡esto funcionará para usted!

No solo para Negrita: CTRL I para cursiva, CTRL U para subrayado.

Cuestiones relacionadas