Le funzionalità di stampa unione standard di Word consentono di eseguire l’unione direttamente a una stampante, a un nuovo documento oa una serie di messaggi di posta elettronica.

Tuttavia, a volte potrebbe essere necessario creare un singolo documento per ciascuno dei record dell’origine dati. Sfortunatamente, Word non fornisce un modo per eseguire ciò. Fortunatamente, puoi creare una macro per occuparti del compito per te. Di seguito è una macro che “separerà” un documento creato dalla funzionalità di stampa unione. Ogni sezione del documento (c’è una sezione per record di origine dati) viene estratta e salvata nel proprio file di documento.

Sub Splitter()

Dim numlets As Integer     Dim Counter As Integer     Dim BaseName As String     Dim DocName As String

Selection.EndKey Unit:=wdStory     numlets = Selection.Information(wdActiveEndSectionNumber)

If numlets > 1 Then numlets = numlets - 1     Selection.HomeKey Unit:=wdStory     BaseName = "c:\Let"

For Counter = 1 To numlets         DocName = BaseName & Right("000" & LTrim(Str(Counter)), 3)

ActiveDocument.Sections.First.Range.Cut         Documents.Add         Selection.Paste         Selection.MoveLeft Unit:=wdCharacter, Count:=1         Selection.Delete Unit:=wdCharacter, Count:=1         ActiveDocument.SaveAs FileName:=DocName         ActiveWindow.Close     Next Counter End Sub

Quando la macro viene eseguita, crea una serie di file denominati da Ltr001 a Ltrxxx, dove xxx è il numero di sezioni nel documento originale.

In realtà, la macro crea un file “Ltr” inferiore al numero di sezioni del documento. L’ultima sezione del documento viene lasciata nel file originale (quello che stai elaborando). Se si desidera modificare il nome del file o la posizione in cui vengono salvati i file, modificare l’impostazione per la variabile BaseName nella macro.

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti WordTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

WordTips è la tua fonte di formazione economica su Microsoft Word.

(Microsoft Word è il software di elaborazione testi più popolare al mondo.) Questo suggerimento (11593) si applica a Microsoft Word 2007, 2010, 2013, 2016, 2019 e Word in Office 365. Puoi trovare una versione di questo suggerimento per vecchia interfaccia del menu di Word qui:

Creazione di file con stampa unione.