怎样把word文件里的一页单独拿出来

放在一个新的Word文件里

2024-11-06 11:06:23

推荐回答（5个）

回答（1）：

word文件将单独的一页拿出来放在新文件内的方法如下（以windows10系统的word2019版为例）：

1、打开word文档，使用鼠标拖拽的方式选中需要复制到新文档中的那一页，并复制。

2、打开新文档，使用快捷键“Ctrl+V”粘贴，随后点击下方出现的粘贴选项。

3、在接着自动弹出来的粘贴选项框中，选择保留源格式按钮。

4、随后即可看到word文档的一页已经正确保存到新文件内了。

回答（2）：

1、在Word里面打开那个需要分割的文档（假设它的文件名叫做“原始文档.doc”）；
键入ALT+F11打开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
键入F5运行，看到“完成！”结束。
2、检查当前文档所在路径下是否生成若干名为“原始文档_n.doc”（n代表其对应原始文档中的第几页）的文档，检查它们的内容是否就对应于原始文档每个页面的内容。
如文档中有分节符分解后的文档会出现空白页，如要分解后不出现空白页，需要把文档中的分节符删除。消除分节符的方法：
注意事项
分节符若全部替换，要注意替换后文档可能会出现排版混乱，这则需要自己手动排版了。

回答（3）：

你复制一下再在新的里面粘贴

回答（4）：

复制出来就好了啊

回答（5）：

选中所要拿出来的段落，复制粘贴到新建的word文档，保存即可。