把一个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代表其对应原始文件中的第几页)的文件,检查它们的内容是否就对应于原始文件每个页面的内容。
将一个文档拆分成两个文档,有以下几种方法:一、如果文档的页数不多,可以新建空大伏友白文档,复制后面几页的内容另存为一个文档,然后打开原始文档,将已经复制过的内容删除,然后保存。
二、用Word拆分文档
1、首先打开需要进行编辑的word文档,滚槐然后点击菜单栏中的“视图”;
2、点击“拆分”按钮,就会出现一条拆分线;
3、鼠标挪动拆分线,确定拆分位置后,单击左键就可以将文档拆分成功。
三、使用WPS自带的拆分功能
1、打开WPS文档,点击顶部工具栏中的“特色应用”,选择“拆分合并器”;
2、选择“拆分文档”,添加需要拆分的文档;
3、拆分方式可以选择每多少页保存成一份文厅拦档,或者自定义页数范围保存为一份文档;
4、然后选择输出目录,设置完成后点击开始按钮,即可快速拆分。
如果要拆分文档中的表格,只需要将光标放在要拆分的表格中,然后按住快捷键Ctrl+Shift+Enter,就可以轻松将表格拆分成两个表格。
第一步:在Word2010中打开要拆分的Word文档,在文档拆分位置添加新标题作为拆分后独立文档的前桥标题名称,也可以用节标题作为拆分后文档的标题名称。
请点击输入图片描述
第二步:选中拆分处的标题,单击“开始”选项卡,在“样式”组中单击“标题1”。
请点击输入图片描述
第三步:接着双击“剪贴板”组中的“格式刷”,鼠标变成刷子形状,然后鼠标分别在拆分文档新标题前面单击选中该标题,便把分割处的标题都设置成了“标题1”级别。
请点击输入图片描述
第四步:单击“视图”选项卡,在“文档视图”中单击“大纲视图”按钮。
请点击输入图片描述
第五步:打开文档“分节”界面,在“大纲工具”组中设世磨置“显示级别:1级”,同时Ctrl+A全选显示的大纲内容。
请点击输入慧返猛图片描述
第六步:接着在“主控文档”组中依次单击“显示文档”、“创建”按钮。
请点击输入图片描述
第七步:单击“文件”选项卡,在d出的下拉选项组中单击“另存为”,在打开的“另存为”对话框中选择文件保存的位置,其他选项保持默认,最后单击“保存”即可。这样在文件保存位置就看到拆分后的文档了。
请点击输入图片描述
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)