Ho un problema su una macro in una maschera: su un pc con word 2000 e
access 97 (solo su quello, poichè ne ho provati altri con la medesima
configurazione) mi da sempre errore di memoria insufficiente nel
momento in cui esegue
oApp.Application.Documents.Open NomeCartella & "\Modulo_primo.doc", ,
, , "pwd", , , "pwd"
Ma se lo apro manualmente, lo stesso file si apre regolarmente.
Da cosa potrebbe dipendere?
CODICE COMPLETO
Private Sub Salva_Click()
Dim oApp As New Word.Application
Dim NomeCartella, PercNuovo As String
Me.Form.Requery
NomeCartella = Left(CurrentDb.Name, Len(CurrentDb.Name) - Len(Dir(CurrentDb.Name)))
PercNuovo = NomeCartella & "Atti\"
NomeFile = "Atto_" & StripString(Me.mittente.Value) & "_" & StripString(Me.cedente.Value) & ".doc"
oApp.Application.Documents.Open NomeCartella & "\Modulo_primo.doc", , , , "pwd", , , "pwd"
oApp.Visible = False
With oApp.ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.Execute
End With
Grazie a tutti
Rispondi quotando
