Le funzionalità di stampa unione standard di Word consentono di eseguire l’unione direttamente a una stampante oa un nuovo documento. A seconda della versione e dell’installazione di Word, potresti anche essere in grado di unirti a una serie di messaggi di posta elettronica. (Ogni record nell’origine dati creerebbe un singolo messaggio 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 che ti occupi del compito. 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 (1326) si applica a Microsoft Word 97, 2000, 2002 e 2003. È possibile trovare una versione di questo suggerimento per l’interfaccia a nastro di Word (Word 2007 e più tardi) qui:

Creazione di file con stampa unione.