主页 | excel电子表格 | Word办公 | PPT教学 | Wps文档处理 |

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代表其对应原始文档中的第几页)的文档,检查它们的内容是否就对应于原始文档每个页面的内容。

    如文档中有分节符分解后的文档会出现空白页,如要分解后不出现空白页,需要把文档中的分节符删除。消除分节符的方法:

    注意事项

    分节符若全部替换,要注意替换后文档可能会出现排版混乱,这则需要自己手动排版了。

  • word如何打出笔顺捺
  • word如何加竖着的大括号框