题目
半角标点符号变为全角
如何将一篇WORD文档中的半角中文标点符号一次性变为全角的?
只能替换么?
如何将一篇WORD文档中的半角中文标点符号一次性变为全角的?
只能替换么?
提问时间:2020-05-08
答案
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) < 0 Then '如果段落首个字符为汉字(汉字字符的ASC
在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) < 0 Then '如果段落首个字符为汉字(汉字字符的ASC
举一反三
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
1,人们染上烟瘾,最终因吸烟使自己丧命.
最新试题
- 1口算题(分数)
- 2将两只额定电压相同的小灯泡L1 L2串联在右图所示电路中,闭合开关后,发现灯L1较亮 L2较暗,
- 3So carve my words into a safe place in your mind.这句怎麼翻译?
- 4三角形ABC的三个内角分别为∠A、∠B、∠C,那么下列各式中成立的是
- 5求高手翻译整段.
- 624-0.8(x-2.5)=0.5x 解方程,怎么算?
- 7函数y=f(x)是一次函数,且f[f(x)=9x+8,求f(x)
- 8同种物质,密度相同质量大体积大,
- 9甲 乙两个射击手在实弹训练中,甲打50发命中45发,乙打30发只有3发没命中.分别求出他们的命中率,在比较谁
- 10一个两位数、个位上的数字比十位上的数字大4 用个位上的数字除这个两位数 商是3 若设十位上的数为X
热门考点