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

显示全部楼层 · 2019-3-21 09:46:07

有时候需要将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
想问

千问 · 2019-3-21 09:46:07

Word中用复制粘贴去提取一页容易格式变化，可以把当前文档另存一份，然后把除所需页外的所有页面删除，就可以变为只有一页的文档，步骤如下：所需材料：Word。一、首先打开原文档，点击左上角“选项”。二、弹出的菜单内鼠标移到“另存为”。三、接着点击“Word 文档”，把此文档另存一个文档。四、打开另存的文档，这里以仅保留第一页为例，首先鼠标点击第二页第一行第一格。五、接着滚动鼠标滚轮至最后一页，然后按下Shift键，鼠标点击最后一页最后一行最后一格，这时就能够把第二页至最后一页全选。六、最后点击6

千问 · 2019-3-21 09:46:07

目前是没有办法实现的，只有复制，粘贴到一个新的文档里面去。如果你的文件页数也很多的，可以考虑视图里面选择缩略图。左边会显示每一页的内容。1.直接快捷键ctrl+C复制。2.快捷键ct

千问 · 2019-3-21 09:46:07

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

千问 · 2019-3-21 09:46:07

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

千问 · 2019-3-21 09:46:07

打印当前页