【word】如何将半角标点批量变成全角标点而不改变其他格式?
发布网友
发布时间:2022-04-23 16:58
我来回答
共3个回答
热心网友
时间:2023-10-09 22:34
word全角半角标点符号互相转换的详细方法
http://www.ittribalwo.com/article/1552.html
第一,使用word内置的全半角转换
word中全角的标点符号占两个字节,半角的标点符号占一个字节。
在word2010版提供了包括标点符号、字母、数字综合性的全角半角转换。单击开始——更改大小写命令下面的“半角和全角”,如下图所示:
http://www.ittribalwo.com/upfiles/201203/20120306160157435.gif
但此内置功能有一个局限是,如果一个文档同时有数字、字母和标点符号混合,估计用起来,就没有预期想要的效果。
比如笔者经常需要处理网上的一些资料,往往是夹杂参合一些全角半角的标点符号,为了让整篇文档的标点符号统一为全角或者是统一为半角,就需要进行转换。
很多朋友的第一想法就是使用word内置的功能,查找替换完成。其实这个方法也是很好的,只是相对繁琐一点。所有的标点符号差不多有27种左右,如果每种标点符号都需要处理一次,就需要进行27次查找替换。
本文的最终目的是想介绍一个批量转换标点符号的宏来实现全半角转换。
第二,全角标点符号批量转换为半角标点符号
操作方法如下:
1.在word中,按ALT+F11组合键,打开VBE编辑器,单击插入——模块,在右边的代码编辑窗口复制下面的代码,并关闭VBE。
2.回到word编辑界面,选中需要转换的区域,然后单击开发工具——宏(或者按ALT+F8键),打开“宏”对话框,选中“全角转换为半角”宏,单击“运行”命令,即可一次性将选中区域的全角标点符号批量转换为半角标点符号。
http://www.ittribalwo.com/upfiles/201203/20120306160223546.gif
下面是具体的VBA代码,直接复制粘贴sub 至end sub结束的所有代码。
Sub 全角转换为半角()
'使用前需先选中要替换的区域
Dim fullshape, halfshape As String, i As Integer '定义fullshape(全角)、halfshape(半角)为字符串型,i为整数型
fullshape = ",。?“”‘’!:;"
halfshape = ",.?""''!:;"
For i = 1 To 10 '循环10次
With Selection.Find
.Text = Mid(fullshape, i, 1) 'mid函数:返回文本字符串中从指定位置开始的特定数目的字符,每次取一个标点符号
.Replacement.Text = Mid(halfshape, i, 1) '将用于替换的相应位置的半角标点符号
.Format = False '保留替换前的字符格式
.Execute Replace:=wdReplaceAll '用半角标点替换全角标点
End With
Next i
End Sub
第三,半角标点符号批量转换为全角标点符号
操作方法如下:
1.在word中,按ALT+F11组合键,打开VBE编辑器,单击插入——模块,在右边的代码编辑窗口复制下面的代码,并关闭VBE。
2.回到word,按ALT+F8键,打开“宏”对话框,选中“半角标点符号转换为全角标点符号”宏,单击“运行”命令,即可一次性将所有的半角标点符号转换为全角标点符号。
Sub 半角标点符号转换为全角标点符号()
'中英互译文档中将中文段落中的英文标点符号替换为中文标点符号
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<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 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
热心网友
时间:2023-10-09 22:34
先说你是什么版本吧,如果是07以上更好办
直接全选,切换就可以了
热心网友
时间:2023-10-09 22:35
你好,直接用替换。
【word】如何将半角标点批量变成全角标点而不改变其他格式?
第一,使用word内置的全半角转换 word中全角的标点符号占两个字节,半角的标点符号占一个字节。在word2010版提供了包括标点符号、字母、数字综合性的全角半角转换。单击开始——更改大小写命令下面的“半角和全角”,如下图所示:http://www.ittribalwo.com/upfiles/201203/20120306160157435.gif 但此内置...
如何把doc文件转换成PDF格式?
"1.当然可以,首先要确定自己有一个pdf文档,而且确定目的是需要将pdf文档转换为word格式,然后我们将现有文档通过迅捷pdf转换器软件打开。2.通过选择PDF转换页面功能其中的PDF文件转WORD项目拖入文件。3.接着在迅捷pdf转换器下方按自己的需要是否更改文件名,然而在保存类型中选择*.doc选项。4.全部设置完成点击开始转换,确定自己设置好路径、更改文件名和保存类型即可。5.转换完成之后的word文档同样可以通过迅捷pdf转换器重新转换成一开始的pdf文档。"1.当然可以,首先要确定自己有一个pdf文档,而且确定目的是需要将pdf文档转换为word格式,然后我们将现有文档通过迅捷pdf转换器软件打开。2.通过选择PDF转换页面功能其中的PDF文件转WORD项目拖入文件。3.接着在迅捷pdf转换器下方按自己的需要是...
怎样将word里所有的半角标点符号改为全角的?
方法一:使用Word内置功能 打开需要转换的Word文档。选中需要调整的部分。在“开始”选项卡中点击“Aa”按钮,进入更多大小写选项。在子选项中选择“半角”,即可看到标点符号变为半角状态。方法二:使用输入法切换 在输入状态下,通过点击输入法状态栏上的“全角/半角”切换按钮(通常是圆形和月牙形图标)...
怎样让word里的所有半角标点变成全角
在Word中,可以通过“查找和替换”功能将所有标点符号弄成全角。具体操作为:打开“查找和替换”对话框,选择“高级查找”,在“查找内容”框中输入相应的半角标点符号,然后在“替换为”框中输入对应的全角标点符号,最后点击“全部替换”...
word中半角标点符号怎么变全角的?
第一种:利用word全角、半角功能键进行更改 1、选中要更改的段落如图:图1 2、点击更改大小写功能键如图:3、点击全角即可 图2 第二种:利用替换功能进行更改(适合标点样式较少的段落)1、选中要更改的段落如图:图3 2、编辑→替换→查找内容里输入半角的标点→在替换为输入全角的标点→点击全部替换...
怎样把word文档中的半角标点转变成全角标点
word文档中,将半角标点转变成全角标点的步骤为:1、打开word文档,在菜单栏选择【开始】选项,点击【替换】;2、在弹出的【查找与替换】窗口的【替换】中的【查找内容】处,输入要替换的半角标点,在【替换为】处,输入全角标点,点击【全部替换】;3、半角标点成功转变为全角标点。
如何在Word中将半角标点符号转换为全角符号
具体如下:1. 第一步,我们大家都知道,需要放大符号后,才可以看清半角符号和全角符号的区别。2. 第二步,小编需要将半角的符号转换为全角的符号,先在Word中输入并选中一串半角符号。3. 第三步,成功输入半角符号后,点击工具栏中的“Aa”图标,接着点击弹出窗口中的全角选项,我们就可以看到半角...
怎样把word2003文档中所有半角标点换成全角?
查找(快捷键ctrl+f)弹出【查找和替换】窗口;切换到【替换】标签,点击【高级】按钮,勾选【区分全/半角】;在【查找内容】里面输入半角符号,在【替换为】里面输入全角符号,点击【全部替换】即可。每个符号操作一次就可以全部替换为全角字符。
Word文档如何批量修改半角、全角标点符号
1. 首先第一步打开电脑中需要编辑的Word文档,根据下图所示,选中相关文字。2. 第二步根据下图箭头所指,先点击【开始】选项,接着点击【编辑】图标。3. 第三步在展开的下拉列表中,根据下图箭头所指,点击【查找】。4. 第四步根据下图箭头所指,在【查找内容】方框中输入需要替换的标点符号。5. 第...
word所有标点符号改成全角
要将Word中的所有标点符号改成全角,你可以使用Word的“查找和替换”功能。在“查找内容”框中输入半角标点符号,然后在“替换为”框中输入相应的全角标点符号。但是,由于Word的查找替换功能不直接支持半角和全角的批量转换,通常我们需要借助一些外部工具或者编写VBA宏来实现...
怎么样把所有的标点从半角变成全角 ?
在“替换”中操作。在第一行中用半角符号输入,第二行修改处用全角符号输入。然后点击全部替换。