引号替换问题

cxffxc

如何批量将英文双引号（""），替换为中文双引号（“”）？

tonny

有什么特别的吗？

cxffxc

我有这样一个宏:

Sub 替换引号() With Selection.Find .Forward = True .Text = """" .ClearFormatting .Replacement.Text = ChrW(8220) .Execute Replace:=wdReplaceOne .Forward = True .Text = """" .ClearFormatting .Replacement.Text = ChrW(8221) .Execute Replace:=wdReplaceOne End With End Sub

如果能让其循环起来就行了，大家帮我想个办法，谢谢！

lhpoyrm

马上来！！WC

办公之星

　

　　楼主的问题，相信大多数朋友都遇到过，我也是多年未果。

　　可是如果英文引号是不配的，替换成中文的就容易出现反配的引号了。

　　譬如开始处用”，结束时用“。

竹叶青

是否可以先判断英文引号的个数是否是偶数个，然后给出提示，选择后再进行替换呢？

守柔

看似小问题，里面还真复杂。不是很满意，有空重新修订一下。

Sub Rep() 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:="""", Forward:=True, Format:=True) = True Countx = Countx + 1 Loop 'MsgBox Countx Sh = Countx Mod 2 If Sh <> 0 Then MsgBox "引号不对称！" Exit Sub Else MsgBox "共有" & Countx / 2 & "对引号将被替换！" End If End With For i = 1 To Countx Sh = i Mod 2 If Sh <> 0 Then With ActiveDocument.Content.Find .Text = """" .ClearFormatting .Replacement.Text = "前引号" .Replacement.ClearFormatting .Execute Replace:=wdReplaceOne, Forward:=True 'MsgBox "sh=" & Sh End With Else With ActiveDocument.Content.Find .Text = """" .ClearFormatting .Replacement.Text = "后引号" .Replacement.ClearFormatting .Execute Replace:=wdReplaceOne, Forward:=True 'MsgBox "sh=" & Sh End With End If Next With ActiveDocument.Content.Find .Text = "前引号" .ClearFormatting .Replacement.Text = "“" .Replacement.ClearFormatting .Execute Replace:=wdReplaceAll, Forward:=True End With With ActiveDocument.Content.Find .Text = "后引号" .ClearFormatting .Replacement.Text = "”" .Replacement.ClearFormatting .Execute Replace:=wdReplaceAll, Forward:=True End With 'ActiveDocument.Content.CharacterWidth = wdWidthFullWidth Application.ScreenUpdating = True End Sub

cxffxc

谢谢

wenz

我用OCR转化的文字用替换的方法有点小问题,因为识别率的限制,英文引号不一定成对出现,一直也没有解决,经过大家的讨论,一定对我有帮助.谢谢

如意

上面的各位大虾们，你们怎么总喜欢把事情简单的事情搞得那么复杂呀。

如果让我做，我会进行两次替换就行了，先替换前引号再替换后引号，全文就搞定了。

我觉得这样会简单得多哦。