半角标点符号变为全角
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 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) '定义一个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) If .Execute And Asc(Selection.Paragraphs(1).Range) Wend End With Selection.HomeKey wdStory With Selection.Find .ClearFormatting '清除查找格式 .Text = "'" '查找' While .Execute '如果查找成功并且在中文段落中,分别将其替换为‘/’ If Asc(Selection.Paragraphs(1).Range) If .Execute And Asc(Selection.Paragraphs(1).Range) 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 = "'" Wend End With '恢复屏幕更新 Application.ScreenUpdating = True End Sub'---------------------- Sub ReplaceChineseInterpunctionInEnglish()'全中文标点符号替换为英文标点符号 Dim ChineseInterpunction() As Variant, EnglishInterpunction() As Variant, N As Byte '定义一个中文标点的数...
WORD使用,怎样能一次性把文档中的所有半角标点符号改成全角?
word文档中,将半角标点转变成全角标点的步骤为:1、打开word文档,在菜单栏选择【开始】选项,点击【替换】;2、在弹出的【查找与替换】窗口的【替换】中的【查找内容】处,输入要替换的半角标点,在【替换为】处,输入全角标点,点击【全部替换】;3、半角标点成功转变为全角标点。
word 只改数字为半角,标点为全角。
可以的,直接使用查找和替换功能就好。
ctrl+f打开“查找和替换”对话框,选择“替换”选项卡点击下面的高级按钮,选中区分全角和半角选项在查找的内容中输入半角状态的标点符号在替换的内容中输入全角状态的标点符号点击全部替换。
一片文章中标点符号的种类不多,多来几次就好了。
在word中如何把半角双引号替换为全角双引号?
我们在编辑文章时,可能会遇到使用英文标点符号的文章。
为了规范文件编排,常常需要将此类文章放在Word中进行编辑处理,并把所有的英文标点符号转化为中文标点符号。
利用Word的替换功能,可以轻松转换大多数标点符号,但要将英文引号("")替换为中文引号(“”),由于Word分不清英文引号(")哪个是上引号,哪个是下引号,因此替换起来非常麻烦。
笔者经过多次实践分析之后,终于找到了分步替换的简单办法。
1.将指定的文章复制到Word中,将文中的任意一个英文引号复制到剪贴板中(编者注:用鼠标选中任意一个英文引号,然后按“Ctrl+C”组合键即可,此步一定不要省略)。
2.打开Word替换对话框,在查找框内输入("*")(英文引号和*号。
注意只输入括号内的符号,括号本身不要输入,下同),选中“使用通配符”,然后在替换框内输入(^&^c),C要小写。
把光标放在文档的开始处,单击“全部替换”,经过替换之后,我们看到文中所有的英文下引号都由单个(")变为双个("")了,这是为后面Word区分英文上引号和下引号打基础。
3.再次打开Word替换对话框,在查找框内输入(""),在替换框内输入中文下引号(”),把光标放在文档的开始处,单击“全部替换”。
4.在文档中输入一个中文上引号(“),并将其剪切到剪贴板中。
打开Word替换对话框,在查找框内输入("),在替换框内输入(^c),单击“全部替换”。
至此, 完成了英文引号("")替换为中文引号(“”)的工作。
英文单引号替换的原理与双引号替换一样。
【友情提示】如果你经常需要做这项工作,可以用Word的“宏”把整个过程记录下来。
具体步骤为:点击菜单栏“工具→宏→录制宏”,在宏名中输入“引号替换”,单击“确定”,然后开始上述替换操作,完成操作后单击“停止”。
以后每次要进行引号替换时,只要运行一下“引号替换”宏就可以了。
转载请注明出处51数据库 » 将word中标点半角变全角