可不可以单独提取多页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

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

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

如果只是为了打印的话。就是停在这一页里，然后打印一栏选择打印当前页！

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

复制这一页，粘贴到新建文档中

或者

文档另存为，之后把多余的页去掉

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

什么意思？单独打印一页吗？还是复制一页？
讲的再明白点，到时候再来一起研究