请教:如何重复替换某串?

ying

要求将串"x>"替换成">",但是注意到,替换之后有可能产生新的"x>"(如:"xxxxxxxxx>"),如何做一个循环,使得反复替换直到整个文本中不在出现"x>",实际上是把>之前的x都去掉,其他地方的x不做处理.先谢谢了.

ying

呵呵.我搜索到守柔斑竹的关于替换英文引号的贴子,虽然看不是太懂,但是还是知道哪是循环.改了一下居然能实现我的要求,程序如下.守柔斑竹能将它优化一下,并解释一下每句的含义吗?谢谢了.

Sub Macro1() ' Dim Countx As Integer, i As Integer, Sh As Byte Countx = 0 On Error Resume Next Application.ScreenUpdating = False With ActiveDocument.Content.Find .ClearFormatting Do While .Execute(FindText:="x>", Forward:=True, Format:=True) = True .Text = "x>" .ClearFormatting .Replacement.Text = ">" .Replacement.ClearFormatting .Execute Replace:=wdReplaceAll, Forward:=True Loop End With Application.ScreenUpdating = True End Sub

[此贴子已经被作者于2004-12-21 18:04:00编辑过]

守柔

以下是引用ying在2004-12-21 16:29:00的发言：

要求将串"x>"替换成">",但是注意到,替换之后有可能产生新的"x>"(如:"xxxxxxxxx>"),如何做一个循环,使得反复替换直到整个文本中不在出现"x>",实际上是把>之前的x都去掉,其他地方的x不做处理.先谢谢了.

谢谢ying的搜索。

只是你说的问题，应该不需要循环来解决，能不能先将代表性的文档上传一个，我先甄别一下，再作定论不迟，OK？

ying

word文挡如下所示,只去掉>号前的一串连续的x,x的个数是不定的.

Hsdjwe bwdfhvxgsGhegwdgbwegfujbasmd;dewlnmxxjoiwjbxuwhxwdrfffxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx>

Hsdjwe bwdfhvxgsGhegwdgbwegfujbasmd;dewlnmxxjoiwjbxuwhxwfffxxxxxxxxxxxxxxxxxxxxxxxxxxx>

Hsdjwe bwdfhvxgsGhegwdgbwegfujbasmd;dewlnmxxjoiwjbxuwhxffffwffffxxxxxxxxxxxxxxxxxxxxxxx>

Hsdjwe bwdfhvxgsGhegwdgbwegfujbasmd;dewlnmxxjoiwjbxuwhxwfffffffxxxxxxxxxxx>

Hsdjwe bwdfhvxgsGhegwdgbwegfujbasmd;dewlnmxxjoiwjbxuwhxwfffxxxxxxxxxxxxxx>

谢谢了.有什么快捷的方法吗?

[此贴子已经被作者于2004-12-21 18:34:52编辑过]

守柔

以下是引用ying在2004-12-21 18:32:00的发言：

word文挡如下所示,只去掉>号前的一串连续的x,x的个数是不定的.

Hsdjwe bwdfhvxgsGhegwdgbwegfujbasmd;dewlnmxxjoiwjbxuwhxwdrfffxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx>

Hsdjwe bwdfhvxgsGhegwdgbwegfujbasmd;dewlnmxxjoiwjbxuwhxwfffxxxxxxxxxxxxxxxxxxxxxxxxxxx>

Hsdjwe bwdfhvxgsGhegwdgbwegfujbasmd;dewlnmxxjoiwjbxuwhxffffwffffxxxxxxxxxxxxxxxxxxxxxxx>

Hsdjwe bwdfhvxgsGhegwdgbwegfujbasmd;dewlnmxxjoiwjbxuwhxwfffffffxxxxxxxxxxx>

Hsdjwe bwdfhvxgsGhegwdgbwegfujbasmd;dewlnmxxjoiwjbxuwhxwfffxxxxxxxxxxxxxx>

谢谢了.有什么快捷的方法吗?

我觉得如果不用VBA来解决，可以用高级替换/通配符情况下解决，但你的例子我觉得有些失当；另外如果用VBA来解决，必须按照实际情况分析解决。

下图仅参：

ying

我试了一下,不对呀.要求是,处理后的结果是:

Hsdjwe bwdfhvxgsGhegwdgbwegfujbasmd;dewlnmxxjoiwjbxuwhxwdrfff>

Hsdjwe bwdfhvxgsGhegwdgbwegfujbasmd;dewlnmxxjoiwjbxuwhxwfff>

Hsdjwe bwdfhvxgsGhegwdgbwegfujbasmd;dewlnmxxjoiwjbxuwhxffffwffff>

Hsdjwe bwdfhvxgsGhegwdgbwegfujbasmd;dewlnmxxjoiwjbxuwhxwfffffff>

Hsdjwe bwdfhvxgsGhegwdgbwegfujbasmd;dewlnmxxjoiwjbxuwhxwfff>

上面的结果只剩下:

Hsdjwe bwdfhv>

Hsdjwe bwdfhv>

Hsdjwe bwdfhv>

Hsdjwe bwdfhv>

Hsdjwe bwdfhv>

ying

谢谢斑竹.在你的提示下,找到了快捷的方法:

文本: x@\>

替换: >

另外问一下: 图片是怎么贴上的?我怎么贴不上呀.

守柔

以下是引用ying在2004-12-22 10:11:00的发言：

谢谢斑竹.在你的提示下,找到了快捷的方法:

文本: x@\>

替换: >

另外问一下: 图片是怎么贴上的?我怎么贴不上呀.

谢谢Ying，我将分享你的快乐！

关于贴图，是以BMP，JEPG，JPG等方式的图片文件上传的，关于如何上传，请搜索一下本论坛中上传的贴子。记住，学会正确使用帮助，是成为高手之道。

最简单的，你在WORD中，如比出现了了个查找对话框，你从中输入了内容，然后印屏幕（ALT+print screen sysrq-键盘中上方)，打开画图板程序，粘贴后，另存为（保存）为16色图片（BMP）可以适当减少文件大小，然后在回复或者引用或者编辑情况下上传该图片。

ying

谢谢.我试试.

C:\Documents and Settings\www\My Documents\My Pictures\\24.gif

ying

呵呵.行了.前面它要网址给我要蒙了.实际只要给出路径就可以了.

[此贴子已经被作者于2004-12-22 11:54:29编辑过]