Macro per inserimento dati da excel a word

[fabrytm]

Ciao a tutti,
aiutandomi in vari forum ho trovto una macro per inserire dei dati presenti su un foglio excel in un file word all'interno di moduli prestabiliti.
La macro viene lanciata da un file excel già aperto, richiama un file word prestabilito e riporta quello inserito nella cella G7 del excel nel modulo Mod1 di word.
E fino qui tutto ok. il problema sorge quando lancio per la seconda volta la macro, va in debug e non mi compila il modulo.
Sono costretto quindi ad uscire senza salvare sia da word che da excel e poi riaprire e rilanciare.
Cosa manca nel codice che posto di seguito, affinchè il debug non si ripresenti?
Grazie mille

Sub ApriWord()
Dim Nome As String
Dim WordApp As Object
Set WordApp = CreateObject("Word.Application")
WordApp.Documents.Open "C:\Users\fabrytm\Documents\Prova\doc1.docx"
WordApp.Visible = True
Set WordApp = Nothing
Nome = Range("g7")
ActiveDocument.FormFields("Mod1").Result = Nome
End Sub

[Anthony47]

Ciao fabrytm, benvenuto nel forum.

Probabilmente il messaggio di errore e la relativa riga di codice ci avrebbe aiutato; alla cieca posso solo commentare che la tua macro non contiene nessuna informazione (1) per salvare il file ne' (2) per terminare l' applicazione Word, in modo da poterlo ricreare correttamente al successivo rilancio della macro.

Quindi:

Codice: Seleziona tutto

Sub ApriModificaChiudiWord()
Dim Nome As String
Dim WordApp As Object
Set WordApp = CreateObject("Word.Application")
Set WordDoc = WordApp.Documents.Open "C:\Users\fabrytm\Documents\Prova\doc1.docx"     'MODIFICATO
WordApp.Visible = True
'Set WordApp = Nothing   'NON QUI
Nome = Range("g7")
WordDoc .FormFields("Mod1").Result = Nome    'Nome chi lo compila??
wrdDoc.Close savechanges:=True     'SALVA
'completa e chiudi Word
set WordDoc = Nothing   
WordApp.Quit
Set WordApp = Nothing
End Sub


(non collaudato)

Fai sapere se lo spunto e' stato utile.

Ciao