在接下来的文章中,我们将重点介绍 3 种无需标记即可快速打印 Word 文档的方法。
如果您的文档需要修改,那么您肯定会在文档中获得各种标记。 有一些方法可以不在屏幕上显示它们。 不打印出来怎么样?
答案是肯定的。 而我们今天的话题就是致力于为您提供3种快速有效的方法来实现这一目标。
方法 1:更改打印选项
- 首先,单击功能区中的“文件”选项卡。
- 接下来单击“打印”命令。
- 然后转到“设置”部分并单击第一个下拉框。
- 在菜单上,取消选择“打印标记”选项。 您将在右侧预览中看不到任何标记,这正是您将获得的结果。
- 最后,选择打印机并设置其他格式,然后单击“打印”。
方法 2:使用 VBA 代码
如果您更喜欢自动处理,那么运行宏是您的首选。
- 首先,按“Alt+F11”在 Word 中触发 VBA 编辑器。
- 然后点击“正常”。
- 接下来单击“插入”选项卡并在其菜单上选择“模块”。
- 然后双击打开模块,粘贴以下代码:
Sub PrintDocWithoutComments()
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, _
PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
End Sub
- 最后,单击“运行”。
代码行“Copies:=1”将打印份数设置为 1。您可以根据需要更改份数。
方法 3:不带标记批量打印多个文档
现在,如果您有大量文件需要在没有标记的情况下打印,以下宏将节省您的时间。
- 首先,将所有目标文档放在同一个文件夹中。
- 然后按照方法 2 中的步骤安装并运行宏。
- 用这个替换宏:
Sub BatchPrintDocsWithoutComments()
Dim objDoc As Document
Dim strFile As String, strFolder As String
' Initialization
strFolder = InputBox("Enter folder path:")
strFile = Dir(strFolder & "*.docx", vbNormal)
While strFile <> ""
Set objDoc = Documents.Open(FileName:=strFolder & strFile)
Set objDoc = ActiveDocument
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, _
PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
objDoc.Save
objDoc.Close
strFile = Dir()
Wend
End Sub
- 现在会出现一个输入框。请输入存储所有目标文档的文件夹路径,然后单击“确定”。请勿忘记路径字符串中的最后一个反斜杠“\”。
应对文档损坏
文档损坏一直是一个经常出现的主题。 作为结果, 文档恢复 已经上台了。 Word 中有一个内置功能可以帮助您恢复损坏的文件。 不幸的是,它有时效果不佳。 因此,您需要一个更合适的工具来完成这项工作。
作者简介:
Vera Chen 是一位数据恢复专家 DataNumen, Inc.,它是数据恢复技术领域的世界领先者,包括 Excel恢复 和 pdf 修复软件产品。 欲了解更多信息,请访问 datanumen.com



