ESPORTARE DATI DA EXCEL IN WORD

[morpheus1976]

Buongiorno,
chiedo un aiuto in quanto non riesco a trovare la soluzione,
brevemente (se riesco vorrei allegarvi i file cosi risulterebbe più facile), ho 2 file uno word e uno excel, praticamente il word è un file di fine lavoro dove all'interno ci sono dei dati anagrafici, che vanno sempre riportati uguali, tranne una parte dove bisogna inserire dei dati che sono riportati in un file excel. Essendo che ho circa 360 schede da fare non vorrei ripetere l'operazione per ogni scheda , ho inserito all'interno del file word, delle frecce con le colonne da estrarre indicate, se qualche anima buona riesce ad aiutarmi ve ne sarei grato.
Grazie

[Alexsandra]

Volevo sapere se il file principale su cui lavori è il file Word
e anche se il file Excel è aperto o chiuso.

[Alexsandra]

avevo tempo e ho messo giù una bozza.

Il file Word ed Excel sono sul Desktop, se hai bisogno di un altro percorso si deve modificare il codice.

Per comodità ho rinominato i 2 file usando nomi più corti.

Per compilare i campi lanci la macro premendo i tasti CTRL+A mentre se vuoi svuotare i campi premi i tasti CTRL+B

prova e vedi se ti va bene questa soluzione

[morpheus1976]

intanto grazie, ora provo subito il file,
si il file principale è word, mentre il file excel è aperto

[morpheus1976]

unica cosa, ho notato che dentro il file rar c'è solo il file word, è possibile?

[Alexsandra]

il file Excel non l'ho toccato, è rimasto tale e quale, per cui usi il tuo.
unica cosa devi fare attenzione ai percorsi dei 2 file, segui le indicazioni del mio ultimo post.

[morpheus1976]

Ho provato a lanciare la macro da word con control a però mi esce un errore e mi dice:

errore di compilazione

impossibile trovare il progetto o la libreria

o inserito il file excel sul desktop rinominandolo in riepilogo e inserendo il percorso del mio desktop ma non va lo stesso, sempre stesso errore

[morpheus1976]

di visual non ci capisco molto, ma sembra che l'errore lo segni qui:

Sub a()
Dim xl_app As Excel.Application

[Alexsandra]

Ti manca la libreria. segui queste indicazioni

Per referenziare la libreria devi entrare nell'Editor di Visual Basic attraverso il percorso Strumenti - Macro - Visual basic Editor - oppure premendo i tasti CTRL+F11. Una volta entrato nell'Editor dal menu Strumenti, clicca sulla voce Riferimenti e cerca la libreria che si chiama Microsoft Excel xx.x Object Library spuntando l'apposita casella e cliccando poi sul tasto OK. come puoi vedere nell'immagine allegata

[morpheus1976]

a me lo da cosi

[morpheus1976]

sembra sia riuscito a risolvere l'errore, ora devo solo capire, come funziona ovvero, io apro il file word do il comando ctrl+a e poi?

[morpheus1976]

ok ok ho visto ora, praticamente quello che cercavo io,
allora adesso serve solo capire:

come faccio per farlo per tutte le schede che devo compilare?

nel foglio 3 quelle in verde sono tutte quelle che devo compilare quindi mi serve per 303 fogli word, oppure 1 foglio word che conterrà poi le 303 schede.

ho visto che basta modificare i valori delle celle e i campi vengono compilati

però mi domando è possibile fare in modo di fare generare all'interno dello stesso file word più pagine dove poi andare a compilare automaticamente i dati?

per il resto direi perfetto come lavoro grazie mille

[Alexsandra]

Adesso il discorso si complica, non tanto a livello di programmazione, ma bensì di struttura.
avrai notato che quando premi CTRL+A ci vuole un po' di tempo per compilare i campi, in quanto dobbiamo aprire Excel, reperire i dati e poi chiudere Excel.

Da quello che devi fare penso che tu debba reperire i dati dall'archivio di Excel e poi compilare la prima parte del file Word inserendo nome cognome etc. e questo per 303 volte e presumo anche che tu debba mandare in stampa il lavoro. Usare la tecnica appena descritta andrebbe ad intasarti la coda di stampa, per cui ad ogni operazione dobbiamo stoppare il codice per qualche secondo e permettere lo svuotamento della coda di stampa.

Si devono fare delle prove, ma a prima vista io userei solo Excel, si prende un foglio che verrà strutturato come dimensione di righe e colonne da assomigliare alla struttura che vedi in Word, così si guadagna il tempo di apertura e interfacciamento di Word con Excel.
Poi dobbiamo provare e trovare il metodo migliore, uno potrebbe essere quello di compilare tutti i campi in automatico (non solo quelli che abbiamo già fatto ma anche il nome, cognome etc) e inviarli in stampa, fermando il programma tra una stampa e l'altra. Un altro sistema potrebbe essere di compilare il primo record e poi duplicarlo per 303 volte, convertirlo in PDF e poi lanciare la stampa.

PS: ovvio che in questi sistemi si dovrebbe andare a reperire anche i dati del nominativo, per cui serve un foglio che li contenga tutti

Ma prima di decidere su come operare dovresti fornire più indicazioni sul processo, poi vediamo quale tecnica utilizzare

[morpheus1976]

Diciamo che per come funziona adesso andrebbe molto bene, unica cosa che purtroppo mi servono 303 fogli che hanno la prima parte sempre uguale (i dati anagrafici per intenderci) e cambiano solo quelli dove lei ha giustamente messo le lettere.

quindi le cose sono 2:

ho modifico 1 file alle volta e cambio di volta in volta le celle all'interno del VB (diventerebbe cmq un lavorono lungo), oppure se fosse possibile integrare questa funzione incrementando all'interno del file word una pagina per ogni record.

Avevo pensato di usare la pagina word come se fosse un excel ma non saprei proprio come fare.

[morpheus1976]

allego i file completi