none
Creazione automatizzata segnalibri su word

    Domanda

  • Salve a tutti. Sto lavorando su un foglio excel che permette di inserire dei valori di determinate celle su word, in corrispondenza dei segnalibri di pertinenza. Sto usando una macro reperita sul web e la cosa sembra funzionare. tuttavia il processo di inserimento dei segnalibri su word risulta lento e macchinoso, in quanto devo procedere manualmente ad inserire ogni segnalibro nel proprio posto.

    Quello che vorrei fare è creare una macro che all'apertura di word cerchi nel documento un determinato codice, ad esempio "nn1", ed assegni a quel codice il segnalibro "nn1", senza dover farlo ogni volta manualmente. Vi chiedo aiuto per la risoluzione di questo problema.

    Vi allego il codice VBA di excel. Vi ringrazio anticipatamente

    Sub IncollaSuSegnalWord()
    Stringa1 = Range("C61").Value
    Const sFILENAME As String = "C:\aaaaa.docx"
    Set wrdApp = CreateObject("Word.Application")
    wrdApp.Visible = True
    Set wrdDoc = wrdApp.documents.Open(sFILENAME)
    With wrdDoc
    .BOOKMARKS("nn1").Range.Text = Stringa1
    End With
        wrdApp.ActiveDocument.Save
    wrdApp.Quit

    End Sub

    venerdì 23 febbraio 2018 16:00

Tutte le risposte

  • ho inserito una macro su word che permette di trovare la parola interessata e di assegnarle il segnalibro. però ripetendo i passaggi di cui sopra da excel, ora però con un file .docm, mi restituisce errore di runtime 40036. qualcuno sa spiegarmi cosa sta succedendo?
    venerdì 23 febbraio 2018 17:39