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

limshanb

我要实现这样的目的：从论坛复制下来的文字，要选择性地删除以某种特征字符开头和结尾的大段大段文字，这些文字段落有的超过255个字符，当超过255个字符时word就不能操作，有没有实现这个功能的方法？
如果处理量不大完全可以手工操作，对于有数百页上千页的文档，我想到了用替换的方法来实现，下面给出一个实例：

kqbt

针对你提供的实例：
查找内容：^13与上面类似，*“对第2章的讨论”。^13
注意：√ 使用通配符

limshanb

首先感谢您的回复。
    我就是应用了通配符啊，我的问题是，这样的搜索只对搜索对象在255个字符数以下才有效，如果该段落字符数超过255限制，word就不执行搜索，我现在是想得到一个方法可以突破word的这个限制，用宏代码也可以，您有这样的代码吗？先谢谢。

周星骋

楼主要解决的是
对第2章的讨论。
与
对第2章的讨论”。
句号前有无右双引号的问题，并不是Word查找存不存在255个字数限制的问题。

limshanb

周星骋 发表于 2014-11-14 12:10
楼主要解决的是
对第2章的讨论。
与

不是这样的，我就是要突破word对255个字符限制的搜索，多次试验证明，word搜索内容是限制在255个字符以内的，超过了不执行，我的最终目的是要在长文档中删除以某某字符开头，再以某某字符结尾的，中间有大量字符的大段大段的内容，如果有这样的代码更好。
至于所用实例的内容只是随便找来的，与内容无关，哪怕所有字符都用一个随便的字符替代也无妨，重点是讨论这种方法。

kqbt

“word搜索内容是限制在255个字符以内的”
255个字符限制，应该是仅仅针对“查找内容”栏中而言的，而不是指文档中所查找的目标字符串长度。
如果你复制一段长度超过255个连续字符的字符串粘贴到“查找内容”栏中，你会发现实际保留的只是前面的255个连续字符。

limshanb

kqbt 发表于 2014-11-14 12:56
“word搜索内容是限制在255个字符以内的”
255个字符限制，应该是仅仅针对“查找内容”栏中而言的，而不是 ...

谢谢回复。
    并非像您说的那样“255个字符限制，应该是仅仅针对“查找内容”栏中而言的，而不是指文档中所查找的目标字符串长度。”
    实际情况是：无论查找栏还是替换栏，都有255个字符数限制。在查找栏中超过255后就无法再键入任何字符。在word内部程序执行时，word不会对超过255字符的对象做出反应。我上面给出的实例已经有说明，实例中第二段符合查找条件的内容，由于该段落字符数超过限制，word根本就不执行，你点击查找或替换按钮，word无动于衷，没有任何反应，也有的时候word会稍长一点时间在后台做搜索动作，最后没有任何选中或替换动作。
    我想要达到这个目的，也可以通过代码来实现，但是我的水平太差，不会编码。

kqbt

limshanb 发表于 2014-11-14 14:23
谢谢回复。
    并非像您说的那样“255个字符限制，应该是仅仅针对“查找内容”栏中而言的，而不是指文档 ...

问题说得有点复杂了。关键在于楼主是如何来进行“查找”操作的？
不知是不是直接将要查找的整段文本复制或者录入到“查找内容”栏中？如果是这样，那就存在上面说的255个字符限制的问题；但是话说回来这样的查找意义似乎并不大。
另外，从正确使用“通配符”的角度来说，“查找和替换”就不存在255个字符限制的问题啊！

周星骋

limshanb 发表于 2014-11-14 14:23
谢谢回复。
    并非像您说的那样“255个字符限制，应该是仅仅针对“查找内容”栏中而言的，而不是指文档 ...

说你还不相信。
你所提供附件的例子中，
所谓的第一段，可以看成以“对第2章的讨论。”结尾，不含右引号。
所谓的第二段，只有“对第2章的讨论”。”，其中有右引号。
自己仔细检查了再说。

pipiludaxian

Sub test() '删除特定句子开头，特定句子结尾的部分
Dim myrange As Range
Selection.HomeKey wdStory
tt:
With Selection.Find
        .ClearFormatting
        .Text = "与上面类似，"
        .Forward = True
        .Wrap = wdFindStop
    Do While .Execute
        With Selection
             mya = Selection.Start
             .Collapse wdcollapse
             Debug.Print mya
             GoTo kk
        End With
    Loop
End With
kk:
With Selection.Find
    .ClearFormatting
    .Text = "对第2章的讨论。"
    .Forward = True
    .Wrap = wdFindStop
    Do While .Execute
         myb = Selection.End
         Selection.Collapse wdcollapse
         Debug.Print myb
         Set myrange = ActiveDocument.Range(mya, myb)
         myrange.Delete
         GoTo tt
     Loop
End With
End Sub