可不可以单独提取多页word文档中的一页

发布网友 发布时间：2022-03-02 04:48

我来回答

共8个回答

热心网友 时间：2022-03-02 06:17

　　有二种方法可以实现：

　　方法1：

　　把word另存为一个新文档，在新文档中删除其它页，只留下需要保存的那页即可。

　　方法2：word转换pdf，然后提取单独页，具体操作如下：

　　1、打开word；

　　2、点击office按钮->另存为->PDF或XPS，保存，确定；

　　3、打开转化后的pdf文件，点击文档->提取页面；

　　4、填入需要提取的页码，勾选“提取页页为单独文件”，确定，完成。

热心网友 时间：2022-03-02 07:35

可以的，通过VBA编辑器插入模块代码运行来实现。

代码为：

Option Explicit

Sub SplitPagesAsDocuments()

Dim oSrcDoc As Document, oNewDoc As Document

Dim strSrcName As String, strNewName As String

Dim oRange As Range

Dim nIndex As Integer

Dim fso As Object   

Set fso = CreateObject("Scripting.FileSystemObject")

Set oSrcDoc = ActiveDocument

Set oRange = oSrcDoc.Content

oRange.Collapse wdCollapseStart

oRange.Select

For nIndex = 1 To ActiveDocument.Content.Information(wdNumberOfPagesInDocument)

oSrcDoc.Bookmarks("\page").Range.Copy

oSrcDoc.Windows(1).Activate

Application.Browser.Target = wdBrowsePage

Application.Browser.Next

strSrcName = oSrcDoc.FullName

strNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName),fso.GetBaseName(strSrcName) & "_" & nIndex & "." & fso.GetExtensionName(strSrcName))

Set oNewDoc = Documents.Add

Selection.Paste

oNewDoc.SaveAs strNewName

oNewDoc.Close False

Next

Set oNewDoc = Nothing

Set oRange = Nothing

Set oSrcDoc = Nothing

Set fso = Nothing

MsgBox "结束！"

End Sub

实操步骤如下：

1、在桌面新建一个文件夹，并在文件夹里新建一个Word文档取名为提取页，如下图。

2、打开文档，为了方便演示在里面先输入4页数据，如下图。

3、键盘上按Alt+F11打开VBA编辑器，选择菜单“插入-模块”，如下图。

4、拷贝上面代码，粘贴到模块代码输入页里，如下图。

5，出现结束提示框，则完成，如下图。

6、这时点击确定并关掉VBA编辑器，打开原文档所在的文件夹，就可以看到提取出来的每一页单独文档，文档名字后面的数字代表页码，如下图。

热心网友 时间：2022-03-02 09:10

以WPS 2019版为例

1、打开文档

2、选中需要提取页的内容，然后进行复制粘贴~

热心网友 时间：2022-03-02 11:01

热心网友 时间：2022-03-02 13:09

热心网友 时间：2022-03-02 15:34

热心网友 时间：2022-03-02 18:15

热心网友 时间：2022-03-02 21:13