Resumen Como escribir algo en Word 97 desde Visual 5   (2 mensajes )

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



Resumen Resumen

Visual Basic Página de Visual Basic

Página principal Página principal

www.jrubi.com