Office2003:aggiornare doc word da excel

[karug64]

Salve a tutti.
Premetto che sto cercando di fare una cosa nella quale mi cimento per la prima volta e di cui non sono assolutamente a conoscenza.

Dopo aver elaborato con vba dei dati su vari fogli excel, in uno di questi ho ricavato un "sunto".
Vorrei a questo punto, poter aprire un documento word (nel quale ho inserito dei bookmark) e modificare i campi in corrispondenza con i valori delle celle.
Cercando su internet ho trovato questo codice:

Codice: Seleziona tutto

Dim objWord As Object
Dim objDoc As Object
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Open("C:\Documentoword.doc")
objWord.Visible = True

On Error GoTo 0
If objWord Is Nothing Then
MsgBox "Applicazione non disponibile", vbExclamation
End If

With objWord
.Visible = True

.Selection.Goto What:=wdGoToBookmark, Name:="Dip1"
.Selection.Delete Unit:=wdCharacter, Count:=1
.Selection.InsertAfter Range("F7")

.Selection.Goto What:=wdGoToBookmark, Name:="ord_dal"
.Selection.Delete Unit:=wdCharacter, Count:=1
.Selection.InsertAfter Range("F13")

.Selection.Goto What:=wdGoToBookmark, Name:="ord_al"
.Selection.Delete Unit:=wdCharacter, Count:=1
.Selection.InsertAfter Range("I13")

.Selection.Goto What:=wdGoToBookmark, Name:="data_isp"
.Selection.Delete Unit:=wdCharacter, Count:=1
.Selection.InsertAfter Range("F8")

oDoc.Close True                        'chiusura documento
.Quit ' chiusura applicazione
End With
Set oDoc = Nothing                    ' free memory
Set oApp = Nothing                    ' free memory


il problema e' che il file viene aperto, ma poi mi da errore 5101: il bookmark non esiste. (Se pero' vado su word ->inserisci->segnalibro ci sono tutti).

Qualcuno e' in grado di aiutarmi ?
Grazie

[karug64]

Aggiungo che

intNumBookmarks = wordDoc.Bookmarks.Count

mi dice che ci sono 8 bookmark....

Grazie

[karug64]

Aggiorno me stesso. Il problema era banale: non avevo inserito ii riferimenti a Microsoft Word.
Fatto questo ora vede i bookmarks.
Grazie e alla prossima.

[Anthony47]

Non e' obbligatorio inserire il link alla libreria vba di Microsoft Word, perche' con la sintassi del tipo Set ObjWord = CreateObject("Word.Application") in realta tu imposti l' oggetto (in modalita' "late binding") al momento della compilazione del codice (mentre linkando la libreria l' oggetto e' gia' presente in libreria, e si dice che si lavora in modalita' early binding).
Con il tuo codice di partenza, ad esempio, con queste istruzioni inserisci il contenuto della cella AA1 subito dopo il bookmark di nome Dip2:

Codice: Seleziona tutto

objDoc.bookmarks("Dip2").Select
.Selection.InsertAfter Range("AA1")


Se hai risolto questo e' solo ad uso didattico

Ciao