Condividi:        

Unire dati di Word con Excel

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Unire dati di Word con Excel

Postdi femon » 12/03/14 19:02

Buongiorno, ho un grosso problema che non so risolvere:
ho un file Word di circa 100 pagine
ho una tabella Excel di circa 100 righe (tante quante il n. di pagine) e 3 colonne
la mia necessità sarebbe di sostituire o aggiungere in ogni pagina di word (che viene interrotta con l'interruzione di pagina) e dove è presente in un punto del testo un determinato codice vorrei sostituire o aggiungere il nome e cognome di quel codice che trovo nella tabella di Excel e questo per tutte le pagine di Word.
In pratica un "cerca verticale" ma partendo da word e cercando in Excel e per ogni pagina di word.
E' forse possibile con una macro?
Ho provato in vari modi ma non ci riesco.
Forse è impossibile?
Grazie a chi può aiutarmi.
femon
Utente Senior
 
Post: 101
Iscritto il: 12/03/14 18:51

Sponsor
 

Re: Unire dati di Word con Excel

Postdi alfrimpa » 12/03/14 19:46

Non so se ho capito bene la tua esigenza ma potresti tentare di risolvere con "Stampa Unione"

Ti linko una pagina che ne spiega il funzionamento.

http://office.microsoft.com/it-it/excel ... 03760.aspx

Ciao

Alfredo
Alfredo

Win7 + Office 2007
Avatar utente
alfrimpa
Utente Senior
 
Post: 1201
Iscritto il: 30/12/13 17:01
Località: Napoli

Re: Unire dati di Word con Excel

Postdi femon » 12/03/14 20:12

stampa unione purtroppo collega una lettera con tanti campi (indirizzi) mentre a me serve che ogni pagina sia collegata con un campo diverso da quella precedente e da quella successiva. (ho circa 100 pagine diverse l'una dall'altra)
femon
Utente Senior
 
Post: 101
Iscritto il: 12/03/14 18:51

Re: Unire dati di Word con Excel

Postdi femon » 12/03/14 20:13

il collegamento non è uno-molti ma molti-molti non so se riesco a spiegarmi
femon
Utente Senior
 
Post: 101
Iscritto il: 12/03/14 18:51

Re: Unire dati di Word con Excel

Postdi alfrimpa » 12/03/14 21:09

Avevo il presentimento di averla fatta troppo "semplice" :)

Mi spiace.

Sicuramente ci saranno altri che avranno idee migliori.

Alfredo
Alfredo

Win7 + Office 2007
Avatar utente
alfrimpa
Utente Senior
 
Post: 1201
Iscritto il: 30/12/13 17:01
Località: Napoli

Re: Unire dati di Word con Excel

Postdi Anthony47 » 13/03/14 01:06

Ma quel "determinato codice" e' sempre lo stesso su ogni pagina o sono N codici diversi?

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Unire dati di Word con Excel

Postdi femon » 13/03/14 09:37

ci sono N codici diversi ( se il documento ha per esempio 180 pagine in ogni pagina c'è un codice diverso dalle altre pagine ed il file excel corrispondente avrà una tabella di 180 righe e di 3 colonne dove nella prima c'è il codice e nella seconda e terza avrà il nome e cognome specifio).
E' un po' complicato....
Grazie a chi ci sta pensando.
femon
Utente Senior
 
Post: 101
Iscritto il: 12/03/14 18:51

Re: Unire dati di Word con Excel

Postdi Anthony47 » 13/03/14 12:46

Se partendo dal file excel si cercano nel doc uno a uno i 180 codici, sostituendoli con qualcosa ottenuto dalle altre colonne Excel, il risultato sara' Ok? Se Si allora ti chiedo di allegare un file word esemplificativo contenente almeno 5 codici, di pubblicare lo screenshot di come sono organizzati i dati in Excel, e di spiegare che cosa va messo nel doc al posto del codice cercato.
Per come fare guarda qui: viewtopic.php?f=26&t=80395

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Unire dati di Word con Excel

Postdi femon » 13/03/14 15:08

mi sembra che hai centrato il mio problema!
Appena torno a casa (dall'ufficio non posso collegarmi a rapidshare) ti invio il tutto.
Grazie mille.
femon
Utente Senior
 
Post: 101
Iscritto il: 12/03/14 18:51

Re: Unire dati di Word con Excel

Postdi femon » 13/03/14 20:45

Scusa il ritardo,
ti ho allegato i due files di esempio sia quello di word che quello di Excel.
In pratica nel documento word dove vedi il campo che è presente in ogni pagina "Numero scheda:2014000...." (che ho evidenziato in giallo) e che è diverso per ogni pagina, vorrei che venissero aggiunti i campi cognome e nome che ci sono nel file Excel in corrispondenza dello stesso numero.
E questo deve avvenire per tutte le pagine del documento word in modo che quando stampo ogni pagina corrisponde ad una precisa persona.
Questo è il link di rapidshare:
http://rapidshare.com/share/BF6A39DC506 ... 6B11018FB6
Grazie ancora per l'interessamento.
femon
Utente Senior
 
Post: 101
Iscritto il: 12/03/14 18:51

Re: Unire dati di Word con Excel

Postdi Anthony47 » 13/03/14 23:56

Purtroppo al link non corrisponde nulla di scaricabile; se non riesci su Rapidshare usa filedropper.com.

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Unire dati di Word con Excel

Postdi femon » 14/03/14 13:50

Questi mi sembra che funzionino.

http://dfiles.eu/files/r6n36hgdr
http://dfiles.eu/files/wkzy2eoom

Grazie.
Federico
femon
Utente Senior
 
Post: 101
Iscritto il: 12/03/14 18:51

Re: Unire dati di Word con Excel

Postdi Anthony47 » 15/03/14 01:21

Sulla base dei file allegati ho abbozzato questa macro, da inserire in un modulo standard (es Modulo1) del file excel:
Codice: Seleziona tutto
Sub wordrepl()
Dim ObjWord As Object, FullNome As String, myCerca As String, myRepl As String
Dim objDoc As Object, I As Long
'
'Chiedi il file da gestire:
With Application.FileDialog(msoFileDialogFilePicker)
    .AllowMultiSelect = False
    .Filters.Clear
    .Filters.Add "Word", "*.doc*", 1   '<<< Filtro per estensione
    .Show
    If .SelectedItems.Count = 0 Then
         MsgBox ("Nessuna voce selezionata, procedura annullata")
         GoTo ESci
    End If
    FullNome = .SelectedItems(1)     'Directory e Nome del file selezionato
End With
'
'Aprilo in word:
Set ObjWord = CreateObject("Word.Application")
ObjWord.Visible = True
Set objDoc = ObjWord.Documents.Open(Filename:=FullNome)
'
If ObjWord Is Nothing Then
    MsgBox "Applicazione non disponibile", vbExclamation
    GoTo ESci
End If
'
'Cerca e sostituisci:
With objDoc.ActiveWindow
    .Selection.HomeKey Unit:=6   'wdStory
    For I = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        myCerca = "Numero scheda: " & Cells(I, 1).Value
        myRepl = "Scheda: " & Cells(I, 2) & " " & Cells(I, 3)
        .Selection.Find.ClearFormatting
        .Selection.Find.Replacement.ClearFormatting
        With .Selection.Find
            .Wrap = 1
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
    .Selection.Find.Execute myCerca, False, , , , , , , , myRepl
    Next I
End With
MsgBox ("Completato... " & vbCrLf & "Controllare il file e salvarlo")
'
ESci:
Set ObjWord = Nothing
Set objDoc = Nothing
End Sub
Va lanciata mentre e' attivo il foglio contenente la tabella Numero /Nominativi.
La macro chiede di selezionare il file word da manipolare, lo apre in una nuova sessione di Word e procede alle sostituzioni.
Alla fine del lavoro sara' emesso un messaggio che invita a controllare il file generato e salvarlo; completato il salvataggio la sessione di Word puo' essere chiusa.
Ho preferito questa sequenza, ripetto al "Salva documento" / "chiudi Word" nella macro, per poter gestire eventuali errori tra quanto desiderato e quanto realizzato dalla macro.

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Unire dati di Word con Excel

Postdi femon » 15/03/14 12:14

ANTHONY 47 sei stato FANTASTICO!!!! :D :D :D :D
Funziona perfettamente.
Non sai quanto lavoro di rompimento di scatole (scrivendo tutto a mano) mi hai risparmiato!
Ti ringrazio tantissimo!!
Sei veramente bravo.
Grazie ancora.
Federico.
femon
Utente Senior
 
Post: 101
Iscritto il: 12/03/14 18:51


Torna a Applicazioni Office Windows


Topic correlati a "Unire dati di Word con Excel":


Chi c’è in linea

Visitano il forum: Nessuno e 37 ospiti