Como imprimir em lote arquivos de palavras com títulos?

Question

Eu tenho uma pasta de arquivos do Word que eu preciso imprimir. Eu estou procurando uma maneira de incorporar os nomes de arquivos como cabeçalho / rodapé nessas páginas, se possível, até mesmo o número das páginas para mantê-los organizados.

Existe uma maneira de fazer isso?

Estou usando o Office 2007 no Windows 7.

    

Answer 1

De este site , aqui está uma macro que imprime todos os documentos em uma determinada pasta com o total caminho de arquivo adicionado ao cabeçalho, alinhado à direita, 8pt Arial:

Sub PrintWithFileNames()
    On Error GoTo err_FolderContents
    Dim FirstLoop As Boolean
    Dim DocList As String
    Dim DocDir As String

    With Dialogs(wdDialogCopyFile)
        If .Display 0 Then
            DocDir = .Directory
        Else
            MsgBox "Cancelled by User"
            Exit Sub
        End If
    End With

    If Documents.Count 0 Then
        Documents.Close SaveChanges:=wdPromptToSaveChanges
    End If

    Application.ScreenUpdating = False
    FirstLoop = True

    If Left(DocDir, 1) = Chr(34) Then
        DocDir = Mid(DocDir, 2, Len(DocDir) - 2)
    End If

    DocList = Dir$(DocDir & "*.doc")

    Do While DocList ""
        Documents.Open DocList
        Selection.EndKey Unit:=wdStory
        ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

        With Selection
            .EndKey Unit:=wdStory
            .Font.Name = "Arial"
            .Font.Size = "8"
            .ParagraphFormat.Alignment = wdAlignParagraphRight
            .TypeText vbCr & ActiveDocument.FullName
        End With

        ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
        ActiveDocument.PrintOut
        ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
        DocList = Dir$()
        FirstLoop = False
    Loop

    Application.ScreenUpdating = True
    Exit Sub

    err_FolderContents:
    MsgBox Err.Description
    Exit Sub
End Sub

    

Answer 2

No cabeçalho ou rodapé, você pode adicionar um "campo" que é o nome do arquivo. Como você insere campos, depende da versão do Word que você está usando. Depois de adicionar o campo filename ao seu cabeçalho / rodapé ... e salvar seus documentos em uma pasta, basta clicar com o botão direito em & clique em imprimir.

    

Answer 3

Uma ideia é imprimir uma página de cabeçalho antes de cada documento. As configurações da sua impressora podem permitir isso e podem até mesmo incluir automaticamente o nome do arquivo da palavra. Caso contrário, você pode escrever um script em lote rápido que imprimirá a página do nome do arquivo e imprimirá o documento.