Macro su vb6 - problemi in stampa unione

[Nemolog]

Ciao a tutti.

sono un programmatore di vb e volevo porti un quesito: ho sviluppato un
SW per creare la Stampa unione dei file in word.

Il codice per generare la stampa unione l'ho ricavato registrando una macro
su word e riportando il codice su vb6.

Il processo funziona ma quando uso lo stesso SW su un'altro pc l'algoritmo
si interrompe sulla procedura che contiene il codice della macro.
Premetto che non ho riportato così brutalmente il codice... ma ho creato
gli oggetti word e incluso i riferimenti necessari.

avete qualche soluzione in merito?

[raffaeu]

Si blocca dove ??
Posta il codice che ti propone il debug, quando ti va in errore la macro

[Nemolog]

Public Function Stampa_all(dirX As String)

Dim x As New Word.Application
Form1.File3.path = dirX

If Form1.File3.ListCount > 2 Then
    For i = 0 To Form1.File3.ListCount - 1
        If (Form1.File3.List(i) <> "master.doc") And (Form1.File3.List(i) <> "master.txt") Then
        
        'suddivisione .doc & .jpeg
            If (Right(Form1.File3.List(i), 3) = "doc") Then
                    x.ChangeFileOpenDirectory _
                dirX
                x.Documents.Open FileName:=Form1.File3.List(i), ConfirmConversions:=False, ReadOnly _
                    :=False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate _
                    :="", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="" _
                    , Format:=wdOpenFormatAuto
                x.ActiveDocument.PrintOut
                x.ActiveDocument.Close
            End If
            
            If (Right(Form1.File3.List(i), 3) = "jpg" Or Right(Form1.File3.List(i), 3) = "emf" Or Right(Form1.File3.List(i), 3) = "wmf" Or Right(Form1.File3.List(i), 3) = "jpeg" Or Right(Form1.File3.List(i), 3) = "jfif" Or Right(Form1.File3.List(i), 3) = "jpe" Or Right(Form1.File3.List(i), 3) = "tif" Or Right(Form1.File3.List(i), 3) = "tiff") Then

'Qui si blocca! 
                x.Documents.Add DocumentType:=wdNewBlankDocument
                x.Selection.InlineShapes.AddPicture FileName:= _
                    dirX & "\" & Form1.File3.List(i), LinkToFile _
                    :=False, SaveWithDocument:=True
                x.ActiveDocument.PrintOut
                x.ActiveDocument.SaveAs FileName:=dirX & "\" & "doc" & i & ".doc", FileFormat:=wdFormatDocument, _
                    LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
                    :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
                    SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
                    False
                x.ActiveDocument.Close
                
            End If
            
            
        End If
    Next
End If

End Function

[raffaeu]

Se si blocca in x.Document, vuol dire che quell' x.document non lo trova ..

[allejo]

Ma la stampa unione con quale db usi?
Usi il db ACCESS x fare la stampa unione?