word如何提取一页保存，怎么把word中的一页单独拿出来 _word

怎么把word中的一页单独拿出来
本文章使用联想 G480电脑演示，适用于Windows 8系统，使用WPS office 11.1.0操作。
首先我们打开word文档，按住鼠标左键，向下拖动，选中想要复制的第一页的全部内容；
点击鼠标右键选择复制，然后我们返回桌面，新建一个word文档；
打开点击鼠标右键选择【粘贴】，保存；这样就把前一个word文档中的第一页内容单独拿出来；
word如何提取一页保存Word中用复制粘贴去提取一页容易格式变化，可以把当前文档另存一份，然后把除所需页外的所有页面删除，就可以变为只有一页的文档，步骤如下：
所需材料：Word 。
一、首先打开原文档，点击左上角“选项” 。

文章插图
二、弹出的菜单内鼠标移到“另存为” 。

文章插图
三、接着点击“Word 文档”，把此文档另存一个文档。

文章插图
四、打开另存的文档，这里以仅保留第一页为例，首先鼠标点击第二页第一行第一格。

文章插图
五、接着滚动鼠标滚轮至最后一页，然后按下Shift键，鼠标点击最后一页最后一行最后一格，这时就能够把第二页至最后一页全选。

文章插图
六、最后点击“DEL键”把所选页面全部删除，点击左上角的“保存”就可以把这一页单独提出来了。

文章插图
提取多个word文档第一页代码为：
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页数据，如下图。

文章插图

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

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

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

文章插图
【word如何提取一页保存，怎么把word中的一页单独拿出来】以上就是关于word如何提取一页保存，怎么把word中的一页单独拿出来的全部内容，以及怎么把word中的一页单独拿出来的相关内容,希望能够帮到您。