求一个查找文档内多余的标点符号并把它们改为蓝色的宏代码

13907933959

413191246se 发表于 2015-10-10 11:07
139：我这儿感觉正常！
你把我下面的代码复制到原位置，替换一下你的代码：（另外，在宏里双击可以选定整 ...

师傅好！
21楼的20句代码，可否放进8楼的 “Sub 查找重复标点符号()” 宏里面，如可以、要放在那一句代码的下面，请师傅指点！

413191246se

放在第一句代码 Sub 查找重复的标点符号()下面一行，但同时，要将这些语句的第一行的 doc 替换为 ActiveDocument——先把 doc 全部替换 为 ActiveDocument 再放入吧！

13907933959

413191246se 发表于 2015-10-15 23:48
放在第一句代码 Sub 查找重复的标点符号()下面一行，但同时，要将这些语句的第一行的 doc 替换为 ActiveDoc ...

师傅好！
凭我的技术还是不成，代码复制粘贴到了文档内（未做任何编辑修改）把doc 全部替换为 ActiveDocument再从文档上复制粘贴到代码窗口内，代码1～8句还是会变成红色，把1～8句代码前边的第二个英文前引号换成中文前引号，可每句后面还会无故多一个英文引号，还删不掉、在把第二句后面的英文引号删除后，第一句的后面又自动加上了英文引号，宏可正常运行，但替换的效果还是和原来一样会出错，还得劳请师傅把代码变一下，谢谢！

413191246se

139：在我这里，宏保存在文本文档中，拷贝到 VBE 中是能正确显示中文标点的，在你那里是否如此呢？
原来的20句代码，有一句重复了，现在剩19句： Macro 查找重复标点符号 333.rar (668 Bytes, 下载次数: 12)

2015-10-16 17:50 上传

点击文件名下载附件

13907933959

413191246se 发表于 2015-10-16 17:50
139：在我这里，宏保存在文本文档中，拷贝到 VBE 中是能正确显示中文标点的，在你那里是否如此呢？
原来的 ...

师傅好！

把你文本内的代码复制粘贴到代码窗口内，一切正常。

可我把文本内的代码复制粘贴到Word文档内（未做任何编辑修改）再从Word文档内把代码复制粘贴到代码窗口内就是不成，代码1～8句还是会变成红色，把1～8句代码前边的第二个英文前引号换成中文前引号，可每句后面还会无故多一个英文引号，还删不掉、在把第二句后面的英文引号删除后，第一句的后面又自动加上了英文引号，宏可正常运行，但替换的效果还是和原来一样会出错。我仔细看了Word文档内的代码，发现有5处（附件上我以红色标注）下面有绿色波浪线条，不知和这个有不关。

请师傅查看附件！

师傅、为什么文本可以，文档就不成呢？

413191246se

139：不必钻牛角尖！可能是 VBE 编译器不太接受中文标点，宏代码保存在文本文档中也很好，也保险。

13907933959

413191246se 发表于 2015-10-17 19:23
139：不必钻牛角尖！可能是 VBE 编译器不太接受中文标点，宏代码保存在文本文档中也很好，也保险。

师傅好！
啊、是这个原因！也只是好奇而以，感谢师傅的答疑解惑！

13907933959

师傅好！
徒弟又有事要劳师傅了！
求师傅编写一个循环遍历文件夹提取所有的文件名变成目录的宏
1、提取的目录除了所有的文件名外，文件夹及子文件夹的名称也要
2、文件的格式有：Word、TXT、PDF、Excel
3、点击目录便可打开原文件

师傅、想请你在宏内再添加几个功能：

1、目录上各文件夹内的文件名归纳在各文件夹名的下面单独排列

2、目录上各文件夹内的文件名单独编号

3、同一文件夹内的文件如有同名的文件在目录上用红色标注文件名。

413191246se

139：你这次的问题比较难，我看我是解决不了，建议你单独发帖等待论坛高人吧！

13907933959

413191246se 发表于 2015-10-20 14:10
139：你这次的问题比较难，我看我是解决不了，建议你单独发帖等待论坛高人吧！

好的、有劳师傅了！

师傅好！

再求你编写2个宏

第一个是把以有编号（见附件）多页的WORD文档，拆分成一个个几页的小文档宏，页数要可调，不能改变其格式。不能改变其原有的编号，拆分后的小文档名称后面依次要有编号。

第二个是依以次再把它们合并的宏。

合并的文件不能改变其格式。

谢谢师傅！