Andr?G.
07 de Octubre del 2003

Hola!!!!
Tengo lo siguiente en VB6:

Dim oWordDoc As Word.Document
Dim oWordDoc1 As Word.Document
Dim oWord As Word.Application
Dim fichero As String
...
Set oWordDoc = oWord.Documents.Add(fichero, false)
...

Necesito abrir un nuevo documento Word (algo como Set oWordDoc1 = new Word.Document) y copiar el contenido que tengo en el objeto oWordDoc a este nuevo documento oWordDoc1 (¡¡¡ ESTO ES LO QUE NO SE HACER !!!!!).
Además, para complicarlo más necesito ir añadiendo a oWordDoc1 los cambios que hago en oWordDoc, es decir, opero sobre oWordDoc y cuando termino guardo todo en oWordDoc1 pero añadiendo la información, no sobreescribiendo, ¿como puedo copiar el contenido del Objeto oWordDoc al final del objeto oWordDoc1?
¿Alguna ayuda o sugerencia?.
Muchas Gracias y Salu2.

sdemingo
07 de Octubre del 2003

oWordDoc.Selection.WholeStory
oWordDoc.Selection.Copy
oWordDoc1.Selection.EndKey Unit:=6
oWordDoc1.Selection.Paste

Prueba con algo así para añadir todo el contenido de oWordDoc al final de oWordDoc1


Un saludo
sdemingo

Andr?G.
07 de Octubre del 2003

OK.
Como la seda con la primera prueba que he hecho. De momento va bien.

Muchisimas gracias y salu2.