Copiare dati da Excel a Word usando i Segnalibri e VBA

Question

Buongiorno a tutti,

sto provando a usare VBA per la compilazione in automatico di un file WORD prendendo dati da un file EXCEL. Grazie a quanto trovato in rete, io non conosco VBA, sono riuscito a fare aprire il file word dedicato nel quale ho inserito il segnalibro.

Ora però, non riesco a fare scrivere il valore copiato in excel nel word aperto.

di seguito il codice scritto:

Sub aprefile()

    Dim nome, Stringa1, Numero As String

    Stringa1 = Range("A8").Value

    Set wordapp = CreateObject("Word.Application")

    wordapp.Documents.Open "percorso e nome file"

    wordapp.Visible = True

    nome = "percorso e nome file"

With wordapp

.Bookmark("Numero").Range.Text = Stringa1

End With

End Sub

la compilazione si blocca sul .bookmark, con l'errore "proprietà o metodo non supportato dall'oggetto"?

cosa e dove sbaglio?

La parte di gestione dei segnalibri è presa uguale da altri utenti, ma a loro funziona.

Grazie dell'aiuto

Answer 1

Prova su questi due file (dove in quello excel impostare correttamente il percorso dove salverai il file word) perché da me funziona:

File Excel

File Word

Answer 2

Grazie ancora,

avevo già provato con la la s finale in bookmarks, ma ancora una volta non funziona e continua a dare l'errore precedente.

Answer 3

Ciao,

non mi ero accorto di un secondo errore che avevi commesso nello scrivere il codice.

Manca una "s" in .Bookmark.

.Bookmarks("Numero")

Quindi prova così:

Sub aprefile()

   Dim WordApp As Object

   Dim WordDoc As Object

   Dim nome As String, Stringa1 As String, Numero As String

   nome = "percorso e nome file"

   Stringa1 = Range("A8").Value

   Set WordApp = CreateObject("Word.Application")

   Set WordDoc = WordApp.Documents.Open(nome)

   WordApp.Visible = True

   With WordDoc

      .Bookmarks("Numero").Range.Text = Stringa1

   End With

   Set WordApp = Nothing

   Set WordDoc = Nothing

End Sub

Answer 4

grazie del supporto.

la macro ancora non gira, ora l'errore è:

"variabile del blocco with non impostata"

il debug punta a .bookmark("Numeo")......

Answer 5

L'errore dipende perché non fai riferimento ad un documento ma all'applicazione che non ha tra le proprietà i segnalibri.

I segnalibri sono una proprietà dei documenti.

Prova così modificata (non ho in realtà provato ma ho modificato a "memoria"):

Sub aprefile()

   Dim WordApp As Object

   Dim WordDoc As Object

   Dim nome As String, Stringa1 As String, Numero As String

   nome = "percorso e nome file"

   Stringa1 = Range("A8").Value

   Set WordApp = CreateObject("Word.Application")

   Set WordDoc = WordApp.Documents.Open(nome)

   WordApp.Visible = True

   With WordDoc

      .Bookmark("Numero").Range.Text = Stringa1

   End With

   Set WordApp = Nothing

   Set WordDoc = Nothing

End Sub