vba ciclo for per compilare documenti Word

Question

Ciao a tutti, 

con un ciclo for vado a compilare dei documenti word in serie con i segnalibri. Il problema è che compila solo il primo, al secondo mi da errore di run time 91: Variabile oggetto o variabile del blocco With non impostata. L'errore mi viene dato sulla riga in cui setto il word document (set doc=wmodulo....). Cosa sbaglio? 

Grazie 

Mario

Dim doc As Word.Document<br> Dim wmodulo As Word.Application<br> Dim i, a As Integer<br> Dim filepath, filepath2 As String<br> <br> filepath = "Q:\Comune\LP"<br> filepath2 = "Q:\Comune\LP\Mario"<br> Set wmodulo = CreateObject("Word.Application")<br> i=20<br> <br> For a = 1 To i<br> <br> FileCopy filepath & "LP BASE.docx", filepath2 & "LP " & a & " " & Format(Now(), "yyyy-mm-dd") & " .docx" <br> <br> Set doc = wmodulo.Documents.Open(filepath2 & "LP " & a & " " & Format(Now(), "yyyy-mm-dd") & " .docx")<br> <br> With doc<br> .Bookmarks("gross").Select<br> wmodulo.Selection.TypeText Format(Range("g" & a), "###,####,###.00") <br> End With<br> <br> wmodulo.Quit <br> Set doc = Nothing<br> Set wmodulo = Nothing<br> <br> Next

Answer 1

Io non utilizzo questo modo dialogare con Word.

Ad ogni modo, prova a modificare questa parte:

    wmodulo.Quit

    Set doc = Nothing

    Set wmodulo = Nothing

Così:

   doc.save

   doc.close

   Set doc = Nothing

E fuori dal ciclo For, quindi dopo il Next:

wmodulo.Quit

Set wmodulo = Nothing

Ma ho capito davvero poco...

Answer 2

Per *svincolare* il codice dalla versione di Word (che devi specificare nei riferimenti), puoi *astrarre* il codice. Qui un semplice esempio:

Dim objWord As Object

Dim objDoc As Object

Set objWord = CreateObject("Word.Application")

Set objDoc = objWord.Documents.Open(sPath & sNomeFile)

    'ecc

Ma, se non hai il problema di più versioni di Office, continua come hai sempre fatto.

Ciao e alla prossima.

Answer 3

ciao Mauro,

grazie mille per la risposta, ho risolto come hai suggerito. Quale metodo dovrei usare per comunicare con Word?