[RESUELTO] Acceder al control de form.(texto)

Desarrollo de Macros y programación en UNO, usar las API, llamar programas externos...
Responder
CHALS
Mensajes: 10
Registrado: Dom Jul 31, 2016 3:53 pm

[RESUELTO] Acceder al control de form.(texto)

Mensaje por CHALS »

En un documento OpenOffice_Writer estoy casi acabado una rutina (macro) con la cual al pinchar en un campo de texto (en el que el usuario habrá introducido una palabra clave) se ejecuta dicha rutina. Eso ya funciona.
Pero dicha macro tiene que trabajar según el contenido del campo de texto. Y no sé cómo obtener por código el contenido que haya introducido el usuario. Soy muy novato en programación en OpenOffice.
Transcribo el contenido de la macro, en la cual habría que sustituir "busqueda.text" por el código correcto :

Código: Seleccionar todo

Dim iNumero As Integer
Dim sLinea As String
Dim aArchivo As String
Dim sMensaje as String
dim donde as integer
aArchivo = "c:\la_ruta\tasks.txt"
iNumero = Freefile
Open aArchivo For Input As iNumero
While not eof(iNumero)
Line Input #iNumero, sLinea
donde=instr(1,sLinea,busqueda.text)
sMensaje = sLinea
IF donde<>0 then
Msgbox sMensaje
end if
wend
Close #iNumero
Muchas gracias por vuestras aportaciones.
Saludos a tod@s.
Última edición por mauricio el Vie Ago 05, 2016 3:58 pm, editado 5 veces en total.
Razón: Marcar icono de resuelto
OpenOffice 4.1.2 en Windows 7
Avatar de Usuario
PepeOooSevilla
Mensajes: 1480
Registrado: Sab Abr 04, 2009 6:10 pm
Ubicación: Sevilla (España)

Re: Acceder al contenido campo de control de form.(texto)

Mensaje por PepeOooSevilla »

Hola.
Prueba con búsqueda.getText().
Saludos cordiales.
LibreOffice 6.4.6. Windows 10. Java 8 rev. 261 (64 bits)
Por favor, utiliza el Foro para tus consultas, no los mensajes privados
Si usas OpenOffice/LibreOffice trabaja y guarda en ODT, ODS, ODP, ... Y haz copias de seguridad.
CHALS
Mensajes: 10
Registrado: Dom Jul 31, 2016 3:53 pm

Re: Acceder al contenido campo de control de form.(texto)

Mensaje por CHALS »

Muchas gracias.
Me pongo ahora mismo en ello.
OpenOffice 4.1.2 en Windows 7
Responder