[RESUELTO] Poner negrita parte de un texto en una celda calc

Desarrollo de Macros y programación en UNO, usar las API, llamar programas externos...
Responder
juanchv
Mensajes: 46
Registrado: Mié May 30, 2012 5:39 pm

[RESUELTO] Poner negrita parte de un texto en una celda calc

Mensaje por juanchv »

Hola!!!
Estoy intentando poner en negrita parte de un texto en una celda.
Esto se puede hacer con el ratón.
Me explico:
La celda A1 contiene <Fulano de Tal - Gerente de área>
A2 contiene <Mengano de Cual - Peón>

quiero que Fulano de tal y Mengano de Cual sea en negrita.
Por codigo se pone en negrita todo.
Hasta ahora lo estoy haciendo a mano ya que son 20 ó 30 una vez al mes.

Bueno, si a alguien se le ha ocurrido un caso semejante le agradeceré la información.
No obstante si encuentro la forma lo pondre.
Un saludo
Juan
Última edición por juanchv el Jue Feb 07, 2013 7:33 pm, editado 1 vez en total.
LibreOffice 6.3.6.2
Linux mint 19.3 Tricia 64-bit Mate

LibreOffice 5.4.5.3
Linux mint 18.3 64-bit Mate
Avatar de Usuario
SLV-es
Mensajes: 4894
Registrado: Jue Ago 26, 2010 1:25 am
Ubicación: España
Contactar:

Re: Poner en negrita parte de un texto en una celda calc

Mensaje por SLV-es »

No conozco ningún sistema. Como mucho, poner todo el contenido de la celda en negrita, como bien dices.

Lo que sí puedo es aconsejar que separes en una columna, el nombre, y en otra, el cargo o empleo
A la hora de gestionar datos, tanto en una base de datos como en una hoja de cálculo, divide y vencerás :)
... aunque no sirva para esta batalla :(

Saludos
+info en la web "no oficial" dedicada a OpenOffice en Español
AOO 4.1.2 y LibO 4.4.6 en W10 y en Lliurex
No respondo mensajes privados sobre AOO, por favor, utiliza el foro para tus preguntas
Avatar de Usuario
fornelasa
Mensajes: 3268
Registrado: Jue Feb 17, 2011 8:30 pm
Ubicación: Estado de México, México.

Re: Poner en negrita parte de un texto en una celda calc

Mensaje por fornelasa »

Hola...
De acuerdo a lo que dice el post inicial, el carácter que marca la pauta es - (la rayita que está a la derecha de la tecla . punto).
Segun yo, necesariamente tendria que hacerse con macros.
Seleccionamos el rango y corremos esta macro:

Código: Seleccionar todo

Sub FormatoDoble
oDocto = ThisComponent
oRango = oDocto.CurrentController.Selection
for i = 0 to oRango.Rows.Count - 1
oActual = oRango.getCellByPosition(0,i)
oTexto = oActual.getText()
oPosic = InStr(oTexto.String,"-")
if oPosic > 0 then
oCursor = oTexto.createTextCursor
oCursor.gotoStart(False)
oCursor.goRight(oPosic,True)
oCursor.CharWeight = com.sun.star.awt.FontWeight.BOLD
endif
next i 
End Sub
Saludos, Federico.
lo 6.2.0 | aoo 4.1.6 | win 7/10
¡Un aplauso para todos los que luchan por proteger y promover la Web abierta!
juanchv
Mensajes: 46
Registrado: Mié May 30, 2012 5:39 pm

Re: Poner en negrita parte de un texto en una celda calc

Mensaje por juanchv »

Hola!!!!!
Muchas gracias por vuestra pronta respuesta.
SLV-es Ya tengo todos los datos separados por campos, pero en este caso es una hoja para las firmas de asistencia a una reunión
y por el motivo que sea se pone el nombre y apellidos el cargo que tiene en esta comisión y el centro de trabajo, el puesto,etc ,como
seis o siete campos. Podría hacerlo con dos celdas, por un lado el nombre y apellidos y en la otra los cargos, cada una con su formato. Pero la curiosidad de intentar
hacerlo con una macro y aprender. El tema es que se puede hacer a mano el dar fomato a una parte del texto de una celda, pero quiero automatizarlo.

Federico tu propuesta funciona perfectamente en una prueba que he realizado, con lo cual voy a adaptar la macro a mis necesidades. :bravo:

De nuevo muchas gracias a todos, ya que si no fuera por los participantes del foro sería mucho mas difícil resolver dudas que se nos
plantean y así poder compartir soluciones con otros usuarios.

Un saludo
Juan
LibreOffice 6.3.6.2
Linux mint 19.3 Tricia 64-bit Mate

LibreOffice 5.4.5.3
Linux mint 18.3 64-bit Mate
Avatar de Usuario
SLV-es
Mensajes: 4894
Registrado: Jue Ago 26, 2010 1:25 am
Ubicación: España
Contactar:

Re: [RESUELTO] Poner negrita parte de un texto en una celda

Mensaje por SLV-es »

Nunca te acostarás sin aprender doce cosas mas (sólo una si no visitas este foro) :)

Federico, te la robo para mi blog !!!!
 Editado: Publicado en http://blog.open-office.es/index.php/ba ... ffice-calc 
Saludos
+info en la web "no oficial" dedicada a OpenOffice en Español
AOO 4.1.2 y LibO 4.4.6 en W10 y en Lliurex
No respondo mensajes privados sobre AOO, por favor, utiliza el foro para tus preguntas
Avatar de Usuario
fornelasa
Mensajes: 3268
Registrado: Jue Feb 17, 2011 8:30 pm
Ubicación: Estado de México, México.

Re: [RESUELTO] Poner negrita parte de un texto en una celda

Mensaje por fornelasa »

SLV-es, por supuesto :super:

Saludos, Federico.
lo 6.2.0 | aoo 4.1.6 | win 7/10
¡Un aplauso para todos los que luchan por proteger y promover la Web abierta!
Responder