Buongiorno a tutti. Salvare singoli file PDF da stampa Unione.

Question

Ho visto che il problema è stato piu volte discusso e risolto ma essendo abbastanza inesperto di VBA mi servirebbe una guida passo dopo passo.

Una volta incollato il codice qui in calce devo salvarlo ma già qui incontro il primo problema:

• in quanto mi Word mi genera l'errore "non è possibile salvare il progetto seguente in un documento senza macro" - - - > cosa vuol dire?
• una volta superato questo problema se volessi applicare questo VBA a tutti le stampe unioni del mio PC devo ogni volta ricreare il codice e cambiare percorso?

Grazie a tutti

' Modulo1 - Modulo
'
Option Explicit

Public Sub Test()
On Error GoTo ErrH

Dim mm As Word.MailMerge
Dim i
   
    Application.ScreenUpdating = False
   
    Set mm = ThisDocument.MailMerge
    With mm
      .Destination = wdSendToNewDocument
      With .DataSource
        For i = 1 To .RecordCount
          .FirstRecord = i
          .LastRecord = i
          mm.Execute
          With Application.ActiveDocument
            .SaveAs "D:\Percorso" & Format(i, "0000") _
                  , wdFormatPDF _
                  , AddToRecentFiles:=False
            .Saved = True
            .Close
          End With
        Next
      End With
    End With
   
ExitProc:
    Application.ScreenUpdating = True
    Set mm = Nothing
    Exit Sub
   
ErrH:
    MsgBox Err.Description
    Resume ExitProc
   
End Sub

Answer 1

Ciao, sono Diane e sarò felice di aiutarti oggi.

È necessario salvarlo in un documento o modello con attivazione macro (incluso il modello normale). Se si utilizza un modello, è possibile utilizzarlo con qualsiasi documento che utilizza il modello.

e cambiare percorso?< What part of the path are you changing?

If you have any questions, don't hesitate to ask.

-- Diane

Give back to the community. Help the next person with this problem by indicating whether this answer solved your problem. Click Yes or No at the bottom.

Questa risposta è stata tradotta automaticamente. Di conseguenza, potrebbero esserci errori grammaticali o espressioni strane.