文档中如何批量替换所有的英文双引号为中文双引号,同时保证引号中的文字内容不变? 如何在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
《将Word英文双引号批量替换中文双引号》
答:具体操作如下:1、按Ctrl+H 2、查找处填:(")(*)(")3、替换处填:“\2”4、勾选“使用通配符”5、点击确定