![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(128, 8%, 22%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EA%3C/text%3E%3C/svg%3E)
Microsoft 365 e Office | Excel | Per la casa | Windows
Una famiglia di software per fogli di calcolo Microsoft con strumenti per l'analisi, la creazione di grafici e la comunicazione dei dati.
Ciao RichyVC
Intendi qualcosa del genere?
' 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