文档中如何批量替换所有的英文双引号为中文双引号，同时保证引号中的文字内容不变？

用WORD怎么在批量替换某个文字的时候，让双引号里的内容保持原样不变？~

能！
幻想乡的思路不错，就是限定格式替换，重点在于如何区分是否要替换的内容。
具体方法：
先找到引号中的【我】，当变量处理。
方法一：
1、通配符查找(”*)我(*“)替换为\1∷\2，其中∷只是一个很少用到的特殊符号，当然也可以选用其他特殊符号，甚至可以改成【你你你你你】这样重复的汉字，只要不用【我】和【他】就行，总之就是有个特别的属性，不会混淆，避免出错；
2、把其余的【我】全部替换成【他】；
3、再把∷替换成【我】
方法二：
1、先把全文设定成统一格式；
2、通配符查找(”*)我(*“)，限定不同的格式，替换为^&，即保持原文内容不变，只改格式；
3、限定用事先统一的格式，把引号外的【我】全部替换成【他】；
4、改回格式。
注意：小括号必须是半角！

1、在输入中文时，默认为宋体，其引号如示意图。

2、但在输入英文时，默认为Calibri(西文正文)，其引号是这样的。

3、首先按快捷键Ctrl+F，弹出查找可替换菜单。在查找内容栏填写[""]，勾选阅读突出显示-全部突出显示。

4、接着勾选使用通配符。

5、然后点击“在以下项中查找”右边的小三角，选择“主文档”。

6、现在所有的双引号都选中，最好在字体栏选择“宋体”即可。

下文分为3部分：固定字英文引号如何替换，wps中如何操作替换，msword中如何操作替换。

更新至：2022年1月10日，当前wps版本可以直接进行替换。

即查找："(*)"

替换：“\1”

---

对于固定文字的引文引号按照下文操作

步骤一、打开查找替换（ctrl+h），点击更多，勾选使用通配符

查找："(革命历史小说)"

替换：“\1”

注意：查找种的是引文引号，替换中的是中文引号，如果在窗口看不出来，可以先在文档输入，再复制到查找替换窗口中。

请点击输入图片

步骤二、点击全部替换

就会变成下图的样子

扩展：

()是表达式的意思，\1是把这个括号中的文字原封不动的下来，再在它的两边加中文引号，即可实现目的

---

对于任意文字，且操作环境为wps来说，按照下方步骤操作

如果是替换多个内容，文字不相同，而且根据题主楼下的图片显示，操作软件是wps，那么按照下面的方式进行替换。

如图所示，在wps中，想要替换英文引号

步骤一、

依次点击文件-选项-编辑-取消勾选直引号替换为弯引号

步骤二、

打开查找替换，点击高级搜索，勾选使用通配符

查找："*"

替换：“^&”

点击全部替换

步骤三、

然后取消勾选使用通配符

查找:"

替换：空

全部替换，即可

---

对于微软word来说，按照下文进行操作

如图所示，我们要替换引文引号为中文引号

打开查找替换，勾选使用通配符

查找："(*)"

替换：“\1”

点击全部替换，即可

在WORD中用查找替换功能：

1、首先关闭“直引号替换为弯引号”功能：文件－－选项，打开WORD选项设置窗口，在“校对”页，按“自动更正选项…”，在“键入时自动套用格式”选项卡是，取消“直引号替换为弯引号”勾选，如图：

2、进行替换：按CTRL+H，调出查找替换窗口

查找内容："(*)"         注意：双引号为英文状态下的半角引号

选中使用通配符

替换为：“\1”         注意：双引号为中文状态下的全角引号

全部替换

在EXCEL中，无法使用函数直接查找英文引号。所以我的思路是，先使用CTRL+H，先把所有英文引号替换成别的符号，比如加号，然后再使用SUBSTITUTE进行替换

假如数据在A列

B1

=SUBSTITUTE(SUBSTITUTE(A1,"+","“"),"+","”")

如果取消了“直引号替换为弯引号”前面的勾仍然出错，那大概就是字体问题了。

这个页面看到的雅黑字体就是这样，看起来都是差不多的斜双杠。其实放大了看还是有区别的，前引号上小下大，后引号上大下小。

给你一段 word 宏代码，不考虑“直引号替换为弯引号”前面的勾是否取消。可以用在不太长的文档中，自动处理全文单双引号，跨段的双引号也能正确处理。

注意：本段代码中，英文单引号是不处理的，单引号跨段也不处理。如果是处理太长的文档会比较卡，需要另写代码，只在框选区域内执行。

此外，把代码粘贴到宏编辑器中时，系统可能会把单引号部分的中文单引号换成英文单引号，导致单引号处理出错，需要在编辑器中手动修改几处单引号。在编辑器里代码中有淡绿色文本提示，提示文本可以删除。

 

Sub 引号()

    Application.ScreenUpdating = False

    Selection.WholeStory

    With ActiveDocument.Content.Find

        .Execute FindText:="‘", replacewith:="’", Replace:=wdReplaceAll

        .Execute FindText:=ChrW(8221), replacewith:=ChrW(8220), Replace:=wdReplaceAll' 本行FindText:="‘"中的单引号换成中文前单引号，replacewith:="’"中的单引号换成中文后单引号

    End With

      Dim P&

    With Selection

        P = .Paragraphs.Count

    End With

    Text = ChrW(8220)

        With ActiveDocument.Content.Find

          Do While .Execute(FindText:=Text) = True

          Y = Y + 1

          Loop

        End With

    With Selection.Find

        .Text = "’(*)’"'两处都换成中文后单引号

        .Replacement.Text = "‘\1’"'配对中文单引号

        .MatchWildcards = True

    End With

    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.HomeKey unit:=wdStory

    For N = 1 To P

    Selection.Expand wdParagraph

    With Selection.Find

        .Text = ChrW(8220) & "(*)" & ChrW(8220)

        .Replacement.Text = ChrW(8220) & "\1" & ChrW(8221)

    End With

    Selection.Find.Execute Replace:=wdReplaceAll,Wrap:=wdFindStop

    Selection.MoveDown unit:=wdParagraph

    Next N

    Selection.HomeKey unit:=wdStory

    For S = 1 To Y

    With Selection.Find

        .Text = "[" & ChrW(8220) & ChrW(8221) & "]"

        .Replacement.Text = "^&"

        .Forward = True

        .MatchWildcards = True

    End With

    Selection.Find.Execute

    Selection.Range.CharacterWidth = wdWidthFullWidth

    Next S

    Selection.HomeKey unit:=wdStory

End Sub

只是拿革命历史小说举了个例子，实际引号中内容千奇百怪，文字也有20W字，有没有通用的方法
把中间的文字，换成*

---

文档中如何批量替换所有的英文双引号为中文双引号，同时保证引号中的文字内容不变？视频