Este trozo de código indica como abrir un documento Word 8 que ya existe y
poner un texto en el lugar indicado
por un marcador que hemos definido previamente en dicho documento (codigo
valido para Visual Basic 5.00):
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
'Creamos el objeto Word y abrimos en el un documento que ya existe
Set WordApp = CreateObject("Word.application")
Set WordDoc = WordApp.Documents.Open("prueba.doc")
'Escribimos en la posicion del Marcador "MarcadorDePrueba" que hemos
definido previamente en el documento Word
WordDoc.Bookmarks("MarcadorDePrueba").Select
WordApp.Selection.TypeText Text:="Este es el texto que introducimos para la
prueba"
'Salvamos el documento word y lo mostramos en pantalla
WordDoc.Save
WordApp.Visible = True
'Ponemos Word como la aplicación activa
WordApp.Activate
'Maximizamos la ventana de Word
WordApp.WindowState = wdWindowStateMaximize
WordApp.ScreenRefresh
'Liberamos los punteros a los objetos que hemos manejado
Set WordApp = Nothing
Set WordDoc = Nothing
Emilio Martínez Pallasá, epallasa@cajastur.es
Hola Felipe:
Si lo que necesitas es pasar datos de una variable de VB a un documento de word; create un marcador en el documento, justo donde quieres que aparezca la variable... y luego colocas este codigo en tu proyecto:
' Este ejemplo asigna s_var al marcador marcador1 del documento ejemplo.doc
Dim ObjWord as New.Application
Dim s_var as string
s_var = "Esto debe aparecer en word"
objWord.Documents.Open "c:\ejemplo\ejemplo.doc"
objWord.Documents(1).Activate
'Aqui le paso la variable
objWord.Selection.goto( true, 0, 0, marcador1 )
objWord.TypeText = s_var
objWord.Quit wdDoNotSaveChanges
SI deseo imprimir el documento agrego lo siguiente:
objWord.Documents(1).PrintOut 0
Espero sea esto lo que necesitabas... Aprobecho para agradecer a Felipe Llanos Granados que me dio una mano con esto...
Suerte ! Gustavo.
gustavo@novell.unam.edu.ar
ICQ 15206288