Question

如何将一个word文档中的一页提取出来

有时候需要将word文档中的一页文档提取出来，但是用比较麻烦，有没有不用复制粘贴的方法，将word中的某一页提取出来，谢谢大家@
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
想问

Answer 1

Word中用复制粘贴去提取一页容易格式变化，可以把当前文档另存一份，然后把除所需页外的所有页面删除，就可以变为只有一页的文档，步骤如下：

所需材料：Word。

一、首先打开原文档，点击左上角“选项”。

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

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

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

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

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

Answer 2

目前是没有办法实现的，只有复制，粘贴到一个新的文档里面去。

如果你的文件页数也很多的，可以考虑 视图  里面选择  缩略图。

左边会显示每一页的内容。

1.直接快捷键ctrl+C复制。

2.快捷键ctrl+N ，新建一个新的文档。

3.ctrl+V,粘贴。

以上不会改变每页的格式。

Answer 3

就只能复制粘贴了，如果你要打印的话，可以直接打印该页

Answer 4

Word中如何快速合并多个文档

Answer 5

打印当前页