一个word文件怎么拆分成多个文件

一个word文件怎么拆分成多个文件, 如何把一个word文件拆分为多谈卜含个小文件

把一个word文件拆含笑分为多个小文件的方法：

1.开启要处理的WORD文件，然后ALT+F8调出巨集处理视窗，新输入巨集名称为MyPg。

2.点选右侧的编辑按钮，输入如下内容，完成后键盘F5即可。

3.贴上如下内容

Option Explicit

Sub MyPg()

Dim oSrcDoc As Document, oNewDoc As Document

Dim strSrcName As String, strNewName As String

Dim oRange As Range

Dim nIndex As Integer, nSubIndex As Integer, nTotalPages As Integer, nBound As Integer

Dim fso As Object

Const nSteps = 200 ' 修改这里控制每隔几页分割一次

Set fso = CreateObject("Scripting.FileSystemObject")

Set oSrcDoc = ActiveDocument

Set oRange = oSrcDoc.Content

nTotalPages = ActiveDocument.Content.Information(wdNumberOfPagesInDocument)

oRange.Collapse wdCollapseStart

oRange.Select

For nIndex = 1 To nTotalPages Step nSteps

Set oNewDoc = Documents.Add

If nIndex + nSteps >nTotalPages Then

nBound = nTotalPages

Else

nBound = nIndex + nSteps - 1

End If

For nSubIndex = nIndex To nBound

oSrcDoc.Activate

oSrcDoc.Bookmarks("\page").Range.Copy

oSrcDoc.Windows(1).Activate

Application.Browser.Target = wdBrowsePage

Application.Browser.Next

oNewDoc.Activate

oNewDoc.Windows(1).Selection.Paste

Next nSubIndex

strSrcName = oSrcDoc.FullName

strNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName), _

fso.GetBaseName(strSrcName) &"_" &(nIndex \ nSteps + 1) &"." &fso.GetExtensionName(strSrcName))

oNewDoc.SaveAs strNewName

oNewDoc.Close False

Next nIndex

Set oNewDoc = Nothing

Set oRange = Nothing

Set oSrcDoc = Nothing

Set fso = Nothing

MsgBox "结束！"

End Sub

此方法适用于页码分多个文件使用。

1、检视——大纲，切换到大纲检视，选中要拆分的标题及正文（选定的方法是滑鼠移到该标题前的空心十字元号，此时滑鼠指标变成十字箭头，单击滑鼠即可选定该标题包括的内容）

2、单击【大纲】工具栏中的【建立子文件】按钮，每个子文件会放在一个虚线框中弊卜，并且在虚线框的左上角显示一个子文件图示，子文件之间用分节符隔开。

3、把档案储存下来即可。Word 在储存主文件的同时，会自动储存建立的子文件，并且以子文件的第一行文字作为档名。

一个word文件中的东西怎么分成多个文件

方法如下：

1、开启需要进行编辑的word文件；

2、点选选单栏->检视；

3、单击之后会在检视下方出现一个子选单，点选"拆分"；

4、点选后，就会出现一个让你确定需要拆分的文件位置；

5、确定自己的拆分位置后，滑鼠左键单击就可以将文件拆分；

6、完成。

怎么将pdf合并文件分开拆分成多个PDF文件

拆分PDF格式档案需要使用到专业性的软甲，下面答主就为大家介绍一款 *** 作简单的PDF拆分软体！

参考软体：迅捷PDF编辑器

拆分步骤：

首先我们点选PDF编辑器左上角的“档案”按钮并将PDF档案开启！

档案开启之后点选“文件”中的“拆分文件”功能进入到拆分介面！

在拆分介面设定好PDF拆分引数后点击“确定”按钮即可拆分PDF档案！

以上就是拆分PDF档案的方法，看完之后是不是觉得特别简单呢！

Word怎么将一个文件拆分成几个小文件

1、开启需要拆分的文件，文件里面输入内容。2、以大纲检视显示文件，点选【检视】再点选【大纲检视】3、在需要拆分的地方的标题处，设定“级别”如图4、选中要拆分出来的文件（含带级别的标题）。将滑鼠移动到标题前的空心十字元号上，此时滑鼠指标变成十字箭头，点选滑鼠即可选定该标题以及其包括的内容。5、开启文件 *** 作，点选“显示文件”，展开相应文件 *** 作按钮；点选“建立”按钮，建立子文件；6、点选“选单”按钮，d出“另存为”对话方块，即可生成以“设定了级别的标题”为档名的子文件；

如何将一个word文件按页分割成多个word文件

1、在Word里面开启那个需要分割的文件；

2、键入ALT+F11开启VBA编辑器，选择选单“插入-模组”；

3、复制贴上下面的程式码：

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 "结束！"

End Sub

4、按“F5”执行，看到“完成！”结束。

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

用WinRar或WinZip就行了，以rar为例，对要分割的文件点右键，选“添加到祥首档案文件...”（不同版本可能不太一样），在出现的对话框的左下选分卷，则州可以直接在里面填入分割的大小，以字节为单位。分割的同时还能压缩，一举两得。

解压的时候，只要把所有部分放在一起，对第一谨盯数个文件解压缩就行了。

首先，鼠标右键点击想要分割的文件，选择“添加到压缩文件”，其次在d出的窗口中有个压缩分卷大小的选择框，在里面填入自己想要的大小（注意加上单位，KB,MB等），即可将一个文件按照选择的数字大小分割成几个部分，确定。注意：分割后的文件是以XXX.part1.rar，XXX.part2.rar......命名的，如果要合并成一个文悉友件，把所有这些小文件放在一个目录下，在任睁祥槐意一个上点右键选择释放，即可得到分割前的文件。有的论坛设置了上传文件自动重命名的功能，把所有文件下载到一个文件夹后，按照上面的格式改一下文件名就可以宴衡合并了。

---