[求助]又一个查找与替换，希望大家帮我

梁平

近日，我在网上下载了一下资料，在整理时遇到了困难。文章中有大量如下的文字：

aaaaa-aaaaa

ds-ds

abc-abc

中国人民-中国人民

……

也就是说，像这样横线前后都是一样的文字有很多行。我想用查找与替换来除去横线和横线后的文字，不知道怎么解决。各位高手帮帮忙吧！

[em06][em06]

dorado

不知道Word支不支持正则表达式，通过正则表达式，可以很轻松的解决这样的问题！

梁平

什么叫“正则表达式”？

守柔

试一下运行此宏：

'* +++++++++++++++++++++++++++++++++++++++

'* Created By I Love You_Word!@ExcelHome 2005-1-10 15:16:59

'仅测试于System: Windows NT Word: 10.0 Language: 2052

'^The Code CopyIn [ThisDocument-ThisDocument]^'

'* --------------------------------------------------------------------------

Sub ExampleDelRepeat() Dim i As Integer, n As Integer On Error Resume Next Application.ScreenUpdating = False i = Me.Words.Count For n = i To 1 Step -1 If Me.Words(n - 1) = "-" And Me.Words(n - 2).Text = Me.Words(n) Then Me.Words(n).Delete End If Next Application.ScreenUpdating = True End Sub '----------------------

最后将-号替换成空空即可。

liyh67

先将文字转换为表格，删除一列后再转换为文字。

守柔

五楼的思路很不错！

如果对于每个段落中有较多相同类型的词句的话，可能比较麻烦。我在四楼基础上，重新修改了一下，可以加快运算速度，并利用WROD自带功能进行一次性删除。

'* +++++++++++++++++++++++++++++++++++++++

'* Created By I Love You_Word!@ExcelHome 2005-1-11 07:27:48

'仅测试于System: Windows NT Word: 10.0 Language: 2052

'^The Code CopyIn [ThisDocument-ThisDocument]^'

'* --------------------------------------------------------------------------

Sub ExampleBoldRepeat() Dim i As Range On Error Resume Next For Each i In Me.Words If i.Next(wdWord).Text = "-" And i.Next(wdWord, 2).Text = i.Text Then i.Bold = True End If Next End Sub '----------------------
操作要求：先将全文统一为不加粗字体和统一字号，运行此宏后，可以有两种方法：一是右击，选择格式相同的文本；二是利用查找与替换，查找加粗字体或者常规字体，进行适宜性替换。

梁平

出现了“ 编译错误，无效使用me关键字”的提示。[em06]

守柔

以下是引用梁平在2005-1-11 14:42:00的发言： 出现了“ 编译错误，无效使用me关键字”的提示。[em06]

'^The Code CopyIn [ThisDocument-ThisDocument]^'

此代码应写在THISDOCUMENT的代码窗口中。如果写在模块中，可将ME改为Activedocument即可正常运行。

梁平

可是运行了没有动静，不知道为什么？[em04]

守柔

能上传一部分文件吗？正常运行后应该是会加粗字体的。