Coger Txt de una ubicacion

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.

Por kisco el 1 Dic 2005 - 01:37 | Automatización y Macros en Basic | añadir nuevo comentario | 2544 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 valedor74 el Vie, 02/12/2005 - 03:59 | responder

Por supuesto

En cuanto llege a mi casa subo el código en el que lee un txt.

Por kisco el Lun, 05/12/2005 - 15:45 | responder

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.

Por kisco el Jue, 08/12/2005 - 13:00 | responder

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

Por kisco el Jue, 08/12/2005 - 23:14 | responder

recomendaciones

Quizás te interese...

Temas activos

Comentarios recientes

Internautas TV

Distribuir