OpenOffice - Agregar Datos.

 
Vista:

Agregar Datos.

Publicado por Javier. (3 intervenciones) el 28/11/2005 09:21:06
Buenas tengo un Txt en c: por ejemplo.
Cargo una plantilla en Open Office y quisiera saber como puedo hacer que en esa plantilla cada renglón del txt hacer que me lo ponga en cada lugar especifico.
Ejemplo:
La plantilla carga Un documento y en el que pone:
Nombre : ________________________________

Pues hay después de el Nombre: quiero que me lo cojo del txt.
El txt lo leo y saco la 1ª pero no se como hacer que me lo ponga después del Nombre:
Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Agregar Datos.

Publicado por Javier (3 intervenciones) el 10/12/2005 12:03:18
asi lo conseguí , aunque no es lo que realmente querá pero bueno.

Public Sub InsertarTexto()
Dim oDoc As Object
Dim oText As Object
Dim oCursor As Object
Dim sTmp As String
Dim co1 As Long

'Referencia al documento activo
oDoc = ThisComponent
'Accedemos al servicio Text
oText = oDoc.getText()
'Creamos un cursor para movernos
oCursor = oText.createTextCursor()
'Nos movemos cinco parrafos abajo, tu lo mueves tantos parrafos abajo este tu linea
For co1 = 1 to 5
oCursor.gotoNextParagraph(False)
Next co1
'Nos movemos al final de la palabra Nombre
oCursor.gotoEndOfWord(False)
'Movemos el cursor cinco caracteres a la derecha
oCursor.goRight(5,False)
'Obtenemos el texto a insertar, aqui usas tu variable en vez de esta linea
sTmp = InputBox("Cual es tu nombre?")
'Movemos el cursor tantas letras como tenga la variable pero expandemos la seleccion para reemplazar
oCursor.goRight(Len(sTmp),True)
'Insertamos el texto
oText.insertString(oCursor, sTmp, True)

End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar