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

梁平 · 发表于 2005-1-11 15:31

fjB6vyrS.rar (4.3 KB, 下载次数: 14) 那就麻烦你了。

守柔 · 发表于 2005-1-11 15:49

百思不如一见，很简单：

手动法：查找"^p",替换为"^l";第二步:查找"-*^l"(注意使用通配符),替换为"^p",就OK了.

自动法:还是写在ThisDocument下.当然也可以由上述方法录个宏.

Sub DelRepeat() Dim i As Paragraph, MyRange As Range, n As Long For Each i In Me.Paragraphs If InStr(i.Range, "-") > 1 Then n = InStr(i.Range, "-") Set MyRange = Me.Range(i.Range.Start + n - 1, i.Range.End - 1) MyRange.Delete End If Next End Sub

结果如下:

ZhLMbooA.zip (7.92 KB, 下载次数: 7)

[此贴子已经被作者于2005-1-11 15:51:22编辑过]

梁平 · 发表于 2005-1-11 15:51

真谢了。这都怪我，没有早些将文件传上来，让你费这么多的事。[em04]

cysan · 发表于 2005-1-11 20:36

这样试试看，用查找“－”，替换成四五个空格后，使两列分开后，按住Alt+鼠标左键选中要删除的列。我已试过，可以用，如果文字较多，替换的空格多一些。

[此贴子已经被作者于2005-1-11 20:38:09编辑过]

眼泪无所谓 · 发表于 2005-1-13 11:11

以下是引用守柔在2005-1-11 15:49:00的发言：

百思不如一见，很简单：

手动法：查找"^p",替换为"^l";第二步:查找"-*^l"(注意使用通配符),替换为"^p",就OK了.

这个我好像做不到，帮我看看哪里错了好吗

守柔 · 发表于 2005-1-13 12:17

眼泪无所谓 · 发表于 2005-1-13 13:10

呵呵，我真够笨的，

谢谢版主

cofe2000 · 发表于 2005-1-13 13:32

我也跟着学了一招，谢谢

tangqingfu · 发表于 2006-11-7 22:03

QUOTE:

以下是引用守柔在2005-1-11 15:49:00的发言：

百思不如一见，很简单：

手动法：查找"^p",替换为"^l";第二步:查找"-*^l"(注意使用通配符),替换为"^p",就OK了.

自动法:还是写在ThisDocument下.当然也可以由上述方法录个宏.

Sub DelRepeat()
    Dim i As Paragraph, MyRange As Range, n As Long
    For Each i In Me.Paragraphs
        If InStr(i.Range, "-") > 1 Then
            n = InStr(i.Range, "-")
            Set MyRange = Me.Range(i.Range.Start + n - 1, i.Range.End - 1)
            MyRange.Delete
        End If
    Next
End Sub

结果如下:

谢谢老大！请教为什么不能

查找"-*^p",替换为"^p"?

yuyvtul · 发表于 2006-11-8 11:04

一步：
查找-*^13
替换为^p

		自动登录	找回密码
密码			免费注册