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

pipiludaxian

以上程序测试成功。
但是务必保证：每个要删除部分的开头 和 结尾的句子  前后高度一致。
楼主所提供的附件中人并不一致  ：
第一部分结尾是     对第2章的讨论。   
而第二部分结尾是  “对第2章的讨论”。

周星骋

看，不是我一个人说吧，第二部分结尾比第一部分结尾多双引号。
楼主还往牛角里钻什么255字符限制。

limshanb

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

首先谢谢您的热心帮助
     试验了您给出的代码，没有达到我的目的。
     您的这段代码与我实例中的替换得到相同的结果，这个结果就是：它只能删除字符数小于255的段落（在我的实例中删除了蓝色字体的第一段），不能删除超过255字数的文字（在我的实例中绿色字体部分，这部分超过255个字符）代码执行后，这些涂绿色的字体没有删除。而我的目的是要将第一段，蓝色字体和第二段，绿色字体一下子全删掉。

limshanb

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

我是这样替换的：
在查找替换中用使用通配符，查找栏填入：“^13与上面类似，*对第2章的讨论。”（没有引号），替换为栏中填入^13或者干脆什么也不填。执行时，第一段（蓝色字体，少于255个字符）能够查找到，可以实现替换，第二段（我标记为绿色字体）该部分超过255个字符，word不执行查找。

pipiludaxian

我已经无语了。你真的有点气人！！请你好好看看周兄给你的回复。你自己的文档中 蓝色字体 和 绿色字体的结尾一句话 完全一样么？

limshanb

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

谢谢您的提醒，谢谢您想热心
的确是我粗心，两处不一样，所以导致我操作结果不一样，我把两处改的一样后，再操作就没有问题了。
真的感谢您细心的观察，指出了我的问题所在，并不是word有问题，是我粗心操作错误。

limshanb

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

谢谢您的提醒，谢谢您想热心
的确是我粗心，两处不一样，所以导致我操作结果不一样，我把两处改的一样后，再操作就没有问题了。
真的感谢您细心的观察，指出了我的问题所在，并不是word有问题，是我粗心操作错误。

limshanb

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

谢谢您的提醒，谢谢您想热心
的确是我粗心，两处不一样，所以导致我操作结果不一样，我把两处改得一样后，再操作就没有问题了。
真的感谢您细心的观察，指出了我的问题所在，并不是word有问题，是我粗心操作错误。
也顺便对帮助我的网友、大侠们表示歉意，非常抱歉，是我的错误。

pipiludaxian

程序对任何细微差别都能判断 你的两端话结尾不完全一样。请你睁大眼睛看！一个字符一个字符地看。

limshanb

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

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