[RESUELTO] Posicionar cursor en celda (Writer)

Desarrollo de Macros y programación en UNO, usar las API, llamar programas externos...
Responder
satuple2015
Mensajes: 5
Registrado: Lun Ene 12, 2015 6:00 pm

[RESUELTO] Posicionar cursor en celda (Writer)

Mensaje por satuple2015 »

Hola a todos
Estoy trabajando en Writer y al posicionar el cursor en una Tabla puedo conocer el contenido de la Celda asi: oCelda.String

Set TextTables = Document.getTextTables()
Set Tabla = TextTables.getByName("Nombres")
NombresCelda = Tabla.getCellNames()
Set Celda = Tabla.getCellByName(NombresCelda(0))

Pero si tengo en esa Celda un Campo de Texto creado con... "com.sun.star.text.FieldMaster.User." & NombreCampo
Donde NombreCampo es el nombre dado con anterioridad al Campo... lo que recupero con la Instrucción: oCelda.String es el contenido que le he dado al Campo... y lo que necesito conocer es el Nombre del campo que esta en esa Celda o sea NombreCampo...
Por favor ayúdenme... Como lo hago.... :crazy:

Gracias
Última edición por mauricio el Sab Abr 18, 2015 8:06 pm, editado 1 vez en total.
Razón: Marcar resuelto correctamente
OpenOffice 4.1.1 en Windows 7
satuple2015
Mensajes: 5
Registrado: Lun Ene 12, 2015 6:00 pm

Re: Posicionar cursor en celda (Writer) saber nombre de camp

Mensaje por satuple2015 »

Será que la pregunta es muy ambigua.. no se entiende.. por favor ayudenme....
Estoy utilizando OpenOffice como Reporteador...
OpenOffice 4.1.1 en Windows 7
FJCC-ES
Mensajes: 873
Registrado: Mié Mar 25, 2009 1:19 am
Ubicación: Colorado, USA

Re: Posicionar cursor en celda (Writer) saber nombre de camp

Mensaje por FJCC-ES »

Código: Seleccionar todo

  oTextTables = ThisComponent.getTextTables()
  oObj1 = oTextTables.getByName("Tabla1")
  oCell = oObj1.getCellByName("A1")
  oEnum = oCell.createEnumeration
  while oEnum.hasMoreElements
  	oPara = oEnum.nextElement()
  	oEnumPor = oPara.createEnumeration()
  	while oEnumPor.hasMoreElements()
  		oPor = oEnumPor.nextElement()
  		if oPor.TextPortionType = "TextField" then
  			Tfield = oPor.TextField
  			Master = Tfield.TextFieldMaster
  			Nombre = Master.Name
  			print Nombre
  		End If
  	wend
  wend
satuple2015
Mensajes: 5
Registrado: Lun Ene 12, 2015 6:00 pm

[Resuelto] Posicionar cursor en celda (Writer)

Mensaje por satuple2015 »

Muchisimas Gracias......
Que verguenza :oops: que apenas vuelva a investigar si ya estaba Resuelto... Pero... excusas muchas y no es el asunto...
Muy buena y efectiva tu respuesta... salta otra duda... pero abriré otro Foro.... :bravo: :super:
OpenOffice 4.1.1 en Windows 7
Responder