word如何导出单页表格文件
怎样从word中提取出其中的一页另存?
1、首先,打开要在计算机上处理的Word文档,然后单击左上角的文件图标-另存为-PDF或XPS。??
2、然后,在弹出的另存为窗口中,单击底部选项的按钮进行输入。??
3、接下来,在选项的小窗口中,选择页面范围作为页面,设置要保存的页码,然后单击确定。
4、最后,单击返回的另存为窗口底部的发布按钮。
怎么把word里面的单页弄出来
1、在Word里面打开那个需要分割的文档(假设它的文件名叫做“原始文档.doc”);
键入ALT+F11打开VBA编辑器,选择菜单“插入-模块”;
粘贴下面的代码:
OptionExplicit
SubSplitPagesAsDocuments()
DimoSrcDocAsDocument,oNewDocAsDocument
DimstrSrcNameAsString,strNewNameAsString
DimoRangeAsRange
DimnIndexAsInteger
DimfsoAsObject
Setfso=CreateObject("Scripting.FileSystemObject")
SetoSrcDoc=ActiveDocument
SetoRange=oSrcDoc.Content
oRange.CollapsewdCollapseStart
oRange.Select
FornIndex=1ToActiveDocument.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))
SetoNewDoc=Documents.Add
Selection.Paste
oNewDoc.SaveAsstrNewName
oNewDoc.CloseFalse
Next
SetoNewDoc=Nothing
SetoRange=Nothing
SetoSrcDoc=Nothing
Setfso=Nothing
MsgBox"结束!"
EndSub
键入F5运行,看到“完成!”结束。
2、检查当前文档所在路径下是否生成若干名为“原始文档_n.doc”(n代表其对应原始文档中的第几页)的文档,检查它们的内容是否就对应于原始文档每个页面的内容。
如文档中有分节符分解后的文档会出现空白页,如要分解后不出现空白页,需要把文档中的分节符删除。消除分节符的方法:
注意事项
分节符若全部替换,要注意替换后文档可能会出现排版混乱,这则需要自己手动排版了。