Ayuda para abrir un archivo

jofepe
22 de Septiembre del 2003
Hola a todos.

Necesito que alguien me diga:

1º.- Tengo un archivo creado en word (Factura de compra)

1º.- Quiero que la aplicación que he creado me lo abra y me lo muestre en pantalla, mediante el mismo programa que lo creó (Word)

PREGUNTA: .- ¿Qué instrucción tengo que dar para que me abra el archivo y me lo muestre en pantalla?

2º.- Una vez echo esto, quiero que se me abrá un formulario en el cual, tendré que insertar unos registros dentro de (Text, label, etc...)
!!!! Esto se hacerlo !!!!

3º.- Una vez introducido los registros quiero que se inserten en los lugares correspondientes dentro de el archivo (Factura de compra)
PREGUNTA: ¿Tengo que configurar el documento mediante señaladores o similar, para que me reconozca el lugar donde quiero que se inserten los registros?
¿Qúe instrucciónes tengo que dar para insertar en dichos lugares los registros?


Espero no haberos echo perder vuestro tiempo con tanata aclaración


Gracias de antemano

rafa
22 de Septiembre del 2003
Hola Daniel.
Para abrir el documento word:
Dim objWord As Word.Application
Dim objDoc As Word.Document
Set objWord = New Word.Application
objWord.WindowState = wdWindowStateMaximize
objWord.Visible = true
Set objDoc = objWord.Documents.Add(sRutaPlantillas & "" & Trim(documento))
objWord.Quit False
Set objWord = Nothing

Para rellenar los campos:
No se si podras hacerlo con el documento abierto.
Pero con el cerrado si puedes. Tienes que guardar los datos de esos campos en una tabla y combinar correspondencia del doc word y esos campos.

sdemingo
22 de Septiembre del 2003
En el caso de que no tengas esa información guardada en una BBDD de access, puedes hacer lo siguiente: Deberás colocar marcadores en el documento word a los que harás referencia luego para escribir el texto en esa posición.
Por ejemplo, un marcador llamado NOMBRE

dim marcador as string
dim texto as string

marcador = "NOMBRE"

If wordApp.Documents(docActivo).Bookmarks.Exists(marcador) = True Then ' Si existe el marcador

wordApp.Documents(docActivo).Bookmarks(marcador).Select 'te posicionas en el marcador

wordApp.Selection.Font.Bold = True 'Negrita
texto = Text1.Text 'asignas valor
wordApp.Selection.TypeText Text:=texto 'escribes en el word
wordApp.Selection.Font.Bold = False 'no negrita

End If

Tendías que hacer por cada una de las marcas que tuvieras en el documento word.

wordApp es el objeto Word.Application
docActivo es la ruta del documento word en cuestión.

Para abrir el documento.

dim wordApp as object
set wordApp = CreateObject("Word.Application")
wordApp.Documents.Open FileName:="C:documento.doc", ReadOnly:=False

Espero que te sirva

Un saludo

sdemingo