当前位置:文档之家› word20XX一个表格下一页如何自动分割成两个表格

word20XX一个表格下一页如何自动分割成两个表格

竭诚为您提供优质文档/双击可除
word20XX一个表格下一页如何自动分割
成两个表格
篇一:如何将一个word文档按页分割成多个word文档如何将一个word文档按页分割成多个word文档?最佳答案
1、在word里面打开那个需要分割的文档(假设它的文件名叫做“原始文档.doc”);
2、键入alt+F11打开Vba编辑器,选择菜单“插入-模块”;
3、粘贴下面的代码:
optionexplicit
subsplitpagesasdocuments()
dimosrcdocasdocument,onewdocasdocument
dimstrsrcnameasstring,strnewnameasstring
dimoRangeasRange
dimnindexasinteger
dimfsoasobject
setfso=createobject("scripting.Filesystemobject") setosrcdoc=activedocument
setoRange=osrcdoc.content
oRange.collapsewdcollapsestart
oRange.select
Fornindex=1to
rmation(wdnumberofpagesi ndocument)osrcdoc.bookmarks("\page").Range.copy osrcdoc.windows(1).activate
application.browser.target=wdbrowsepage
application.browser.next
strsrcname=osrcdoc.Fullname
strnewname=fso.buildpath(fso.getparentFoldername(st rsrcname),_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
4、键入F5运行,看到“完成!”结束。

5、检查当前文档所在路径下是否生成若干名为“原始
文档_n.doc”(n代表其对应原始文档中的第几页)的文档,检查它们的内容是否就对应于原始文档每个页面的内容。

篇二:word20xx如何在双栏的文字中插入一个贯穿两栏的表格
1.如下图所示,有两段内容。

一段中文,一段英文,按两栏排版。

我们以此为例,在两段文字间插入一个贯穿两栏的表格。

2.首先选中文字,取消两栏排版,恢复到单栏的样式。

然后在两段中间插入一个表格。

(word20xx一个表格下
一页如何自动分割成两个表格)
3.完成后,先选中表格前面的一段中文,
然后进入“页面布局”,点击“分栏”下的“两栏”。

相关主题