Newsgroup: it.comp.appl.access
Titolo: Esportare un file

Qualcuno sa dirmi come e' possibile esportare un report in un file di word,
ma inserendo tale report nella terza pagina di un file word gia' esistente?
Grazie

 Grazie
Ciao.

 ma inserendo tale report nella terza pagina di un file word gia'
esistente?
Questo non so se può essere fatto :-(
--
Ciao Marco S.
http://digilander.iol.it/santimarco


In questo NG ci sono delle regole
(
http://www.sitocomune.com/netiquette.htm
), una di queste č quella di
scrivere il testo della risposta dopo il messaggio precedente, come sto
facendo io; grazie.
Puoi provare con:
'-----------------
Sub apriWordEinserisciRTF()
Dim oApp As Word.Application
Set oApp = CreateObject("Word.application")
With oApp
    .Documents.Open ("nomeFileDOC.doc")
    .Selection.Goto What:=wdGoToPage, Which:=wdGoToNext, Name:="3"
    .Selection.Find.ClearFormatting
    With .Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    .Selection.InsertFile FileName:="nomeFileRTF.rtf", Range:="",
ConfirmConversions:=False, Link:=False, Attachment:=False
End With
oApp.Visible = True
Set oApp = Nothing
End Sub
'-----------------
Ricordati di inserire i riferimenti alla libreria di Word; menů strumenti -
riferimenti...
Ciao.

 ha scritto nel messaggio
news:9gvlb2$fbs$1...@canarie.caspur.it...

Grazie e scusate per aver violato le norme (sono nuovo del NG).
Ho provato, ma non riesco a trovare i riferimenti per inserire quelli di
word.
Grazie

     .Documents.Open ("xxxxxx.doc")           ' xxxxx.doc č il file in cui
inserire il report
Grazie

 Grazie
Se invii il pezzo di codice fai un'opera buona...
Ciao.


Grazie, ma intendevo il tuo di codice non il mio esempio, quello lo conosco
gią; oppure il tuo file si chiama veramente xxxxxx.doc? Ma anche se fosse
dovrai indicare la directory dove č memorizzato o č nella stessa posizione
dell'mdb? E poi controlla anche la posizione del file in formato rtf (che io
ho chiamato nomeFileRTF.rtf).
Conclusione: se i file (mdb, doc, rtf) sono nella stessa cartella non devi
indicare il percorso, basta solo il nome del file; in caso contrario devi
indicare il percorso per i doc e rtf...
Ciao.


I file doc, rtf e mdb si trovano nella stessa directory, eppure non riesce a
trovare il file.
Mi chiedo: ma deve essere una Sub o una Private Sub???
D'altronde non sono un espertissimo di Access, ma ci sto  mettendo del mio
meglio.
Grazie Ciao

 Grazie Ciao
Sub o Private Sub poco importa; se vuoi crearti una Sub che viene chiamata
da qualsiasi maschera, ti crei un modulo e la scrivi lě:
'-------------
Sub nomeSub()
. . . codice VBA
End Sub
'-------------
Poi, per esempio, da un bottone, nell'evento "su clic" puoi richiamarla:
Es.
'-------------
Private Sub nomeBottone_onClick()
nomeSub
End Sub
'-------------
L'unico problema č sapere come hai chiamato i file, come hai scritto i loro
nomi nel codice VBA e dove li hai salvati; il "dove li hai salvati" l'hai
detto, se completi le informazioni con i nomi dei file e il codice che li
richiama il cerchio č chiuso (spero)...
Ciao.


Spero di non fare troppa confusione. Cerco di ricapitolare:
In una maschera ho inserito il pulsante che dal report R_Elenco genera il
file R_Elenco.rtf ;
ho inserito un nuovo pulsante che inserisce questo file R_Elenco.rtf  come
terza pagina del un file doc di nome Scheda.doc .
I problemi sono due:
1) mi inserisce il file all'inizio della pagina uno, mentre io vorrei che lo
inserisse a partire dalla terza;
2) vorrei poter fare il tutto con un solo pulsante.
Questo è il codice (che mi hai inviato e da me modificato) con cui inserisco
il file rtf nel doc:
Private Sub Esporta_Click()
 Dim oApp As Word.Application
 Set oApp = CreateObject("Word.application")
 With oApp
     .Documents.Open ("Scheda.doc")       'questo e' il file di destinazione
     .Selection.Goto What:=wdGoToPage, Which:=wdGoToNext, Name:="3"
     .Selection.Find.ClearFormatting
     With .Selection.Find
         .Text = ""
         .Replacement.Text = ""
         .Forward = True
         .Wrap = wdFindContinue
         .Format = False
         .MatchCase = False
         .MatchWholeWord = False
         .MatchWildcards = False
         .MatchSoundsLike = False
         .MatchAllWordForms = False
     End With
                    ' questo il file rtf generato dal report
     .Selection.InsertFile FileName:="R_Elenco.rtf", Range:="",
ConfirmConversions:=False, Link:=False,
Attachment:=False
 End With
 oApp.Visible = True
 Set oApp = Nothing
End Sub
In attesa di una tua, ti ringrazio ancora tanto.
Ciao

 2) vorrei poter fare il tutto con un solo pulsante.
Questo è un'altro discorso;
nel pulsante "Esporta" inserisci il codice prima di "With oApp":
'--------
DoCmd.OutputTo acOutputReport, "R_Elenco", acFormatRTF, "R_Elenco.rtf"
'--------
Vedi l'help del metodo OutputTo.

Ciao.


Ti invio il codice che utilizzo cioe' quello tuo modificato.
Mi da errore di Run Time 5174 - impossibile trovare il file SCHEDA.DOC
Questo è il codice (che mi hai inviato e da me modificato) con cui inserisco
il file rtf nel doc:
Private Sub Esporta_Click()
 Dim oApp As Word.Application
 Set oApp = CreateObject("Word.application")
 With oApp
     .Documents.Open ("Scheda.doc")       'questo e' il file di destinazione
     .Selection.Goto What:=wdGoToPage, Which:=wdGoToNext, Name:="3"
     .Selection.Find.ClearFormatting
     With .Selection.Find
         .Text = ""
         .Replacement.Text = ""
         .Forward = True
         .Wrap = wdFindContinue
         .Format = False
         .MatchCase = False
         .MatchWholeWord = False
         .MatchWildcards = False
         .MatchSoundsLike = False
         .MatchAllWordForms = False
     End With
                    ' questo il file rtf generato dal report
     .Selection.InsertFile FileName:="R_Elenco.rtf", Range:="",
ConfirmConversions:=False, Link:=False,
Attachment:=False
 End With
 oApp.Visible = True
 Set oApp = Nothing
End Sub
In attesa di una tua, ti ringrazio ancora tanto.
Ciao

 Questo č il codice (che mi hai inviato e da me modificato) con cui

In effetti un po di confusione la sto creando,ma spero nella tua pazienza:
l'ultimo post che ti ho inviato non devi considerarlo in quanto appena
modificato il codice, ha funzionato per una volta, poi niente piu', solo
errore run time che ti dicevo.
 Il problema di fare tutto con un pulsante l'ho risolto, ma ora resta il
problema che non riesce a trovare il file e mi da errore run-time 5174.
Tutti i files risiedono nella stessa directory, ma non lo trova comunque.
Grazie ancora

 Grazie ancora
Mandami tutto il codice da Sub a End Sub; non mi hai detto se il documento
word ha o no le tre (o più) pagine già create...
Ciao.

 ha scritto nel messaggio
news:9hc4g1$4d0$1...@canarie.caspur.it...

Ti confermo che funziona la prima volta...poi non mi trova piu' il file
Scheda.doc (che è composto da 3 pagine)
R_Generale.rtf è invece il file generato dal report.
Questo è il codice che associo al pulsante Esporta:
Private Sub Esporta_Click()
 Dim oApp As Word.Application
 Set oApp = CreateObject("Word.application")
 With oApp
    .Documents.Open ("Scheda.doc")                'qui mi da errore e lo
evidenzia di giallo!!!!
     .Selection.Goto What:=wdGoToPage, Which:=wdGoToNext, Name:="3"
     .Selection.Find.ClearFormatting
     With .Selection.Find
         .Text = ""
         .Replacement.Text = ""
         .Forward = True
         .Wrap = wdFindContinue
         .Format = False
         .MatchCase = False
         .MatchWholeWord = False
         .MatchWildcards = False
         .MatchSoundsLike = False
         .MatchAllWordForms = False
     End With
     .Selection.InsertFile FileName:="R_Generale.rtf", Range:="",
ConfirmConversions:=False, Link:=False, Attachment:=False
 End With
 oApp.Visible = True
 Set oApp = Nothing
 End Sub
A capelli siamo alla pari. Ti ringrazio. Ciao

 Questo č il codice che associo al pulsante Esporta:

Visto che ti si blocca iniziamo a inserire la gestione dell'errore:
'------------
Private Sub Esporta_Click()
On Error Goto Esporta_err
.
.codice VBA
.
Esporta_exit:
    Exit sub
Esporta_err:
    Set oApp = Nothing
    MsgBox Err.Description & ", " & Err.Number
Exit Sub
'------------
Poi proviamo cosě:
'----------
...
With oApp
     .Documents.Open "Scheda.doc"
...
'----------
Ciao.

 ha scritto nel messaggio
news:9hcqg9$k35$1...@canarie.caspur.it...

Caspita...ho provato in entrambi i modi, ma niente!!!!
Private Sub Esporta_Click()
On Error GoTo Esporta_err
 Dim oApp As Word.Application
 Set oApp = CreateObject("Word.application")
 With oApp
     .Documents.Open "Scheda.doc"
     .Selection.Goto What:=wdGoToPage, Which:=wdGoToNext, Name:="3"
     .Selection.Find.ClearFormatting
     With .Selection.Find
         .Text = ""
         .Replacement.Text = ""
         .Forward = True
         .Wrap = wdFindContinue
         .Format = False
         .MatchCase = False
         .MatchWholeWord = False
         .MatchWildcards = False
         .MatchSoundsLike = False
         .MatchAllWordForms = False
     End With
     .Selection.InsertFile FileName:="R_Generale.rtf", Range:="",
ConfirmConversions:=False, Link:=False, Attachment:=False
 End With
 oApp.Visible = True
 Set oApp = Nothing
Esporta_exit:
    Exit Sub
Esporta_err:
    Set oApp = Nothing
    MsgBox Err.Description & ", " & Err.Number
Exit Sub
 End Sub


Cavolo!
Allora prova ad inserire la directory
'---------
.Documents.Open "C:\MaDoveDiavoloStai\Scheda.doc"
'---------
E se non funziona cambiagli nome a sto' file; scherzo...
Ma che tipo di errore ti presenta?
Ciao.

 ha scritto nel messaggio
news:9hcqg9$k35$1...@canarie.caspur.it...

Ho provato in entrambi i modi, cambia l'avviso di errore, ma sempre lo
stesso e cioč che non riesce a trovare il file Scheda.doc oppure dice di
cambiare il nome del file.

 cambiare il nome del file.
Mi dispiace ma a questo punto mi dovresti inviare il pc o almeno l'hd...
Solo tu sai cosa c'č in quella benedetta cartella. Una cosa non ho trovato
nel codice le istruzioni che esportano il report in rtf, ma credo che non
influisca sul risultato...
Ciao.


In effetti le avevo tolte per fare una prova, ma ti assicuro che ci sono
nella versione definitiva.
Io continuero' nella mia lotta, soprattutto per capire perche' la prima
volta funziona e dopo no. Per ultima cosa volevo dirti che ho notato che
durante i miei innumerevoli tentativi mi ha aperto winword parecchie volte
e con Ctrl+alt+canc me ne sono ritrovato aperti ben 13.
Ho provato a far girare il tutto anche su un altro pc, ma niente.
Se ci riusciro' non esitero' a comunicartelo e spero che sul Ng, quando
vedrai il mio nome non lo cancellerai a priori!!!
Ciao e grazie

 vedrai il mio nome non lo cancellerai a priori!!!
Come minimo gli devi pagare una pinta di birra ;-)



Lascia perdere la birra e riavvia il pc; che tutte le volte che ti andava in
errore ti č rimasta in memoria un'istanza dell'oggetto word.
Chiudi tutto e riparti, con la gestione degli errori l'oggetto word non
rimane piů aperto e se č quello l'errore (volesse il cielo!)... Me paghi na'
cena!!
Ciao.
P.S. Nella lista nera c'č solo un nominativo...

 ha scritto nel messaggio
news:9hd1uh$p2s$1...@canarie.caspur.it...

....Calma, calma...forse ci siamo!!!!....ho inserito il controllo degli
errori, ho unito i due comandi (creazione del file rtf del report e
esportazione in un file di word) e sembra che funzioni.
Ho inserito l'intero percorso dei vari files.
Per ottimizzare l'operazione pero' (visto che ormai la cena deve uscire)
volevo chiederti se si puo' togliere l'avviso che mi permette di scegliere
il tipo di file da esportare, cioe' rtf, dos,html che mi esce fuori quando
chiedo l'esportazione del file ed eventualmente inserire nel codice stesso
il percorso che dovra' prendere il file word. Per info ti invio il codice
finale e che Dio mi salvi!!! Ancora grazie.
Private Sub Esporta_Click()
    'Crea file rtf del report
    Dim stDocName As String
    stDocName = "R_Generale"
    DoCmd.OutputTo acReport, stDocName
    'Inizio codice di esportazione file
On Error GoTo Esporta_err
 Dim oApp As Word.Application
 Set oApp = CreateObject("Word.application")
 With oApp
     .Documents.Open ("C:\WINDOWS\Desktop\Scheda.doc")
     .Selection.Goto What:=wdGoToPage, Which:=wdGoToNext, Name:="3"
     .Selection.Find.ClearFormatting
     With .Selection.Find
         .Text = ""
         .Replacement.Text = ""
         .Forward = True
         .Wrap = wdFindContinue
         .Format = False
         .MatchCase = False
         .MatchWholeWord = False
         .MatchWildcards = False
         .MatchSoundsLike = False
         .MatchAllWordForms = False
     End With
     .Selection.InsertFile FileName:="C:\WINDOWS\Desktop\R_Generale.rtf",
Range:="", ConfirmConversions:=False, Link:=False, Attachment:=False
 End With
 oApp.Visible = True
 Set oApp = Nothing
Esporta_exit:
    Exit Sub
Esporta_err:
    Set oApp = Nothing
    MsgBox Err.Description & ", " & Err.Number
Exit Sub
End Sub