☰

如何批量打印带标题的word文件？

tag-icon • tag-icon microsoft-word
如何批量打印带标题的word文件？

我有一个需要打印的 Word 文件文件夹。我正在寻找一种方法来将文件名作为页眉/页脚嵌入到这些页面中，如果可能的话，甚至可以对页面进行编号以保持页面井然有序。

有没有办法做到这一点？

我在 Windows 7 上使用 Office 2007。

答案1

从本网站，这里有一个宏，可以打印给定文件夹中的所有文档，并将完整文件路径添加到页眉，右对齐，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

答案2

在页眉或页脚中，您可以添加一个“字段”，即文件名。如何插入字段取决于您使用的 Word 版本。将文件名字段添加到页眉/页脚后...并将文档保存在文件夹中，您只需右键单击并单击打印即可。

答案3

一个想法是打印每份文档前的页眉。您的打印机设置可能允许这样做，甚至可能自动包含来自 Word 的文件名。如果不行，您可以编写一个快速批处理脚本，先打印文件名页，然后打印文档。

相关内容