Spezzare un file di stampa unione e salvare le singole parti

[Roberto]

Ciao a tutti,

ho questo problema.
Vorrei, partendo da una stampa unione, ottenere i singoli file
relativia a ciascuna "lettera".

Ora, per "segare" i vari file utilizzo questa macro, spezzando sezione
per sezione:

Public Sub separa_sezioni()
Dim sezioni As Sections
Dim sezione As Section
Dim doc_da As Document
Dim doc_a As Document
Dim numero As Integer
Set doc_da = ActiveDocument
Set sezioni = doc_da.Sections
numero = 1
For Each sezione In sezioni
sezione.Range.Copy
Set doc_a = Documents.Add
doc_a.Range.Paste
doc_a.SaveAs (doc_da.Path & "\" & Str(numero) & ".doc")
doc_a.Close
numero = numero + 1
Next
End Sub

Vorrei, se possibile, salvare ognuno dei file con, ad esempio, il nome
del destinatario.
Come faccio a fargli cercare questo campo (che è nella stessa
posizione per ciascuno degli "n" file e proviene dal database della
stampa unione), salvarlo in una variabile e quindi utilizzarlo per
dare il nome al file con cui salvo?

Grazie per l'aiuto!
Roberto

[emanuele.g...@gmail.com]

Mi trovo dopo 3 anni a pormi il medesimo quesito,
mi pare così strano avere dei file con i riferimenti dei clienti e non poter salvare in modo rapido n file pdf o word con il nome del cliente (pescato da una unione con tabella excell).
sei riuscito a scoprire qualcosa!?