如何快速把一个Word文档拆分数据分成两个文档 怎么把一个word文档拆开变成两个word文档？
\u5982\u4f55\u5c06\u4e00\u4e2aword\u6587\u6863\u6309\u9875\u62c6\u5206\u6210\u591a\u4e2a\u6587\u68631\u3001\u5728Word\u91cc\u9762\u6253\u5f00\u90a3\u4e2a\u9700\u8981\u5206\u5272\u7684\u6587\u6863\uff08\u5047\u8bbe\u5b83\u7684\u6587\u4ef6\u540d\u53eb\u505a\u201c\u539f\u59cb\u6587\u6863.doc\u201d\uff09\uff1b
\u952e\u5165ALT+F11\u6253\u5f00VBA\u7f16\u8f91\u5668\uff0c\u9009\u62e9\u83dc\u5355\u201c\u63d2\u5165-\u6a21\u5757\u201d\uff1b
\u7c98\u8d34\u4e0b\u9762\u7684\u4ee3\u7801\uff1a
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 "\u7ed3\u675f\uff01"
End Sub
\u952e\u5165F5\u8fd0\u884c\uff0c\u770b\u5230\u201c\u5b8c\u6210\uff01\u201d\u7ed3\u675f\u3002
2\u3001\u68c0\u67e5\u5f53\u524d\u6587\u6863\u6240\u5728\u8def\u5f84\u4e0b\u662f\u5426\u751f\u6210\u82e5\u5e72\u540d\u4e3a\u201c\u539f\u59cb\u6587\u6863_n.doc\u201d\uff08n\u4ee3\u8868\u5176\u5bf9\u5e94\u539f\u59cb\u6587\u6863\u4e2d\u7684\u7b2c\u51e0\u9875\uff09\u7684\u6587\u6863\uff0c\u68c0\u67e5\u5b83\u4eec\u7684\u5185\u5bb9\u662f\u5426\u5c31\u5bf9\u5e94\u4e8e\u539f\u59cb\u6587\u6863\u6bcf\u4e2a\u9875\u9762\u7684\u5185\u5bb9\u3002
\u5982\u6587\u6863\u4e2d\u6709\u5206\u8282\u7b26\u5206\u89e3\u540e\u7684\u6587\u6863\u4f1a\u51fa\u73b0\u7a7a\u767d\u9875\uff0c\u5982\u8981\u5206\u89e3\u540e\u4e0d\u51fa\u73b0\u7a7a\u767d\u9875\uff0c\u9700\u8981\u628a\u6587\u6863\u4e2d\u7684\u5206\u8282\u7b26\u5220\u9664\u3002\u6d88\u9664\u5206\u8282\u7b26\u7684\u65b9\u6cd5\uff1a
\u6ce8\u610f\u4e8b\u9879
\u5206\u8282\u7b26\u82e5\u5168\u90e8\u66ff\u6362\uff0c\u8981\u6ce8\u610f\u66ff\u6362\u540e\u6587\u6863\u53ef\u80fd\u4f1a\u51fa\u73b0\u6392\u7248\u6df7\u4e71\uff0c\u8fd9\u5219\u9700\u8981\u81ea\u5df1\u624b\u52a8\u6392\u7248\u4e86\u3002
\u3000\u3000\u65b9\u6cd5\u5982\u4e0b\uff1a
\u3000\u30001\u3001\u6253\u5f00\u9700\u8981\u8fdb\u884c\u7f16\u8f91\u7684word\u6587\u6863\uff1b
\u3000\u30002\u3001\u70b9\u51fb\u83dc\u5355\u680f->\u89c6\u56fe\uff1b
\u3000\u30003\u3001\u5355\u51fb\u4e4b\u540e\u4f1a\u5728\u89c6\u56fe\u4e0b\u65b9\u51fa\u73b0\u4e00\u4e2a\u5b50\u83dc\u5355\uff0c\u70b9\u51fb"\u62c6\u5206"\uff1b
\u3000\u30004\u3001\u70b9\u51fb\u540e\uff0c\u5c31\u4f1a\u51fa\u73b0\u4e00\u4e2a\u8ba9\u4f60\u786e\u5b9a\u9700\u8981\u62c6\u5206\u7684\u6587\u6863\u4f4d\u7f6e\uff1b
\u3000\u30005\u3001\u786e\u5b9a\u81ea\u5df1\u7684\u62c6\u5206\u4f4d\u7f6e\u540e\uff0c\u9f20\u6807\u5de6\u952e\u5355\u51fb\u5c31\u53ef\u4ee5\u5c06\u6587\u6863\u62c6\u5206\uff1b
\u3000\u30006\u3001\u5b8c\u6210\u3002
以WPS 2019版本为例：
如需把一个Word文档拆分，可使用WPS2019中已自带的「文档拆分」功能：
操作步骤：
1）打开其中一份「文字（Word」文档；
2）点击「特色应用-拆分合并-拆分」；
3）点击添加需合并文件，设置合并文件需合并的页数范围即可将多个文档合并为一份。
快速把一个Word文档拆分数据分成两个文档的步骤如下：
1、在Word2010中打开要拆分的Word文档，在文档拆分位置添加新标题作为拆分后独立文档的标题名称，也可以用节标题作为拆分后文档的标题名称。
2、选中拆分处的标题，单击“开始”选项卡，在“样式”组中单击“标题1”。3、接着双击“剪贴板”组中的“格式刷”，鼠标变成刷子形状，然后鼠标分别在拆分文档新标题前面单击选中该标题，便把分割处的标题都设置成了“标题1”级别。
4、单击“视图”选项卡，在“文档视图”中单击“大纲视图”按钮。
5、打开文档“分节”界面，在“大纲工具”组中设置“显示级别：1级”，同时Ctrl+A全选显示的大纲内容。
6、接着在“主控文档”组中依次单击“显示文档”、“创建”按钮。
7、单击“文件”选项卡，在弹出的下拉选项组中单击“另存为”，在打开的“另存为”对话框中选择文件保存的位置，其他选项保持默认，最后单击“保存”即可。这样在文件保存位置就看到拆分后的文档了。
1、先启动word2010，执行快捷键组合ctrl+o打开一份待拆分的文档。
2、执行视图菜单，选择大纲模式，查看页面排版的变化。
3、依次选择需要拆分的文件标题，设置大纲级别为1级。
4、选择需要拆分的标题前面的加号，执行大纲菜单中的显示文档，接着点击创建按钮。
5、重复步骤4，采用同样的方法依次创建其他子文档，并查看创建结果。
6、执行文件-保存命令，这样就将所有的子文件依次进行保存了，查看保存后的文档。
如何把一个word文档弄成很多个文档？
绛旓細鍦ㄥ鑸獥鏍兼垨鑰呬娇鐢ㄦ粴鍔ㄦ潯鎵惧埌浣犳兂瑕佷繚瀛樼殑绗竴椤点備娇鐢–trl+A鍏ㄩ夋暣涓〉闈紝鐒跺悗Ctrl+C澶嶅埗銆傛墦寮涓涓柊鐨Word鏂囨。锛孋trl+V绮樿创浣犲鍒剁殑鍐呭銆傞噸澶嶄笂杩版楠わ紝鐩村埌浣犳妸鎵鏈夋兂瑕佺殑椤甸潰閮藉鍒跺埌鏂扮殑鏂囨。涓傛渶鍚庯紝淇濆瓨杩欎釜鏂版枃妗ｅ埌浣犳兂瑕佺殑浣嶇疆銆備緥瀛愶細鍋囪浣鏈変竴涓鍖呭惈10椤电殑Word鏂囨。锛屼綘鎯宠淇濆瓨鍏朵腑鐨勭...
绛旓細涓冦蹇娓呮鏍煎紡鎴戜滑骞虫椂浠庣綉椤典腑澶嶅埗鐨鏂囨。鍐呭骞朵笉浼氬湪Word涓繘琛屾敼鍙橈紝鎴戜滑鍙渶瑕佹寜涓嬪揩鎹烽敭銆嶤trl+Shift+N銆忓嵆鍙竴閿竻妤氬鍒剁殑鍐呭鏍煎紡銆傚叓銆乄ord鍒嗗睆鍔熻兘鎴戜滑鐨勬墜鏈哄拰鐢佃剳涓兘鏈夊垎灞忓姛鑳斤紝浣嗘槸浣犺兘鎯冲埌鍚,Word涓篃鏈涓涓瀹炵敤鐨勫垎灞忓姛鑳斤紝璁╀綘鍙互杞绘澗瀵圭収鏂囨。鍐呭锛屽姞蹇伐浣滄晥鐜囷紝鐐瑰嚮銆庤鍥俱-銆鎷...
绛旓細灏嗕竴涓枃妗ｆ媶鍒鎴愪袱涓枃妗ｏ紝鏈変互涓嬪嚑绉嶆柟娉曪細涓銆佸鏋滄枃妗ｇ殑椤垫暟涓嶅锛屽彲浠ユ柊寤虹┖鐧芥枃妗ｏ紝澶嶅埗鍚庨潰鍑犻〉鐨勫唴瀹瑰彟瀛樹负涓涓枃妗ｏ紝鐒跺悗鎵撳紑鍘熷鏂囨。锛屽皢宸茬粡澶嶅埗杩囩殑鍐呭鍒犻櫎锛岀劧鍚庝繚瀛樸備簩銆佺敤Word鎷嗗垎鏂囨。1銆侀鍏堟墦寮闇瑕佽繘琛岀紪杈戠殑word鏂囨。锛岀劧鍚庣偣鍑昏彍鍗曟爮涓殑鈥滆鍥锯濓紱2銆佺偣鍑烩滄媶鍒嗏濇寜閽紝灏变細鍑虹幇涓...
绛旓細鐩镐俊寰堝灏忎紮浼村湪鏃ュ父鍔炲叕涓兘浼氱敤鍒Word锛屽湪鍏朵腑濡備綍鎵嶈兘灏嗘枃妗鍐呭鎷嗗垎鎴愬涓嫭绔鏂囦欢鍛紵鏂规硶寰堢畝鍗曪紝涓嬮潰灏忕紪灏辨潵涓哄ぇ瀹朵粙缁嶃傚叿浣撳涓嬶細1. 棣栧厛锛屾墦寮鎴戜滑瑕佹媶鍒嗙殑鏂囨。銆2. 鎵撳紑鍚庯紝鐐瑰嚮椤甸潰涓婄鐨勨滆鍥锯濓紝鍦ㄥ叾涓嬭彍鍗曟爮涓壘鍒板苟鐐瑰嚮鈥滃ぇ绾茶鍥锯濄3. 鎺ョ潃锛屽皢瑕佽浆鎴愬崟涓枃妗ｇ殑鍐呭棣栬璁剧疆濂斤紝...
绛旓細1. 濡備綍蹇熸妸涓涓猈ord鏂囨。鎷嗗垎鏁版嵁鍒嗘垚涓や釜鏂囨。 浠PS 2019鐗堟湰涓轰緥锛氬闇鎶婁竴涓猈ord鏂囨。鎷嗗垎锛屽彲浣跨敤WPS2019涓凡鑷甫鐨勩屾枃妗ｆ媶鍒嗐嶅姛鑳斤細鎿嶄綔姝ラ锛1锛夋墦寮鍏朵腑涓浠姐屾枃瀛楋紙Word銆嶆枃妗ｏ紱2锛夌偣鍑汇岀壒鑹插簲鐢-鎷嗗垎鍚堝苟-鎷嗗垎銆嶏紱3锛夌偣鍑绘坊鍔犻渶鍚堝苟鏂囦欢锛岃缃悎骞舵枃浠堕渶鍚堝苟鐨勯〉鏁拌寖鍥村嵆鍙皢澶氫釜鏂囨。鍚堝苟涓...
绛旓細濡備綍灏哤ord鏂囨。鎷嗗垎涓哄涓枃妗ｏ紵鎿嶄綔濡備笅锛氱涓姝ュ厛鎵撳紑鐢佃剳涓殑Word鏂囨。锛屾帴鐫鏍规嵁涓嬪浘鎵绀猴紝閫夋嫨闇瑕佹媶鍒嗙殑閮ㄥ垎鏂囧瓧锛岀劧鍚庡崟鍑婚紶鏍囧彸閿紝鍦ㄥ脊鍑虹殑鑿滃崟鏍忎腑鐐瑰嚮銆愭钀姐戦夐」銆傛帴鐫锛屾墦寮銆愭钀姐戠獥鍙ｅ悗锛屾牴鎹笅鍥炬墍绀猴紝鍏堝皢銆愬ぇ绾茬骇鍒戣缃1 绾с戯紝鎺ョ潃鐐瑰嚮銆愮‘瀹氥戦夐」銆備箣鍚庯紝鏍规嵁涓嬪浘绠ご鎵鎸囷紝渚濇...
绛旓細浠婂ぉ瑕佽瑙ｇ殑鎶鑳芥槸濡備綍蹇鐨勫皢涓绡Word鏂囨。鎷嗗垎鎴愬涓枃妗ｄ互鍙婂涓鏂囨。濡備綍鍚堝苟鎴涓涓鏂囨。銆傛媶鍒嗘爣棰 鎴戜滑鍙互蹇熺殑灏嗘爣棰樻媶鍒嗘垚澶氫釜鐙珛鐨勬枃妗ｏ紝杩欓噷闇瑕佺敤鍒扮殑鎿嶄綔灏辨槸鏍囬鏍峰紡銆傛搷浣滄柟娉曪細鎵撳紑鎴戜滑闇瑕佹媶鍒嗙殑鏂囨。锛岄変腑鎷嗗垎鐨勬爣棰橈紝鐐瑰嚮銆愭牱寮忋戦夋嫨浠绘剰涓绉嶃 鐒跺悗鐐瑰嚮銆愯鍥俱-銆愬ぇ绾茶鍥俱-銆...
绛旓細1銆佹墦寮word鏂囨。锛岄変腑鈥滆鍥锯-鈥滃ぇ绾茶鍥锯濓紱2銆灏闇瑕佹媶鍒嗙殑鏍囬閫変腑璁剧疆绾у埆锛3銆佸垎鍒偣鍑诲悇閮ㄥ垎鍓嶉潰鐨勨滃姞鍙封濓紱4銆佺偣鍑烩滄樉绀烘枃妗ｂ濓紝鏄剧ず鍑轰富鎺ф枃妗ｉ夐」锛5銆佺偣鍑讳富鎺ф枃妗ｉ夐」涓殑鈥滃垱寤衡濇潵鎷嗗垎鏂囨。锛6銆佺偣鍑讳繚瀛樺嵆鍙
绛旓細鏈変袱涓柟娉曞彲浠ヨВ鍐宠繖涓棶棰橈紝涓嬮潰鍏蜂綋浠嬬粛涓涓嬶細1銆佺涓椤电焊鎵鍓╀笅鐨勭┖闂达紝灏忎簬琛ㄦ牸鐨勯珮搴︺傝В鍐冲姙娉曟槸璁绗竴椤电殑绾稿墿涓嬬殑绌洪棿锛屽ぇ浜庤〃鏍肩殑楂樺害銆傛墍浠ワ紝浣犺涔堟敼鍙樿〃鏍肩殑澶у皬锛岃涔堟敼鍙橀〉杈硅窛鎵╁ぇ鍓╀笅鐨勭┖闂达紱2銆侀変腑鏁翠釜琛ㄦ牸锛屽彸鍑>琛ㄦ牸灞炴>琛>鍏佽璺ㄩ〉鏂锛岀劧鍚庡氨鎶婅〃鏍兼柇寮鏉ュ惂锛屽氨鏄壘鍒板摢涓...
绛旓細1銆侀鍏堬紝鎵撳紑word2010绋嬪簭锛岀劧鍚庢墦寮瑕鎷嗗垎鎴愬嚑涓皬鏂囨。鐨word鏂囨。銆2銆佸崟鍑籛ord绋嬪簭涓诲睆骞曢《閮ㄧ殑鈥滃ぇ绾测濓紝鐒跺悗鍗曞嚮灏鍏舵墦寮銆3銆侀夋嫨瑕佸湪鏂囨。涓寜椤哄簭鎷嗗垎鐨勬枃浠舵爣棰橈紝骞跺皢澶х翰绾у埆璁剧疆涓虹骇鍒1銆4銆佺劧鍚庯紝閫夋嫨瑕佹媶鍒嗙殑鏍囬鍓嶉潰鐨""锛屽崟鍑"鏄剧ず鏂囨。"锛岀劧鍚庨夋嫨"鍒涘缓"銆5銆佺劧鍚庯紝涓婇潰鎻愬埌鐨勫叾浠栧瓙鏂囨。...
