从 Word 文档中提取单个页面的 2 种快速方法

在今天的ost，我们想与您分享 2 种从 Word 文档中提取单个页面的快速方法。

有时在Word文档中，每一页可能包含相当独立的内容，例如表格。 您可能需要将不同的表格发送给不同的人。 然后，您必须将每个页面的每个表格保存为一个单独的文件。

我们想到的第一个想法应该是经典的复制粘贴。 然而，任何涉及选择的事情有时都会很烦人，因为拖动和选择可以很容易地在没有选择的情况下结束。 为此，我们向您推荐 2 种使用宏的快速方法来完成这项工作。

方法 1：提取当前页面并将其另存为新文档

1. 首先和形式ost, 将光标定位在要提取的页面上。
2. 单击“开发人员”选项卡，然后单击“Visual Basic”以调用 VBA 编辑器。 如果未激活“开发人员”，只需按“Alt+F11”即可。
3. 其次，点击“普通”项目。
4. 接下来单击“插入”选项卡并选择“模块”。
5. 双击新模块打开编辑区。
6. 然后将以下代码粘贴到那里：

Sub SaveCurrentPageAsANewDoc()
  Dim objNewDoc As Document
  Dim objDoc As Document
  Dim strFileName As String
  Dim strFolder As String
 
  '  Initialization
  Set objDoc = ActiveDocument
 
  strFolder = InputBox("Enter folder path here: ")
  strFileName = InputBox("Enter file name here: ")
 
  '  Copy current page.
  objDoc.Bookmarks("\Page").Range.Select
  Selection.Copy
 
  '  Open a new document to paste the selection.
  Set objNewDoc = Documents.Add
  Selection.Paste
 
  objNewDoc.SaveAs FileName:=strFolder & "\" & strFileName & ".docx"
  objNewDoc.Close
End Sub

7. 最后，单击“运行”按钮。

现在会有2个输入框。 在第一个输入框输入你要存放新文档的路径。 并在第二个上输入新的文档名称。

方法 2：提取每个页面并将其另存为新文档

以下宏将使您能够提取文档的每一页。

1. 首先，按“Ctrl+Home”转到文档的开头。
2. 然后按照方法 1 中的相同步骤安装并运行宏。
3. 这次用这个替换宏：

Sub SaveEachPageAsADoc()
  Dim objNewDoc As Document
  Dim objDoc As Document
  Dim nPageNumber As Integer
  Dim strFolder As String
  Dim objFileName As Range
 
  '  Initialization
  Set objDoc = ActiveDocument
 
  strFolder = InputBox("Enter folder path here: ")
 
  '  Copy each page in the document to paste it into a new one.
  For nPageNumber = 1 To ActiveDocument.ComputeStatistics(wdStatisticPages)
    Application.Browser.Target = wdBrowsePage
    ActiveDocument.Bookmarks("\page").Range.Select
    Selection.Copy
 
    Set objNewDoc = Documents.Add
    Selection.Paste
 
    '  Save new doc with the name of "Page" & nPageNumber and get the first 20 characters of the new doc as part of the file name.
    Set objFileName = objNewDoc.Range(Start:=0, End:=20)
    objNewDoc.SaveAs FileName:=strFolder & "\" & "Page " & nPageNumber & " " & objFileName & ".docx"
    objNewDoc.Close
    Application.Browser.Next
  Next nPageNumber
End Sub

处理单词问题

存在并且总是会出现各种 Word 问题。 关键是学会正确修复它们。 他们ost 当然，推荐的方法是获得一个复杂的 单词恢复 工具。 您应该抓紧每一分钟恢复数据，以免为时已晚。

作者简介：

Vera Chen 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 损坏的 xlsx 和 pdf 修复软件产品。 欲了解更多信息，请访问 datanumen.com