Pasar datos entre documentos word - VB-MUNDO

Insomnia17 · #1 (**permalink**) 29-06-2006, 09:32:07

Hola

Quiero unir la información contenida en varios documentos Word en un solo documento word. Para ello utilizo el siguiente código:

Código:

            With PedDoc
                .Application.Documents.Open rutiee
                Proforma.Documents.Item(1).Tables(1).Cell(Linea, 1).Range.Text = .Documents.Item(1).Tables(3).Cell(k, 2).Range.Text
                Proforma.Documents.Item(1).Tables(1).Cell(Linea, 2).Range.Text = .Documents.Item(1).Tables(3).Cell(k, 3).Range.Text
                Set PedDoc = Nothing
                .Quit
            End With

Es una parte del código, PedDoc y Proforma estan declarados como objetos Word

Código:

Dim Proforma As New Word.Application
    Dim PedDoc As New Word.Application

El problema es que cuando ejecuto la aplicación me salen unos mensajes por cada documento PedDoc que abro:

Este archivo está en uso por otra aplicación u otro usuario. (Aocuments and Settings\...\Normaol.dot), y luego empieza a decirme que guarde el dot, me abre el documento, me dice que se han hecho cambios que afectan a la plantilla global, Normal.dot,...

El caso es que si ejecuto paso a paso, no da esos errores, lo hace todo bien, como podría solucionarlo?

--Gracias--

J.M.Movilla · #2 (**permalink**) 29-06-2006, 11:18:06

Nunca he utilizado este método para unir varios documentos. Voy incrustando los documentos, leyéndolos directamente tras situar el puntero a donde quiero insertar el nuevo documento:

Código:

    Documents.Open FileName:="Nombre.doc", ConfirmConversions:=False, ReadOnly _
        :=False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate _
        :="", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="" _
        , Format:=wdOpenFormatAuto

Pero por lo que comentas sobre que funciona bien en Diseño, ¿has probado a insertar un DoEvents tras cada línea de Proforma?

O investigar a ver si ese método también admite un parámetro semejante al ConfirmConversions:=False del Documents.Open...

Insomnia17 · #3 (**permalink**) 29-06-2006, 13:04:08

Hola

Gracias por responder, mi problema es que no puedo insertar todo el documento, tengo que insertar algunas celdas de una de las tablas que tienen los documentos. He probado con DoEvents pero me sigue dando error.

--Gracias--

Insomnia17 · #4 (**permalink**) 29-06-2006, 13:15:23

Hola

He estado haciendo pruebas y si quito la parte de .Quit, no da ningún error, pero me deja el WINWORD en el administrador de tareas.

Alguna idea?

J.M.Movilla · #5 (**permalink**) 29-06-2006, 21:21:32

Yo creo que el problema te lo produce el hecho de que tratas de cerrar Word cuando está actualizando el documento. Tienes que ingeniártelas para darle tiempo a que termine de leer y actualizar todo el documento.

Algo así como

Código:

On Error Resume Next
Bucle:
DoEvents
Err = 0
.Quit
If Err <> 0 Then Goto Bucle
On Error Goto 0

Scherzo · #6 (**permalink**) 30-06-2006, 07:49:44

Creo que tu problema puede venir por esta parte del código:

Código:

...
Set PedDoc = Nothing 
PedDoc.Quit
...

Es decir, estás apuntando PedDoc a Nothing antes de cerrarlo, por lo tanto estás perdiendo la referencia al objeto abierto y luego cuando haces el .Quit lo estás haciendo de un PedDoc que apunta a Nothing, no al documento que realmente tenías abierto, por eso se te queda el WinWord abierto ya que tiene un documento abierto (aunque desreferenciado). Prueba a invertir el orden de esas dos instrucciones a ver qué pasa.

Esto que te digo es una suposición, no lo he probado, pero tiene toda la pinta que podría estar ahí tu problema.

Saludos

Insomnia17 · #7 (**permalink**) 03-07-2006, 08:02:28

Gracias

He probado las opciones pero no me funcionan, continua dandome el mismo error. Seguré intentandolo.

--Saludos--