如何在word里面,把所有的英文双引号,替换成中文双引号
单纯ctrl+h后替换是无法变成中文双引号的自己回答自己吧。ctrl+h,更多→格式(字体)。将英文格式换成Arial。(因为我的word里英文默认格式是Arial,具体...
单纯ctrl+h后替换是无法变成中文双引号的
自己回答自己吧。
ctrl+h,更多→格式(字体)。
将英文格式换成Arial。(因为我的word里英文默认格式是Arial,具体情况具体分析)
再去替换英文双引号,就能变成中文双引号了 展开
自己回答自己吧。
ctrl+h,更多→格式(字体)。
将英文格式换成Arial。(因为我的word里英文默认格式是Arial,具体情况具体分析)
再去替换英文双引号,就能变成中文双引号了 展开
6个回答
博思aippt
2024-07-20 广告
2024-07-20 广告
博思AIPPT是基于ai制作PPT的智能在线工具,它提供了4种AI制作PPT的方式,包括AI生成大纲、AI直接生成PPT、文本生成PPT、AI提炼word文档生成PPT,一站式集成多种AI生成PPT的方式,可满足办公用户的不同需求和使用场景...
点击进入详情页
本回答由博思aippt提供
展开全部
如果是完全配对的引号,很容易解决:
1、工具-自动更正选项-镶入时自动套用格式-直引号替换为弯引号,去掉方框里的勾,否则在自动替换后必然全是右引号;
2、使用通配符,查找栏输入 [“”],中括号里是汉字双引号对,中括号连同双引号一起输入,然后全部替换为英文双引号,即直引号;
3、查找栏输入 "(*)",即两个英文双引号,里面是小括号(必须是半角)加星号,全部替换为:“\1”,即汉字双引号里面反斜杠和数字1,搞定。
注意:执行前光标必须在引号对之外,否则替换错误; .Wrap = wdFindStop‘表示光标前的引号不替换; .Wrap = wdFindContinue‘表示替换全文引号。
如果是不完全配对的引号,再用这招就会频繁出错了。例如引用长段讲话,引号内分段,段首有引号,段尾却不一定有,引号不是成对出现的,处理就比较麻烦。
给你一段宏代码,用故意弄出来的多篇复杂引号文章测试过多次,全部正确替换。代码不长,但运行时稍微有点卡,可能会耽搁几秒时间,word会假死无反应。
注意:执行前光标必须在错误引号之前,光标前的引号不会被替换,执行完成后光标无法在原处停留;
默认循环99次,如果文档太长,超过了99个段落,则99后面的段落不完全成对的引号配对可能不正确,可自己修改循环次数,或继续执行。循环次数越多,卡顿越严重。
注意,此段代码只能单独使用,如镶嵌在其它宏代码中就会出错。
Sub 引号()
Application.ScreenUpdating = False
For N = 1 To 99
With Selection.Find
.Text = "[" & ChrW(8220) & ChrW(8221) & "]"
.Replacement.Text = """"
.Forward = True
.Wrap = wdFindStop
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = """(*)"""
.Replacement.Text = ChrW(8220) & "\1" & ChrW(8221)
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.MoveDown unit:=wdParagraph
Next N
End Sub
1、工具-自动更正选项-镶入时自动套用格式-直引号替换为弯引号,去掉方框里的勾,否则在自动替换后必然全是右引号;
2、使用通配符,查找栏输入 [“”],中括号里是汉字双引号对,中括号连同双引号一起输入,然后全部替换为英文双引号,即直引号;
3、查找栏输入 "(*)",即两个英文双引号,里面是小括号(必须是半角)加星号,全部替换为:“\1”,即汉字双引号里面反斜杠和数字1,搞定。
注意:执行前光标必须在引号对之外,否则替换错误; .Wrap = wdFindStop‘表示光标前的引号不替换; .Wrap = wdFindContinue‘表示替换全文引号。
如果是不完全配对的引号,再用这招就会频繁出错了。例如引用长段讲话,引号内分段,段首有引号,段尾却不一定有,引号不是成对出现的,处理就比较麻烦。
给你一段宏代码,用故意弄出来的多篇复杂引号文章测试过多次,全部正确替换。代码不长,但运行时稍微有点卡,可能会耽搁几秒时间,word会假死无反应。
注意:执行前光标必须在错误引号之前,光标前的引号不会被替换,执行完成后光标无法在原处停留;
默认循环99次,如果文档太长,超过了99个段落,则99后面的段落不完全成对的引号配对可能不正确,可自己修改循环次数,或继续执行。循环次数越多,卡顿越严重。
注意,此段代码只能单独使用,如镶嵌在其它宏代码中就会出错。
Sub 引号()
Application.ScreenUpdating = False
For N = 1 To 99
With Selection.Find
.Text = "[" & ChrW(8220) & ChrW(8221) & "]"
.Replacement.Text = """"
.Forward = True
.Wrap = wdFindStop
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = """(*)"""
.Replacement.Text = ChrW(8220) & "\1" & ChrW(8221)
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.MoveDown unit:=wdParagraph
Next N
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
用以下操作:
1、关闭“直引号替换为弯引号”(2010):文件--选项--校对--自动更正选项,切换到“键入时自动套用格式”选项卡,取消“直引号替换为弯引号”选项;
2、用替换功能进行替换:
查找内容:"(*)" (需要在半角状态下输入)
选中使用通配符
替换为:“\1” (双引号在全角状态下输入)
全部替换。
1、关闭“直引号替换为弯引号”(2010):文件--选项--校对--自动更正选项,切换到“键入时自动套用格式”选项卡,取消“直引号替换为弯引号”选项;
2、用替换功能进行替换:
查找内容:"(*)" (需要在半角状态下输入)
选中使用通配符
替换为:“\1” (双引号在全角状态下输入)
全部替换。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
选中所有需要更改的文档范围,连字带标点全选中,把字体改为宋体就行了。(单选中那个英文标点看那个字体是西文,把西文改成宋体,或者你需要的其它字体就行了)
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询