请大神帮把doc文件切割成一个个doc文件，谢谢！

gbgbxgb · 发表于 2020-7-30 19:41

abcttud 发表于 2020-7-30 14:47
gbgbxgb老师：

为什么出现运行错误“5152”

截取的以作为待保存文件名的字符串中包含了无法作为文件名的非法字符！

由于截取的字符串存在高度不确定性，故要解决这问题，只好修改给文件取名的相关代码句，胡乱给文件取个名称了。

413191246se · 发表于 2020-7-30 19:53

本帖最后由 413191246se 于 2020-7-30 19:57 编辑

老师，我试了一下（虽然早知道如此，并未重视），有下列 9 种字符不可作为文件名中字符：
可能得用 9 个 Replace 函数消除之：i=Replace(i,"\","") 或：i=Replace(i,"\\","")，未试验。现在只知道删除回车符用 i=Replace(i,vbcr,"") 即可。

gbgbxgb · 发表于 2020-7-30 20:11

413191246se 发表于 2020-7-30 19:53
老师，我试了一下（虽然早知道如此，并未重视），有下列 9 种字符不可作为文件名中字符：
可能得用 9 个 R ...

有心了，不用那么费事了，为个文件取名耗那么多心思和代码，不值得。我已经修改了相关代码，只截取汉字、字母、数字和下划线以及少数的几个中文符号。

gbgbxgb · 发表于 2020-7-30 21:47

abcttud 发表于 2020-7-30 14:51
老师：
另外，下面同样两种如何分割
https://abcttud.lanzous.com/ip3xhey02di

你的Word文档中的超链接存在各种复杂情况，虽然代码作了大的调整，但代码不保证每份Word文档都能顺利执行或得到准确的结果。

若确实需要这样的功能，你至网店付费订制（相关话：为了这个代码可以适应你提供的那几个Word文档，我已经耗费太多时间了，关键是，这样的研究没什么太大的学习价值了，所以不想再琢磨这代码以适应你层出不穷的各种各样的超链接了）。

最后，试试修改后的附件。

拆分文档的代码.rar (469.25 KB, 下载次数: 9)

gbgbxgb · 发表于 2020-7-31 07:39

abcttud 发表于 2020-7-30 14:51
老师：
另外，下面同样两种如何分割
https://abcttud.lanzous.com/ip3xhey02di

https://abcttud.lanzous.com/iiT6mexy89i

如上述链接所示的文档，你拿个存在任意特征的文档来问询，这是来求助还是来找免费义工呢？如果不明白我说的意思，再往下看：
1.如上述链接文档，特征是每间隔一些段落，有一段落为黑体字（或加粗）；
2.哪天你再冒出个文档，特征是每间隔一些段落，有一段落加了下划线；
3.又哪天你再再冒出个文档，特征是每间隔一些段落，有一段落为斜体字；
4.又又哪天你……

综上，你手头若存在大量没有特定规律的文档要处理，又懒得手动整理，有一个办法就是象你现在这样所做的，一份文档发一帖“求助”，来此论坛找“义工”（我没恶意，就你发的上述链接文档不由得我怀疑你求助的真实目的）。^_^

abcttud · 发表于 2020-7-31 07:57

本帖最后由 abcttud 于 2020-7-31 08:09 编辑

gbgbxgb 发表于 2020-7-30 21:47
你的Word文档中的超链接存在各种复杂情况，虽然代码作了大的调整，但代码不保证每份Word文档都能顺利执行 ...

非常感谢gbgbxgb老师

请问老师，这两个链接有什么不同，谢谢！

小花鹿 · 发表于 2020-7-31 08:04

用正则把汉字字母数字之外的字符删除就行了

abcttud · 发表于 2020-7-31 08:04

gbgbxgb 发表于 2020-7-30 21:47
你的Word文档中的超链接存在各种复杂情况，虽然代码作了大的调整，但代码不保证每份Word文档都能顺利执行 ...

gbgbxgb老师，
还有个问题，分割后格式发生了变化，请老师帮调整下变成原格式，谢谢！

https://abcttud.lanzous.com/ip3xhey02di

gbgbxgb · 发表于 2020-7-31 09:44

abcttud 发表于 2020-7-31 07:57
非常感谢gbgbxgb老师
请问老师，这两个链接有什么不同，谢谢！

有个链接（或许还有好几个类似这样的）链接往Internet的某个网页，我尝试查找该链接，但查不到，故看不见，但它确实存在。你在运行代码时可以发现代码好象呈现为中断状态，随后，你发现“人民网”的网页被打开了。

我不知道你这文档当初是怎么建立起来的，为什么上述那样的链接查不出来从而看不见，如果你知道个中原因，希望你跟个帖，让后来者知道这究竟是怎样的一个链接。

gbgbxgb · 发表于 2020-7-31 09:45

abcttud 发表于 2020-7-31 08:04
gbgbxgb老师，
还有个问题，分割后格式发生了变化，请老师帮调整下变成原格式，谢谢！

按Alt+F11进入VBE编辑界面，找到类似如下的代码段，更改成如下所示：
            Set rng = .Range(arr(i, 1), arr(i + 1, 1))
            Set myDoc = Documents.Add
            With myDoc
                  rng.Copy
                  .Range(0, 0).Paste
                  theStrTemp = theBaseName

		自动登录	找回密码
密码			免费注册

[求助] 请大神帮把doc文件切割成一个个doc文件，谢谢！

评分

评分