怎样将word中一篇文章拆分成两个文章并分别存于两个位置？不要说简单的剪切粘贴，我记得有文档拆分操作！ 如何把word文档里的多页文件的其中一页另存为一个独立的新文...
\u600e\u6837\u5c06word\u6587\u6863\u4e2d\u7684\u4e00\u9875\u6216\u8005\u51e0\u9875\u5206\u79bb\u51fa\u6765\u5355\u72ec\u4f5c\u4e3a\u4e00\u4efd\u6587\u6863\uff1f1\u3001\u627e\u5230\u9700\u8981\u8fdb\u884c\u5206\u79bb\u4efdWord\u6587\u6863\u53cc\u51fb\u6253\u5f00\u8be5Word\u6587\u6863\u3002
2\u3001\u5728\u8fdb\u5165\u8be5\u6587\u6863\u540e\uff0c\u627e\u5230\u9700\u8981\u5206\u79bb\u5f00\u7684\u9875\u9762\uff0c\u5c06\u9f20\u6807\u4ece\u8be5\u9875\u9762\u5de6\u4e0a\u89d2\u4e0b\u62c9\u5230\u9875\u9762\u7684\u53f3\u4e0b\u89d2\uff0c\u9009\u4e2d\u6539\u4e1a\u7684\u5168\u90e8\u5185\u5bb9\u3002
3\u3001\u9009\u4e2d\u8fd9\u4e00\u9875\u7684\u7fa4\u8865\u5185\u5bb9\u540e\u70b9\u51fb\u5f39\u51fa\u9009\u9879\u6846\u4e2d\u7684\u526a\u5207\u9009\u9879\u5c06\u6240\u9009\u4e2d\u7684\u5185\u5bb9\u526a\u5207\u5230\u526a\u5207\u677f\u4e0a\u3002
4\u3001\u70b9\u51fb\u6587\u6863\u4e0a\u65b9\u7684\uff0b\u53f7\u9009\u9879\u5e76\u5728\u5f39\u51fa\u7684\u754c\u9762\u4e2d\u9009\u62e9\u65b0\u5efa\u7a7a\u767d\u6587\u6863\u9009\u9879\uff0c\u65b0\u5efa\u4e00\u4e2a\u7a7a\u767d\u7684\u6587\u6863\u3002
5\u3001\u5728\u65b0\u5efa\u7684\u6587\u6863\u4e2d\u9f20\u6807\u53f3\u51fb\u7a7a\u767d\u6587\u6863\u4e2d\u7684\u4efb\u610f\u90e8\u5206\u5e76\u9009\u62e9\u5f39\u51fa\u5bf9\u8bdd\u6846\u7684\u7c98\u8d34\u9009\u9879\u5c06\u521a\u521a\u526a\u5207\u8fc7\u7684\u5185\u5bb9\u7c98\u8d34\u5230\u8be5\u7a7a\u767d\u6587\u6863\u4e2d\uff0c\u8fd9\u6837\u5c31\u80fd\u964d\u8fd9\u4e00\u90e8\u5206\u5185\u5bb9\u4f5c\u4e3a\u4e00\u4e2a\u72ec\u7acb\u7684\u6587\u6863\u5206\u5272\u5f00\u6765\u3002
1\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
2、单击【大纲】工具栏中的【创建子文档】按钮，每个子文档会放在一个虚线框中，并且在虚线框的左上角显示一个子文档图标，子文档之间用分节符隔开。
3、把文件保存下来即可。Word 在保存主文档的同时，会自动保存创建的子文档，并且以子文档的第一行文本作为文件名。
或者用金山的 wps 有这功能。
单击【大纲】工具栏中的【创建子文档】按钮，每个子文档会放在一个虚线框中，并且在虚线框的左上角显示一个子文档图标，子文档之间用分节符隔开。
绛旓細鏂规硶涓锛氫娇鐢ㄥ垎鑺傜 鎵撳紑鎮ㄧ殑 Word 鏂囨。銆傚湪鏂囨。涓紝纭畾鎮ㄥ笇鏈涘垎鍓茬殑浣嶇疆锛屽苟灏嗗厜鏍囨斁鍦ㄨ浣嶇疆銆傝浆鍒扳滃竷灞鈥濋夐」鍗°傚湪鈥滃垎鑺傜鈥濅笅鎷夎彍鍗曚腑锛岄夋嫨閫傚悎鎮ㄩ渶姹傜殑鍒嗚妭绫诲瀷銆備緥濡傦紝閫夋嫨鈥滀笅涓椤碘濇潵鍦ㄥ厜鏍囦綅缃箣鍚庡垱寤轰竴涓柊鑺傘傜幇鍦紝鎮ㄥ凡缁忓湪鏂囨。涓垱寤轰簡涓涓柊鐨勮妭锛屽彲浠ョ嫭绔嬬紪杈戙傛偍鍙互閲嶅杩欎釜杩囩▼...
绛旓細1. 鎵撳紑鐢佃剳锛屾壘鍒版兂瑕佹媶鍒嗙殑Word鏂囨。锛屽弻鍑绘墦寮銆2. 杩涘叆涓婚〉闈㈠悗锛岀偣鍑讳笂鏂圭殑瑙嗗浘鑿滃崟锛岄夋嫨澶х翰瑙嗗浘閫夐」銆3. 鍦ㄦ墦寮鐨勯〉闈紝鎵惧埌鎯宠鎷嗗垎鐨勬枃妗ｉ鐩紝鐒跺悗鐐瑰嚮涓婃柟鐨勭骇鍒唴瀹归夐」锛岀偣鍑昏繘琛岃缃浉搴旂殑绾у埆鍐呭銆4. 灏嗘兂瑕佹媶鍒嗗嚭鏉ョ殑鏂囨。閫変腑锛岄紶鏍囨斁鍦ㄦ爣棰樺墠鐨勭┖蹇冨崄瀛楃鍙蜂笂锛屽綋鎸囬拡鍙樻垚鍗佸瓧绠ご锛岀偣鍑婚紶...
绛旓細鏂规硶涓锛鎵撳紑闇瑕佹媶鍒嗙殑Word鏂囨。锛屽皢鍏夋爣绉昏嚦闇瑕佹媶鍒嗛儴鍒嗭紝鐐瑰嚮"椤甸潰甯冨眬"锛屽啀鐐瑰嚮"鍒嗛殧绗"锛岀劧鍚庨夋嫨"鍒嗛〉绗"銆備緷娆＄偣鍑"鐗硅壊鍔熻兘"锛屽啀鐐瑰嚮"鎷嗗垎鍚堝苟"锛岀劧鍚庨夋嫨"鏂囨。鎷嗗垎"銆傚湪鏂囨。鎷嗗垎瀵硅瘽妗嗕腑鐐瑰嚮"涓嬩竴姝"锛屽湪鎷嗗垎鏂瑰紡涓夋嫨"骞冲潎鎷嗗垎"锛岀劧鍚庣偣鍑"寮濮嬫媶鍒"銆傛柟娉曚簩锛氭墦寮Word鏂囨。锛岄変腑"瑙嗗浘"锛岀偣...
绛旓細1.鎵撳紑鐢佃剳涓婁娇鐢ㄧ殑Word鏂囨。杞欢锛屾墦寮瑕佹媶鍒嗙殑word鏂囨。锛鐐瑰嚮鏂囨。椤堕儴鑿滃崟鏍忎腑鐨勯〉闈㈠竷灞锛屽湪杩欎竴閫夐」涓嬮夋嫨鈥滃垎闅旂鈥濋夐」锛屼粠鍒嗛殧绗︿腑绛涢夊嚭鍒嗛〉绗︽寜閽偣鍑锛2.闅忓悗锛屾垜浠湪鑿滃崟鏍忎腑閫夋嫨鈥滅壒鑹插姛鑳解濓紝鍦ㄨ繖涓鐩稿叧閫夐」涓嬫壘鍒版媶鍒嗗悎骞堕夐」锛屾垜浠夋嫨鎷嗗垎鍚堝苟閫夐」涓嬬殑鎷嗗垎鎸夐挳锛3.鎺ョ潃锛屾垜浠湪寮瑰嚭鐨勬枃妗ｆ媶...
绛旓細绗竴姝ュ厛鎵撳紑鐢佃剳涓殑Word鏂囨。锛屾帴鐫鏍规嵁涓嬪浘鎵绀猴紝閫夋嫨闇瑕鎷嗗垎鐨勯儴鍒嗘枃瀛楋紝鐒跺悗鍗曞嚮榧犳爣鍙抽敭锛屽湪寮瑰嚭鐨勮彍鍗曟爮涓偣鍑汇愭钀姐戦夐」銆傛帴鐫锛屾墦寮銆愭钀姐戠獥鍙ｅ悗锛屾牴鎹笅鍥炬墍绀猴紝鍏堝皢銆愬ぇ绾茬骇鍒戣缃1 绾с戯紝鎺ョ潃鐐瑰嚮銆愮‘瀹氥戦夐」銆備箣鍚庯紝鏍规嵁涓嬪浘绠ご鎵鎸囷紝渚濇鐐瑰嚮銆愯鍥-澶х翰瑙嗗浘銆戦夐」銆傚厛鎸変笅銆怌trl...
绛旓細鍙互灏嗕竴涓枃妗鎷嗗垎鎴澶氫釜鏂囨。鐨勬柟娉曟槸锛1. 鎵撳紑闇瑕佹媶鍒嗙殑鏂囨。锛岄夋嫨鈥滄枃浠垛濊彍鍗曚腑鐨勨滃彟瀛樹负鈥濋夐」銆2. 鍦ㄥ脊鍑虹殑淇濆瓨瀵硅瘽妗嗕腑锛岄夋嫨闇瑕佹媶鍒嗙殑浣嶇疆锛屽妗岄潰鎴栨煇涓壒瀹氱殑鏂囦欢澶广3. 鍦ㄢ滀繚瀛樼被鍨嬧濅笅鎷夎彍鍗曚腑閫夋嫨涓嶅悓鐨勬枃浠剁被鍨嬶紝濡侾DF銆丏OCX绛夛紝杩欎簺鏂囦欢绫诲瀷閫氬父鏀寔鎷嗗垎鏂囨。鐨勫姛鑳姐4. 鐐瑰嚮淇濆瓨...
绛旓細鍦╓ord涓锛屽彲浠ラ氳繃鈥鍒嗗壊鏂囨。鈥濇垨鑰呪滃鍒剁矘璐粹濈殑鏂规硶灏嗘煇鍑犻〉淇濆瓨涓轰竴涓崟鐙殑鏂囦欢銆1. 浣跨敤鈥滃垎鍓叉枃妗ｂ濆姛鑳 棣栧厛锛屾墦寮浣犵殑Word鏂囨。銆傞夋嫨鈥滆鍥锯濊彍鍗曚腑鐨勨滃鑸獥鏍尖濋夐」锛岃繖鏍峰彲浠ュ湪宸︿晶鐪嬪埌鏂囨。鐨勯〉闈㈢缉鐣ュ浘銆傚湪瀵艰埅绐楁牸涓紝閫変腑浣犳兂瑕佷繚瀛樼殑閭ｅ嚑椤电殑棣栭〉銆傜劧鍚庢寜浣廠hift閿紝鍚屾椂閫変腑浣犳兂瑕佷繚瀛...
绛旓細灏嗕竴涓枃妗鎷嗗垎鎴涓や釜鏂囨。锛屾湁浠ヤ笅鍑犵鏂规硶锛氫竴銆佸鏋滄枃妗ｇ殑椤垫暟涓嶅锛屽彲浠ユ柊寤虹┖鐧芥枃妗ｏ紝澶嶅埗鍚庨潰鍑犻〉鐨勫唴瀹瑰彟瀛樹负涓涓枃妗ｏ紝鐒跺悗鎵撳紑鍘熷鏂囨。锛屽皢宸茬粡澶嶅埗杩囩殑鍐呭鍒犻櫎锛岀劧鍚庝繚瀛樸備簩銆佺敤Word鎷嗗垎鏂囨。1銆侀鍏堟墦寮闇瑕佽繘琛岀紪杈戠殑word鏂囨。锛岀劧鍚庣偣鍑昏彍鍗曟爮涓殑鈥滆鍥锯濓紱2銆佺偣鍑烩滄媶鍒嗏濇寜閽紝灏变細鍑虹幇涓...
绛旓細 鎿嶄綔姝ラ 1銆佹寜浣廋trl閿悓鏃堕変腑鎵鏈夐潚鑹插簳绾规爣娉ㄧ殑鏂囨湰鍐呭锛屽啀鎸塁trl+H缁勫悎閿皟鍑"鏌ユ壘鍜屾浛鎹"瀵硅瘽妗嗐2銆佸湪"鏌ユ壘鍜屾浛鎹"瀵硅瘽妗嗕腑锛屽湪"鏌ユ壘鍐呭"缂栬緫妗嗕腑杈撳叆涓枃椤垮彿"銆"锛屽湪"鏇挎崲涓"缂栬緫妗嗕腑杈撳叆娈佃惤鏍囪鐨勬牸寮忎唬鐮"^P"锛堣嫳鏂囩姸鎬侊級锛屽湪"鎼滅储閫夐」"涓嬬殑"鎼滅储"缂栬緫妗嗕笅鎷夊垪琛ㄤ腑閫夋嫨"鍏ㄩ儴...
绛旓細1銆侀鍏堟墦寮鐨Word鏂囨。鏈変袱椤靛唴瀹癸紝闇瑕佽皟鏁村埌涓椤典腑鏄剧ず銆2銆佺偣鍑绘枃妗ｄ笂鏂瑰伐鍏锋爮鐨勨滃竷灞鈥濋夐」鍗′腑鐨勨滈〉杈硅窛鈥濋夐」銆3銆佸湪鎵撳紑鐨勨滈〉杈硅窛鈥濈殑涓嬫媺鑿滃崟涓夋嫨鈥滆嚜瀹氫箟椤佃竟璺濃濋夐」銆4銆佸湪鎵撳紑鐨勮缃〉杈硅窛瀵硅瘽妗嗕腑灏嗕笂涓嬪乏鍙崇殑璺濈鏁板艰缃殑灏忎竴浜涳紝鐐瑰嚮纭畾銆5銆佸鏋滄鏃堕〉闈㈣繕娌℃湁璋冩暣鍒1椤碉紝鍙互...
