creazione più lettere in pdf da stampa unione

Question

Buonasera,

attraverso la funzione stampa unione ho creato un unico file word di circa 300 lettere, contenenti la ragione sociale, indirizzo, fatturato 

Ho utilizzato un file excel con i seguenti campi

• Ragione Sociale
• indirizzo
• fatturati

Io vorrei riuscire a creare più file in pdf ( una lettera ciascuna), che fossero denominati con la relativa ragione sociale.

Sono riuscita a ricavare la seguente macro da utilizzare su VBA, ma quando clicco su esegui,Word mi dice*"l'oggetto richiesto non è disponibile"***.

Dove sto sbagliando?

Ecco la macro:

Public Sub Test2()

On Error GoTo ErrH

'

' Const cstrPath  As String = "C:\Documents and Settings\silviastara\Desktop\lettere over prova\PDF"

' Const cstrField As String = "Ragione_sociale"

' ----------------------------- <

Dim objWdMailMerge  As Word.MailMerge

Dim lngRecNum       As Long

Dim strPath         As String

Dim strFilename     As String

    Application.ScreenUpdating = False

    Set objWdMailMerge = ThisDocument.MailMerge

    With objWdMailMerge

      .Destination = wdSendToNewDocument

      With .DataSource

        .ActiveRecord = wdLastRecord

        lngRecNum = .ActiveRecord

        .ActiveRecord = wdFirstRecord

        Do

          .FirstRecord = .ActiveRecord

          .LastRecord = .ActiveRecord

          strFilename = .DataFields(cstrField).Value

          If Len(strFilename) Then

            strFilename = cstrPath & strFilename

            objWdMailMerge.Execute

            With ActiveDocument

              .SaveAs strFilename, wdFormatPDF, AddToRecentFiles:=False

              .Saved = True

              .Close

            End With

          End If

          If .ActiveRecord = lngRecNum Then Exit Do

          .ActiveRecord = wdNextRecord

        Loop

      End With

    End With

ExitProc:

    Application.ScreenUpdating = True

    Set objWdMailMerge = Nothing

    Exit Sub

ErrH:

    MsgBox Err.Description

    Resume ExitProc

End Sub

Answer 1

Ciao Silvia,

ci scusiamo per il ritardo della risposta dovuto da un elevato numero di richieste di supporto ma se avessi ancora bisogno di noi siamo qui per aiutarti con la macro da te desiderata.

Per poter ricevere assistenza da un team di esperti che attraverso il loro strumenti saranno in grado di fornirti una soluzione veloce e completa, ti consiglio oltre ad attendere i preziosi consigli di Norman e dei nostri MVP, di pubblicare il tuo post sul forum dedicato di Msdn che puoi trovare in questo link. I nostri esperti saranno pronti in breve tempo a rispondere a tutte le tue domande sulla funzione da te richiesta!

Per qualsiasi altro dubbio o domanda, siamo sempre qui per te!

Ti auguro una buona giornata!

Claudia