O impacto da Impressão em Série Word (VBA)

O código a seguir, guarda em Word e em PDF documento a documentos de um ficheiro de impressão em série. 

Copie o código abaixo e cole em VBA no Microsoft Word, para abrir o Editor Visual Basic Applications:  (Alt+F11) ou lado direito do rato no separador(friso), personalizar separador e depois seleccionar Programador.

Sub Guardar_Imprimir_Individualmente()

‘Separa um registo de um ficheiro de impressão em série de cada vez para a pasta escolhida

Application.ScreenUpdating = False

Dim StrFolder As String, StrName As String, MainDoc As Document, i As Long

Set MainDoc = ActiveDocument

With MainDoc

  StrFolder = .Path & “”

  For i = 1 To .MailMerge.DataSource.RecordCount

    With .MailMerge

      .Destination = wdSendToNewDocument

      .SuppressBlankLines = True

      With .DataSource

        .FirstRecord = i

        .LastRecord = i

        .ActiveRecord = i

        StrName = .DataFields(“Partners”)

      End With

      .Execute Pause:=False

    End With

    With ActiveDocument

      .SaveAs2 FileName:=StrPath & StrName & “.docx”, FileFormat:=wdFormatXMLDocument, AddToRecentFiles:=False

      ‘ and/or:

      .SaveAs2 FileName:=StrPath & StrName & “.pdf”, FileFormat:=wdFormatPDF, AddToRecentFiles:=False

      .Close SaveChanges:=False

    End With

  Next i

End With

Application.ScreenUpdating = True

End Sub