🚀 go-pugleaf

-------------------SCOPO :
Da VB devo aprire files .Doc di Microsoft Word 2000
gi� esistenti in una cartella.

Poich� devo interagire con essi
ho referenziato (Microsoft Word 9.0 Object Library)

Utilizzando la Sub seguente tengo traccia dei
documenti aperti.
---------------------
Private Sub Timer1_Timer()
On Error GoTo errore

    Caption = ""
    Dim MyApp As Word.Application
    Set MyApp = Application

    ReDim nome(MyApp.Documents.Count)
    For Each myDoc In MyApp.Documents
        nome(idx) = myDoc
        idx = idx + 1
    Next
    Text1 = Join(nome, vbNewLine)
    Set MyApp = Nothing

Exit Sub
errore:
    Text1 = ""
    Caption = Err.Description
End Sub
-------------------PROBLEMA:--

Se chiudo tutti i documenti, mentre il progetto � in esecuzione, aprendo
altro/i documento/i;
questi non vengono + rilevati.

In poche parole, deve rimanere aperto almeno un
documento Word.

Ho provato con :

    Set MyApp = New Application
    GetObject
    CreateObject

Niente da fare.
---------------
Ho l'impressione che venga memorizzato ID del processo Word e che una volta
chiusi tutti i documenti
al successivo riavvio (ovviamente) non avr� lo stesso ID.
--------------------
La cosa mi sembra veramente strana xch�
quando si utilizza un sistema del genere � ovvio che alla fine
dovranno essere chiusi prima i Doc Word e poi l'applicazione
che li gestisce.