请教高手：用word替换功能如何实现超过字符数限制

limshanb

pipiludaxian 发表于 2014-11-14 22:49
Sub test() '删除特定句子开头，特定句子结尾的部分
Dim myrange As Range
Selection.HomeKey wdStory

非常抱歉，愚人我在这里致歉了。
4楼的网友细心地观察到我的实例中有错误，我标记的两个段落句尾不一致（一个有引号一个没有），我的问题也是这个错误才导致的，并非word不执行，而是我给出的条件不符合，我把实例需要删除的两个段落结尾修改的一样后就没有问题了。
您给出的这个代码非常好地解决了我的问题，代码比替换更方便，太谢谢您了。
再次致歉，也衷心感谢热心的帮助。

limshanb

周星骋 发表于 2014-11-14 18:08
说你还不相信。
你所提供附件的例子中，
所谓的第一段，可以看成以“对第2章的讨论。”结尾，不含右引号 ...

非常抱歉，愚人我在这里致歉了。
您细心地观察到我的实例中有错误，我标记的两个段落句尾不一致（一个有引号一个没有），我的问题也是这个错误才导致的，并非word不执行，而是我给出的条件不符合，我把实例需要删除的两个段落结尾修改的一样后就
再次致歉，也衷心感谢热心的帮助。

limshanb

kqbt 发表于 2014-11-14 14:44
问题说得有点复杂了。关键在于楼主是如何来进行“查找”操作的？
不知是不是直接将要查找的整段文本复 ...

非常抱歉，愚人我在这里致歉了。
4楼的网友细心地观察到我的实例中有错误，我标记的两个段落句尾不一致（一个有引号一个没有），我的问题也是这个错误才导致的，并非word不执行，而是我给出的条件不符合，我把实例需要删除的两个段落结尾修改的一样后就没有问题了。
再次致歉，也衷心感谢热心的帮助。

limshanb

pipiludaxian 发表于 2014-11-17 11:28
程序对任何细微差别都能判断 你的两端话结尾不完全一样。请你睁大眼睛看！一个字符一个字符地看。

是的是的，我的粗心导致错误，让大家费心了，愚蠢的我在这里诚心诚意地道个歉！
感谢所有网友热心帮助，向所有帮助我的网友道歉！

limshanb

pipiludaxian 发表于 2014-11-17 11:21
我已经无语了。你真的有点气人！！请你好好看看周兄给你的回复。你自己的文档中 蓝色字体 和 绿色字体的结尾 ...

是的是的，我的粗心导致错误，让大家费心了，愚蠢的我在这里诚心诚意地道个歉！
感谢所有网友热心帮助，向所有帮助我的网友道歉！

limshanb

周星骋 发表于 2014-11-15 13:01
看，不是我一个人说吧，第二部分结尾比第一部分结尾多双引号。
楼主还往牛角里钻什么255字符限制。

是的是的，我的粗心导致错误，让大家费心了，愚蠢的我在这里诚心诚意地道个歉！
感谢所有网友热心帮助，向所有帮助我的网友道歉！

周星骋

limshanb 发表于 2014-11-17 11:35
非常抱歉，愚人我在这里致歉了。
4楼的网友细心地观察到我的实例中有错误，我标记的两个段落句尾不一致（ ...

不仅仅是4楼。
而是从2楼到15楼，每个回复你问题的人，都看到区别了。
你仔细回头看看所有人的回复，就会明白。

limshanb

周星骋 发表于 2014-11-18 12:19
不仅仅是4楼。
而是从2楼到15楼，每个回复你问题的人，都看到区别了。
你仔细回头看看所有人的回复，就 ...

在此诚恳地道歉，的确是大家都提到了，我已经向每一位单独发帖道歉，在这里再一次向所有光顾本帖的网友道歉。以后还要仰仗各位老大多多关照。
唉！我认为自己不会出错，所以第一次看到4楼的发言还认为他理解到文字内容上去了，实在是惭愧之极，你们骂死我吧，如果这样可以让大家心情好些的话，我都领了。