Stampa unione - chiusura documento senza salvare
Nina
lancio una stampa unione di due documenti WORD differenti. Il codoce che uso
č questo (fonte: vecchi messagi del NG):
Dim oApp As Word.Application
Set oApp = CreateObject("Word.Application")
oApp.Visible = False
'apro il modello della lettera
oApp.Documents.Open Lettera
'eseguo la stampa unione dell'intestazione con output su un nuovo
documento
With oApp.Documents(1).MailMerge
.Destination = wdSendToNewDocument
.Execute
End With
'attivo il documento creato
oApp.Windows(1).Activate
'posso visualizzare il risultato per un controllo
oApp.Visible = True
'chiudo il modello documento senza salvarlo
oApp.Windows(1).Close SaveChanges:=wdDoNotSaveChanges
'chiudo word
' oApp.Quit
'rilascio gli oggetti
Set oApp = Nothing
End If
Il punto č questo: in un caso la riga del codice relativa al commento ---
'chiudo il documento senza salvarlo --- funziona bene e mi permette di
chiudere il modello di Word da cui si origina la stampa unione lasciando
aperto il documento unito, nel secondo caso viene chiuso il documento di
unione e rimane aperto il modello. Secondo voi per quale strana ragione
avviene ciň?
Grazie mille
Nina
Sergio MAZZA
news:%06tb.27118$hV.9...@news2.tin.it...
> Salve a tutti, ho il seguente quesito da porvi. In due distinte
applicazioni
> lancio una stampa unione di due documenti WORD differenti. Il codoce che
uso
> Dim oApp As Word.Application
>
> Set oApp = CreateObject("Word.Application")
>
> oApp.Visible = False
> 'apro il modello della lettera
> oApp.Documents.Open Lettera
>
> 'eseguo la stampa unione dell'intestazione con output su un nuovo
> documento
> With oApp.Documents(1).MailMerge
> .Destination = wdSendToNewDocument
> .Execute
> End With
>
> 'attivo il documento creato
> oApp.Windows(1).Activate
>
> 'posso visualizzare il risultato per un controllo
> oApp.Visible = True
>
> 'chiudo il modello documento senza salvarlo
> oApp.Windows(1).Close SaveChanges:=wdDoNotSaveChanges
>
> 'chiudo word
> ' oApp.Quit
>
> 'rilascio gli oggetti
> Set oApp = Nothing
> End If
>
> 'chiudo il documento senza salvarlo --- funziona bene e mi permette di
> chiudere il modello di Word da cui si origina la stampa unione lasciando
> aperto il documento unito, nel secondo caso viene chiuso il documento di
> unione e rimane aperto il modello. Secondo voi per quale strana ragione
> Grazie mille
> Nina
>
Quale "secondo caso"?
Ciao.
--
Sergio MAZZA
Nina
"Sergio MAZZA" <sergi...@tiscalinet.it> ha scritto nel messaggio
news:bp30m6$a9l$1...@canarie.caspur.it...
> "Nina" <paninotElim...@yahoo.it> ha scritto nel messaggio
> news:%06tb.27118$hV.9...@news2.tin.it...
> > Salve a tutti, ho il seguente quesito da porvi. In due distinte
> applicazioni
> > lancio una stampa unione di due documenti WORD differenti. Il codoce che
> uso
> > 'chiudo il modello documento senza salvarlo
> > oApp.Windows(1).Close SaveChanges:=wdDoNotSaveChanges
> >
> >
> > Il punto è questo: in un caso la riga del codice relativa al
commento ---
> > 'chiudo il documento senza salvarlo --- funziona bene e mi permette di
> > chiudere il modello di Word da cui si origina la stampa unione lasciando
> > aperto il documento unito, nel secondo caso viene chiuso il documento di
> > unione e rimane aperto il modello. Secondo voi per quale strana ragione
> > avviene ciò?
> > Grazie mille
> > Nina
> >
>
> Quale "secondo caso"?
>
> Ciao.
>
> --
> Sergio MAZZA
Lo stesso codice viene utilizzato in due database differenti:
1) in un database ho come risultato l'apertura del documento unito di stampa
unione (output su un nuovo documento), mentre il file modello di stampa
unione viene chiuso, credo dal comando (includo anche il commento)
'chiudo il modello documento senza salvarlo
oApp.Windows(1).Close SaveChanges:=wdDoNotSaveChanges
2) nell'altro database e questo è il secondo caso ho come risultato la
chiusura del documento unito di stampa unione (output su un nuovo documento)
mentre mi rimane aperto il modello.
Come posso risolvere il problema ?
A me serve solo visualizzare il documento risultato della stampa unione,
cioè il file che di default viene chiamato LettereTipoX, e chiudere invece,
senza salvare ne tantomeno visualizzare, il file di stampa unione.
Grazie ancora Buon fine settimana
Ciao Nina
Sergio MAZZA
>
> Scusatemi se non sono stata chiara, spero di spiegarmi meglio:
> Lo stesso codice viene utilizzato in due database differenti:
> 1) in un database ho come risultato l'apertura del documento unito di
stampa
> unione (output su un nuovo documento), mentre il file modello di stampa
> unione viene chiuso, credo dal comando (includo anche il commento)
> 'chiudo il modello documento senza salvarlo
> oApp.Windows(1).Close SaveChanges:=wdDoNotSaveChanges
>
> 2) nell'altro database e questo è il secondo caso ho come risultato la
> chiusura del documento unito di stampa unione (output su un nuovo
documento)
> mentre mi rimane aperto il modello.
>
> Come posso risolvere il problema ?
> A me serve solo visualizzare il documento risultato della stampa unione,
> cioè il file che di default viene chiamato LettereTipoX, e chiudere
invece,
> senza salvare ne tantomeno visualizzare, il file di stampa unione.
>
> Grazie ancora Buon fine settimana
> Ciao Nina
>
Con il mailmerge dovresti avere 2 documenti:
oApp.Windows(1)... = modello aperto;
oApp.Windows(2)... = documento creato;
prova a bloccare l'esecuzione del codice prima della riga incriminata
('chiudo il modello documento senza salvarlo) e guarda se hai due documenti
e in che posizione (1 - modello, 2 - documento creato)...
Ciao.
--
Sergio MAZZA
Nina
"Sergio MAZZA" <sergi...@tiscalinet.it> ha scritto nel messaggio
news:bpaij7$9aj$1...@canarie.caspur.it...
> "Nina" <paninotElim...@yahoo.it> ha scritto nel messaggio
> news:lQ7tb.27876$hV.10...@news2.tin.it...
> >
> Con il mailmerge dovresti avere 2 documenti:
> oApp.Windows(1)... = modello aperto;
> oApp.Windows(2)... = documento creato;
>
> prova a bloccare l'esecuzione del codice prima della riga incriminata
> ('chiudo il modello documento senza salvarlo) e guarda se hai due
documenti
> e in che posizione (1 - modello, 2 - documento creato)...
>
> Ciao.
>
> --
> Sergio MAZZA
>
Ciao Sergio, ho fatto quanto mi hai suggerito, e in effetti ho verificato
che il File modello mi viene visualizzato in secondo piano.
Ho quindi modificato il codice per fargli chiudere oApp.Windows(2) e non
oApp.Windows(1) e funziona, anche se il file del documento creato non
visualizza le barre di Word (vado a spulciare la guida VBA in Word e spero
di trovare la soluzione.
Mi rimane difficile capire in che modo word ordini i documenti che apre,
visto che con lo stesso codice nell'altro database l'ordine di "apparizione"
dei documenti (modello e documento creato) era esattamente l'opposto.
Comunque, ti ringrazio tantissimo
A presto
Ciao Nina
Sergio MAZZA
>
> Ciao Sergio, ho fatto quanto mi hai suggerito, e in effetti ho verificato
> che il File modello mi viene visualizzato in secondo piano.
> Ho quindi modificato il codice per fargli chiudere oApp.Windows(2) e non
> oApp.Windows(1) e funziona, anche se il file del documento creato non
> visualizza le barre di Word (vado a spulciare la guida VBA in Word e spero
> di trovare la soluzione.
> Mi rimane difficile capire in che modo word ordini i documenti che apre,
> visto che con lo stesso codice nell'altro database l'ordine di
"apparizione"
> dei documenti (modello e documento creato) era esattamente l'opposto.
> Comunque, ti ringrazio tantissimo
> A presto
> Ciao Nina
>
Guarda, mi rimane difficile pure a me capire come due programmi (identici
per funzionalità) su due pc diversi (magari solo per sistema operativo) si
comportino in due modi differenti.
Per esempio ora sto combattendo con powerpoint; la presentazione che invio,
sul pc del mittente, non visualizza le animazioni!!! Nieeeenteee...
Ciao e buon lavoro.
--
Sergio MAZZA
Nina
"Sergio MAZZA" <sergi...@tiscalinet.it> ha scritto nel messaggio
news:bpd64j$1bk$1...@canarie.caspur.it...
> "Nina" <paninotElim...@yahoo.it> ha scritto nel messaggio
> news:TY5ub.43445$hV.16...@news2.tin.it...
> >
> Guarda, mi rimane difficile pure a me capire come due programmi (identici
> per funzionalità) su due pc diversi (magari solo per sistema operativo) si
> comportino in due modi differenti.
> Per esempio ora sto combattendo con powerpoint; la presentazione che
invio,
> sul pc del mittente, non visualizza le animazioni!!! Nieeeenteee...
>
> Ciao e buon lavoro.
>
> --
> Sergio MAZZA
>
Ciao Nina