1.在word中如何把半角双引号替换为全角双引号
我们在编辑文章时,可能会遇到使用英文标点符号的文章。为了规范文件编排,常常需要将此类文章放在Word中进行编辑处理,并把所有的英文标点符号转化为中文标点符号。利用Word的替换功能,可以轻松转换大多数标点符号,但要将英文引号("")替换为中文引号(“”),由于Word分不清英文引号(")哪个是上引号,哪个是下引号,因此替换起来非常麻烦。笔者经过多次实践分析之后,终于找到了分步替换的简单办法。
1.将指定的文章复制到Word中,将文中的任意一个英文引号复制到剪贴板中(编者注:用鼠标选中任意一个英文引号,然后按“Ctrl+C”组合键即可,此步一定不要省略)。
2.打开Word替换对话框,在查找框内输入("*")(英文引号和*号。注意只输入括号内的符号,括号本身不要输入,下同),选中“使用通配符”,然后在替换框内输入(^&^c),C要小写。把光标放在文档的开始处,单击“全部替换”,经过替换之后,我们看到文中所有的英文下引号都由单个(")变为双个("")了,这是为后面Word区分英文上引号和下引号打基础。
3.再次打开Word替换对话框,在查找框内输入(""),在替换框内输入中文下引号(”),把光标放在文档的开始处,单击“全部替换”。
4.在文档中输入一个中文上引号(“),并将其剪切到剪贴板中。打开Word替换对话框,在查找框内输入("),在替换框内输入(^c),单击“全部替换”。至此, 完成了英文引号("")替换为中文引号(“”)的工作。英文单引号替换的原理与双引号替换一样。
【友情提示】如果你经常需要做这项工作,可以用Word的“宏”把整个过程记录下来。具体步骤为:点击菜单栏“工具→宏→录制宏”,在宏名中输入“引号替换”,单击“确定”,然后开始上述替换操作,完成操作后单击“停止”。以后每次要进行引号替换时,只要运行一下“引号替换”宏就可以了。
2.word里如何修改半角的上下引号
为Word全文替换半角引号
1、工具——自动更正选项——自动套用格式——清除“直引号替换为弯引号”复选框——确定。这一步非常重要
2、编辑——替换——勾选“使用通配符”复选框。在“查找内容”框中键入“"(*)"”(注:外层的双引号不输入),“替换为”则键入
““\1”” (注:外层的双引号不输入),单击“全部替换”按钮。
为Wps全文替换半角引号
1、编辑——“替换”对话框。点“高级”按钮,勾选“使用通配符”选项,然后在“查找内容”框中键入“"*"”;在“替换为”框中键入““^&””。实际键入的内容不含外边的引号,且键入的都是半角字符。单击“全部替换”按钮。
2、现在,文档中的所有被引号引起来的地方都加了一对中文双引号,只是原来的直引号还没有去掉。再次调出“替换”对话框,在“查找内容”中输入一个半角引号,“替换为”置空,点“全部替换”,即可一次性删除原来的半角引号,好了,现在文档中的所有直引号就都变为双引号了。
3.求:word文档中,把英文半角引号(" ")全部批量替换成中文全角
Word文档英文引号全部替换为全角中文引号的方法:
所需材料:Word 2007示例。
一、点击Office按钮,接着点击“Word选项”。
二、在“校对”选项内点击“自动更正选项”。
三、“键入时自动套用格式”选项卡下取消勾选“直引号替换为弯引号”,点击“确定”,关闭Word选项。
四、按下Ctrl+H组合键打开替换窗口,在查找内容内输入 "(*)" ,替换为内输入“\1”,勾选“使用通配符”,点击“全部替换”。
五、替换后的效果如下图。
4.半角标点符号变为全角如何将一篇WORD文档中的半角中文标点符号一
1、查找/替换所有标点符号;在Word中无法实现一次性查找所有标点符号,所以需要只能一个一个的将半角标点替换为全角标点,英文常用标点符号一共17个,因此最多替17次就可以完成.中文标点符号范围(非全部):"." "," ";" ":" " "!" "……" "—" " "〔" "〕" "《" "》" "‘" "’" "“" "”"共17个英文标点符号范围(非全部),对应中文标点符号:"." "," ";" ":" " "!" "…" "-" " "(" ")" "" "'" "'" """" """"最后四个相当于' ' " "2、将半角变为全角;将所有文档全部转换为全角,Ctrl+A全选文档,选择菜单中的,,选中,即将所选中的半角字符转换为全角.再次a-z,A-Z转为半角,需要26*2=52次上述两法比较复杂,如果需要一次性转换,可以使用Word中的宏工具来实现,如果需要,给我发信息,我有收集该工具.该转换工具代码如下,可以自动添加至Word中:* +++++++++++++++++++++++++++++'* Created By I Love You_Word!@ExcelHome 2005-5-20 5:30:30'仅测试于System:Windows NT Word:10.0 Language:2052'^The Code CopyIn [ThisDocument-ThisDocument]^''* -----------------------------Sub ReplaceEnglishInterpunctionInChinese()'中英互译文档中将中文段落中的英文标点符号替换为中文标点符号Dim i As Paragraph,ChineseInterpunction() As Variant,EnglishInterpunction() As VariantDim MyRange As Range,N As Byte'定义一个中文标点的数组对象ChineseInterpunction = Array(".",",",";",":",","!","……","—",","〔","〕","《","》","‘","’","“","”")'定义一个英文标点的数组对象EnglishInterpunction = Array(".",",",";",":",","!","…","-",","(",")","","'","'","""","""")On Error Resume NextApplication.ScreenUpdating = False '关闭屏幕更新For Each i In ThisDocument.Paragraphs '遍历文档每个段落If Asc(i.Range) 用户 2017-11-10 举报。
5.急
参考资料:1、查找/替换所有标点符号;在Word中无法实现一次性查找所有标点符号,所以需要只能一个一个的将半角标点替换为全角标点,英文常用标点符号一共17个,因此最多替17次就可以完成。
中文标点符号范围(非全部):"。" "," ";" ":" "?" "!" "……" "—" "~" "〔" "〕" "《" "》" "‘" "’" "“" "”"共17个 英文标点符号范围(非全部),对应中文标点符号:"." "," ";" ":" "?" "!" "…" "-" "~" "(" ")" "<" "="">" "'" "'" """" """" 最后四个相当于' ' " "2、将半角变为全角;将所有文档全部转换为全角,Ctrl+A全选文档,选择菜单中的<格式>,<更改大小写>,选中<全角>,即将所选中的半角字符转换为全角。
再次a-z, A-Z转为半角,需要26*2=52次===================================== 上述两法比较复杂,如果需要一次性转换,可以使用Word中的宏工具来实现,如果需要,给我发信息,我有收集该工具。该转换工具代码如下<转自excelhome论坛,word版块"守柔"版主>,可以自动添加至Word中:* +++++++++++++++++++++++++++++'* Created By I Love You_Word!@ExcelHome 2005-5-20 5:30:30'仅测试于System: Windows NT Word: 10.0 Language: 2052'^The Code CopyIn [ThisDocument-ThisDocument]^''* ----------------------------- Sub ReplaceEnglishInterpunctionInChinese()'中英互译文档中将中文段落中的英文标点符号替换为中文标点符号 Dim i As Paragraph, ChineseInterpunction() As Variant, EnglishInterpunction() As Variant Dim MyRange As Range, N As Byte'定义一个中文标点的数组对象 ChineseInterpunction = Array("。
", ",", ";", ":", "?", "!", "……", "—", "~", "〔", "〕", "《", "》", "‘", "’", "“", "”")'定义一个英文标点的数组对象 EnglishInterpunction = Array(".", ",", ";", ":", "?", "!", "…", "-", "~", "(", ")", "<", "="">", "'", "'", """", """") On Error Resume Next Application.ScreenUpdating = False '关闭屏幕更新 For Each i In ThisDocument.Paragraphs '遍历文档每个段落 If Asc(i.Range) < 0="" then=""><0)'定义一个range对象 for="" n="0" to="" 13="" '进行14次循环="" set="" myrange="i.Range" '定义一个range对象="" with="" myrange.find="" '查找.clearformatting="" '清除查找格式'查找相应的英文标点,替换为对应的中文标点.execute="" findtext:="EnglishInterpunction(N)," replacewith:="ChineseInterpunction(N)," replace:="wdReplaceAll" end="" with="" next="" end="" if="" next="" selection.homekey="" wdstory="" with="" selection.find.clearformatting="" '清除查找格式.text="" ""="" '查找"'如果查找成功并且在中文段落中,分别将其替换为“/”="" while="" .execute="" if="" asc(selection.paragraphs(1).range)="">0)'定义一个range对象>< 0="" then="" selection.text="“" if="" .execute="" and="" asc(selection.paragraphs(1).range)="">< 0="" then="" selection.text="”" wend="" end="" with="" selection.homekey="" wdstory="" with="" selection.find.clearformatting="" '清除查找格式.text="'" '查找'="" while="" .execute'如果查找成功并且在中文段落中,分别将其替换为‘/’="" if="" asc(selection.paragraphs(1).range)="">< 0="" then="" selection.text="'" if="" .execute="" and="" asc(selection.paragraphs(1).range)="">< 0="" then="" selection.text="'" wend="" end="" with'恢复屏幕更新="" application.screenupdating="True" end="" sub'----------------------="" sub="" replaceinstorychinese()'全中文段落英文标点符号替换为中文标点符号="" dim="" i="" as="" paragraph,="" chineseinterpunction()="" as="" variant,="" englishinterpunction()="" as="" variant="" dim="" n="" as="" byte'定义一个中文标点的数组对象="" chineseinterpunction="Array("。"," ",",="" ";",="" ":",="" "?",="" "!",="" "……",="" "—",="" "~",="" "〔",="" "〕",="" "《",="" "》",="" "‘",="" "’",="" "“",="" "”")'定义一个英文标点的数组对象="" englishinterpunction="Array("."," ",",="" ";",="" ":",="" "?",="" "!",="" "…",="" "-",="" "~",="" "(",="" ")",=""><", "="">", "'", "'", """", """") On Error Resume Next Application.ScreenUpdating = False '关闭屏幕更新 With ThisDocument.Content.Find For N = 0 To 13 '进行14次循环.ClearFormatting '清除查找格式'查找相应的英文标点,替换为对应的中文标点.Execute findtext:=EnglishInterpunction(N), replacewith:=ChineseInterpunction(N), Replace:=wdReplaceAll Next End With Selection.HomeKey wdStory '移到文档首 With Selection.Find.ClearFormatting '清除查找格式.Text = """" '查找"'如果查找成功并且在中文段落中,分别将其替换为“/” While .Execute: Selection.Text = "“".Execute: Selection.Text = "”" Wend End With Selection.HomeKey wdStory With Selection.Find.ClearFormatting '清除查找格式.Text = "'" '查找''如果查找成功并且在中文段落中,分别将其替换为‘/’ While .Execute: Selection.Text = "'".Execute: Selection.Text = "'。
转载请注明出处51数据库 » word引号半角改全角代码dim
",>",>转自excelhome论坛,word版块"守柔"版主>全角>更改大小写>格式>">