Hola, necesito saber cómo hacer ésto:

Es parte de un inventario, en Excel, cada casilla de la columna tiene un texto como la siguiente línea 1 y el resultado final quiero que sea como el de la línea 2: el texto entre <i> e </i> en cursiva y el resto normal y cuando lo cambie, eliminar las dos marcas de inicio y final <i> e </i>. Cada línea quedaría así:

1 Hopkins, Gerard Manley. <i>The Collected Works of Gerard Manley Hopkins. Volume Iv: Oxford Essays and Notes 1863-1868</i>. Edited by Lesley Higgins. Oxford: OUP, 2006.

2 Hopkins, Gerard Manley. The Collected Works of Gerard Manley Hopkins. Volume Iv: Oxford Essays and Notes 1863-1868. Edited by Lesley Higgins. Oxford: OUP, 2006.

Serían unas 800 líneas y hacerlas a mano me llevaría mucho tiempo, a ver qué solución me podéis dar.

Os quedo muy agradecido :-)

Fran

Sube un archivo con datos para probar.

Hola Fran,

Bueno esto es lo que se me ha ocurrido. Quizas no me parece lo mas perfecto. Yo sí se pudieran separar las tres partes del texto en tres columnas diferentes sería más limpio. Con un split se podría hacer en un momento.

Cómo dice Antoni sin ejemplo no conozco mas datos asin que en el ejemplo cojo los datos de A2, ahora te tendrías que crear el bucle. La pongo en cursiva y negrita.

Sub Remarkar()
   Dim C As Range, Posicion1 as integer, Posicion2 As Integer
   Set C = Range("A2")
   posicion1 = InStr(1, C, "<", vbTextCompare)
   posicion2 = InStrRev(C, "<")
   With C
      .Characters(posicion1, 3).Font.Color = vbWhite
      .Characters(posicion2, 4).Font.Color = vbWhite
   End With
   Set C = Range("A2")
   posicion1 = InStr(1, C, "<", vbTextCompare) + 3
   posicion2 = InStrRev(C, "<") - posicion1
   With C.Characters(posicion1, posicion2).Font
      .Italic = True
      .Bold = True
   End With
End Sub

 

Lo mismo que ikanni, pero de otra forma.

Selecciona el rango de celdas y ejecuta la macro.

Sub ItalicText()
For Each Texto In Selection
   With Texto
      i = InStr(.Value, "<i>")
      f = InStr(.Value, "</i>")
      If f > i And i > 0 Then
         .Value = Replace(.Value, "<i>", "")
         .Value = Replace(.Value, "</i>", "")
         .Characters(i, f - i - 3).Font.Italic = True
      End If
   End With
Next
End Sub

 

Editado el el 3 de septiembre4 años por Antoni

Muchas gracias a los dos, he estado estos días muy ocupado con otras cosas, mañana subo un fichero para hacer las prueba y lo pruebo yo también.

Saludos!!

Buenas tardes Antoni, acabo de crear y ejecutar tú macro y me ha funcionado perfectamente, muchísimas gracias, me has ahorrado mucho trabajo.
Un saludo
Fran

Hace 14 horas, Fran_ dijo:

Buenas tardes Antoni, acabo de crear y ejecutar tú macro y me ha funcionado perfectamente, muchísimas gracias, me has ahorrado mucho trabajo.
Un saludo
Fran

¿Y la de ikanni? ?

Buenos días,

Es que con el código de ikanni tengo el problema de que hay que ir cambiando la casilla A2, claro, él avisó de que tenía que crear un bucle para seleccionar todo el contenido al que quiero aplicarlo, si cambio A2 por la casilla a la que le quiero aplicar el formato, funciona, pero no tan limpio como tú código, me deja unos espacios delante y detrás de la frase donde lo aplico, por la negrita no hay problema, elimino ".Bold = True" y listo, pero esos espacios no sé cómo quitarlos, VBA siempre ha sido mi gran reto y la verdad es que no le he echado el tiempo suficiente que requiere cualquier lenguaje de programación, pero sigo queriendo aprenderlo, al menos a niveles básicos, me tendréis más por aquí.

Y queda así al ejecutar su código:

Utilizando tú código, no tengo que estar cambiando la línea a la que le quiero aplicar ese formato, simplemente selecciono todo lo que quiero y ejecuto la macro.

De todas formas, muchas gracias a los dos por haberme ayudado, con vuestros códigos me habéis abierto más posibilidades.

Un saludo para los dos!!

Buen fin de semana!!

Fran

 

 

Hola a todos,

Hace 48 minutos , Antoni dijo:

¿Y la de ikanni? ?

Gracias Antoni. Contesto por deferencia a ti

Hace 24 minutos , Fran_ dijo:

Buenos días,

Es que con el código de ikanni tengo el problema de que hay que ir cambiando la casilla A2, claro, él avisó de que tenía que crear un bucle para seleccionar todo el contenido al que quiero aplicarlo, si cambio A2 por la casilla a la que le quiero aplicar el formato, funciona, pero no tan limpio como tú código, me deja unos espacios delante y detrás de la frase donde lo aplico, por la negrita no hay problema, elimino ".Bold = True" y listo, pero esos espacios no sé cómo quitarlos, VBA siempre ha sido mi gran reto y la verdad es que no le he echado el tiempo suficiente que requiere cualquier lenguaje de programación, pero sigo queriendo aprenderlo, al menos a niveles básicos, me tendréis más por aquí.

Y queda así al ejecutar su código:

Utilizando tú código, no tengo que estar cambiando la línea a la que le quiero aplicar ese formato, simplemente selecciono todo lo que quiero y ejecuto la macro.

De todas formas, muchas gracias a los dos por haberme ayudado, con vuestros códigos me habéis abierto más posibilidades.

Un saludo para los dos!!

Buen fin de semana!!

Fran

 

 

Lo hice del tirón y en la primera prueba al reemplazar los caracteres perdía el formato. No se me ocurrió pillar las posiciones sino que se me ocurrió ponerlas en blanco para que no se vieran... Yo que me complico la vida ?, aunque ya lo avisé.

En 2/9/2020 at 10:44 , ikanni dijo:

Bueno esto es lo que se me ha ocurrido. Quizas no me parece lo mas perfecto. Yo sí se pudieran separar las tres partes del texto en tres columnas diferentes sería más limpio. Con un split se podría hacer en un momento.

Y menudo apaño te ha hecho Don Antoni, como siempre.

Saludos cordiales

 

Hola ikanni,

Tienes toda la razón, a veces nos complicamos y luego nos damos cuenta de que había una solución más simple y efectiva, así es tanto la programación como la vida.

Muchas gracias de nuevo!!, nos seguiremos viendo por aquí y os seguiré a los dos, sigo queriendo "dominar" un poco, al menos, la programación en VBA, es muy útil.

Saludos cordiales

Estoy utilizando la macro en Excel para Mac y me dice que al comienzo del código:

itFor Each Texto In Selection

Error de compilación y me pone esa línea en rojo

Error de compilación:

Error de sintaxis

Nada, nada, una tontería mía, se me coló el it delante del For, ha funcionado perfectamente.

Gracias a los dos!!

Fran