Generare da stampa unione più documenti pdf con nome file = campo di stampa unione

Question

Buongiorno, avrei bisogno di capire come si scrive a livello di sintassi il nome da assegnare ai file di OTPUT di pdf.

Es voglio che i file abbiano come nome : "COD" e "NOTE"

Grazie

Mario

Answer 1

Ciao Mario,

Sono Segunfunmi, un Consulente Indipendente e un utente Microsoft come te. Grazie per aver postato la tua domanda in questo forum.

È possibile utilizzare una macro di Word per generare più documenti PDF da una stampa unione con il nome del file come campo di stampa unione. Ecco i passaggi:

「Aggiungi i seguenti campi ai tuoi dati di stampa unione: DocFolderPath, DocFileName, PdfFolderPath, PdfFileName.

Nei campi Nome file, inserisci i nomi dei file che desideri per i documenti Word separati e i PDF convertiti. Non c'è bisogno di includere le estensioni.

Nei campi FolderPath, inserisci percorsi di cartella validi (ad esempioC:\Users\me\Documents). Creare la stampa unione.

Eseguire la macro".

Di seguito è riportato il codice della macro per Windows:

Sub MailMergeToPdfBasic() Dim masterDoc come documento, singleDoc come documento, lastRecordNum come lungo Impostare masterDoc = ActiveDocument masterDoc.MailMerge.DataSource.ActiveRecord = wdLastRecord lastRecordNum = masterDoc.MailMerge.DataSource.ActiveRecord masterDoc.MailMerge.DataSource.ActiveRecord = wdFirstRecord Do While lastRecordNum > 0 masterDoc.MailMerge.Destination = wdSendToNewDocument masterDoc.MailMerge.DataSource.FirstRecord = masterDoc.MailMerge.DataSource.ActiveRecord masterDoc.MailMerge.DataSource.LastRecord = masterDoc.MailMerge.DataSource.ActiveRecord masterDoc.MailMerge.Execute False Impostare singleDoc = ActiveDocument singleDoc.SaveAs2 _ NomeFile:=masterDoc.MailMerge.DataSource.DataFields("DocFolderPath"). Valore & Application.PathSeparator & _ documento master MailMerge.DataSource.DataFields("DocFileName"). Valore & ".docx", _ FileFormat:=wdFormatXMLDocument singleDoc.ExportAsFixedFormat _ OutputFileName:=masterDoc.MailMerge.DataSource.DataFields("PdfFolderPath"). Valore & Application.PathSeparator & _ masterDoc.MailMerge.DataSource.DataFields("PdfFileName"). Valore & ".pdf", _ ExportFormat:=wdExportFormatPDF singleDoc.Close False Se masterDoc.MailMerge.DataSource.ActiveRecord >= lastRecordNum allora lastRecordNum = 0 Altro masterDoc.MailMerge.DataSource.ActiveRecord = wdNextRecord Fine se Ciclo Fine sottomarino

Questa macro salverà i tuoi file PDF con i nomi che desideri e nelle cartelle che desideri. È possibile sostituire "COD" e "NOTA" nei campi Nome file con i nomi desiderati per i file di output.

Si prega di notare che ho rimosso i passaggi e il codice precedenti dal sito Web seguente:

https://imnoss.com/word-mail-merge-to-separate-pdfs/

Dichiarazione di non responsabilità: questo è un sito Web non Microsoft. La pagina sembra fornire informazioni accurate e sicure. Fai attenzione agli annunci sul sito che potrebbero pubblicizzare prodotti frequentemente classificati come PUP (prodotti potenzialmente indesiderati). Fai ricerche approfondite su qualsiasi prodotto pubblicizzato sul sito prima di decidere di scaricarlo e installarlo.

Spero che questo aiuti! Fatemi sapere se avete altre domande.

Cordiali saluti Segunfunmi.

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