怎么把word里面的单页弄出来
发布网友
发布时间：2022-03-26 04:59
共3个回答
懂视网
时间：2022-03-26 09:21
产品型号：ASUS S340MC
系统版本：Windows 10
软件版本：Microsoft Office word 2019
word无法直接导出单页，需要单独复制内容再粘贴至新文档里导出。
1、首先打开电脑上的word文档，选择并复制页面里的全部内容。
2、然后点击左上角的文件，选择新建空白文档，接着粘贴内容再导出即可。
总结
word无法直接导出单页，需要单独复制内容再粘贴至新文档里导出。
1、首先打开电脑上的word文档，选择并复制页面里的全部内容。
2、然后点击左上角的文件，选择新建空白文档，接着粘贴内容再导出即可。
热心网友
时间：2022-03-26 06:29
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代表其对应原始文档中的第几页）的文档，检查它们的内容是否就对应于原始文档每个页面的内容。
如文档中有分节符分解后的文档会出现空白页，如要分解后不出现空白页，需要把文档中的分节符删除。消除分节符的方法：
注意事项
分节符若全部替换，要注意替换后文档可能会出现排版混乱，这则需要自己手动排版了。
热心网友
时间：2022-03-26 07:47
光标定位到该页的页首，滚屏到该页的页尾，按住 Shift键 不放再将光标定位到该页的页末，这样就选取了整页，然后依次按 Ctrl + C 、Ctrl + N 、Ctrl + V 即可
