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

2024-11-28 19:42:22

推荐回答（5个）

回答1：

　　有二种方法可以实现：

　　方法1：

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

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

　　1、打开word；

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

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

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

回答2：

可以的，通过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

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编辑器，打开原文档所在的文件夹，就可以看到提取出来的每一页单独文档，文档名字后面的数字代表页码，如下图。

回答3：

以WPS 2019版为例

1、打开文档

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

回答4：

这个是可以的，另存为只保存当前页，就可以了。

回答5：

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

最新问答

口袋妖怪白金的最佳搭配

我这个电脑配置能不能玩LOL，会不会特别卡，我这个电脑卖电脑的说不适合玩游戏

聚意公司名称好不好

谁能帮我解解梦

今天赤峰2020年1月1日去呼和浩特飞机票有几点的？

请大家帮我起一个笔名，我要写小说，谢谢！

问一个生物问题，高血压病和平时吃盐多有重要的关系，那么是不是平时吃的盐（氯化钠）含量多，造成体内钠

衣带渐宽终不悔，为伊消得人憔悴的全文

重庆市北碚区职业教育中心是高职还是大专？

地震是怎样形成的