Enviado por kisco el Jue, 01/12/2005 - 01:37.
Buenas compañeros.
Tengo un archivo.sxw que contiene:
Nombre: _________________________________
Pues quisiera que al abrir el archivo.sxw el Nombre lo cogiera de un txt que tengo en C:\ej.txt , que contiene el nombre.
La macro se hacerla y leer el txt y tener el nombre en una variable pero no se como ponerlo en ese sitio.
Veras el txt contiene muchos mas campos pero mi principal problema es colocarlo ahí.
Como podría hacerlo?
Gracias.
»
- Añadir nuevo comentario
- 10136 lecturas
Insertar Texto...
Ubiera sido muy bueno que mostraras el codigo que usas, toma en cuenta que a mucha gente le puede servir, pero mas importante, podriamos ayudarte directamente a modificar el codigo que usas, ahora, tienes que adaptar el siguiente codigo al tuyo...
Option Explicit
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
Mauricio
TODO LO QUE NO ES DADO ES PERDIDO
Por supuesto
En cuanto llege a mi casa subo el código en el que lee un txt.
Pegar datos al Texto actual desde macro
Buenas de nuevo compañeros.
No sé es como poner datos para el encabezado de pagina o pie de página.
Así que sería el mismo ejemplo de insertar texto que el compañero explicó pero que también valiese para el encabezado de pagina o pie de página.
gracias.
Hay va un trozo de código.
Bueno como dije:
Con esto lo que voy haciendo es leer el Documento de Open Office el Writter y todo lo que lea ,osea todo el texto plano insertado me lo guardo en un txt llamado salida.txt
También a modo de entendimiento tengo puesto un msgbox para lo que vaya leyendo me lo vaya agregando al msgbox de forma que cuando haya terminado el contenido será el mismo que el del msgbox final.Osea que el msgbox me va a mostrar el resultado final del txt.
sub n
Dim oDoc As Object
dim cad as string
Filename ="c:/salida.txt"
oDoc = ThisComponent
title$ =oDoc.DocumentInfo.Title
If oDoc.supportsService("com.sun.star.text.TextDocument") Then
FileNo = Freefile()
Open Filename For Output As #FileNo
oText = oDoc.getText()
oParagraphs =oText.createEnumeration()
Do While oParagraphs.hasMoreElements()
oPar =oParagraphs.nextElement()
oTexts =oPar.createEnumeration()
Do While oTexts.hasMoreElements()
oText = oTexts.nextElement()
Print #FileNo oText.string
cad= cad & oText.string & Chr(13)
msgbox cad
If oText.string ="" Then
Print #FileNo
Endif
Loop
Loop
Endif ' If
end sub