window怎么把文件拆分

window怎么把文件拆分,第1张

1、在Word里面打开那个需要分割的文档(假设它的文件名叫做“原始文档.doc”);

键入ALT+F11打开VBA编辑器,选择菜单“插入-模块”;

粘贴下面的代码:

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

键入F5运行,看到“完成!”结束。

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

如文档中有分节符分解后的文档会出现空白页,如要分解后不出现空白页,需要把文档中的分节符删除。消除分节符的方法:

注意事项

分节符若全部替换,要注意替换后文档可能会出现排版混乱,这则需要自己手动排版了。

大文件传输在电脑复制给手机就会出现卡死的情况,这时候咋办呢?

这里就是分割1g >split -b 1000000000 Xcode_9_beta.xip

生成了很多xaa xab xac

合并文件

5*1024*1024*1024*1024=5g

100m

100*1024*1024

split -b 104857600 Ubuntu64.part1.rar

下面是 对 当前目录分割好的文件进行合并.

如何校验是否完整呢,比对一下合成后的md5就好了

不过大文件检测md5还是比较累的哈。


欢迎分享,转载请注明来源:内存溢出

原文地址: https://outofmemory.cn/tougao/11540307.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-16
下一篇 2023-05-16

发表评论

登录后才能评论

评论列表(0条)

保存