word2010半角转全角

㈠ word文档中文标点全角半角转换

word文档中，将半角标点转变成全角标点的步骤为：

1、打开word文档，在菜单回栏选择【开始】选项答，点击【替换】；

3、半角标点成功转变为全角标点。

㈡ 如何实现word2010中所有半角，全角符号互换

方法/步骤

许多职场人员在使用word进行文档编辑时，总会遇到标点符号的问题。其中之回一就是文档中答半角符号与全角符号混用，致使文档规范度不够。如何进行半角符号与全角符号的互换呢？是一次性全部符号互换，而非某一个符号的互换。
这里告诉大家一个非常简便的方法。
步骤一：选择所要替换的文字区域。如果文档全部内容里半角、全角符号都互换的话，用CTRL+A全选。

步骤二：点击“开始”标签中左侧的“Aa”项。点击后，里面有很多有用的小功能，实现大用途噢。

步骤三：如果要把半角换为全角，就点击“全角”；反之，则点击“半角”。
是不是非常简单，赶紧体会一下吧。

看一下，替换后的效果哦。第一张全部标点符号为全角的，第二张标点符号全部为半角。
你发现不同点了吗？全角的标点占空间多，以至于第二行多了一个字。

㈢ 如何将WORD中的很多全角文字改成半角文字…急用！谢谢前辈们…

如何将WORD中的很多全角文字改成半角文字

一、word 2007 中的改法：

1、打开word，选中文档中需回要改写的答内容，在“开始”菜单“字体”设置框中，单击“Aa”。

三、通过”格式刷“转换：方法是先手动把第一行的字符全变成半角字符，然后利用Word里面的格式刷把其他刷一下。

㈣ 怎样把word中的半角标点改为全角

word文档中，将半角标点转变成全角标点的步骤为：
1、打开word文档，在菜单栏选择【开始】选项，点击【替换】；
2、在弹出的【查找与替换】窗口的【替换】中的【查找内容】处，输入要替换的半角标点，在【替换为】处，输入全角标点，点击【全部替换】；
3、半角标点成功转变为全角标点。

㈤ 怎样把一篇Word文档里的半角全部转换成全角

这得用比如，要跟。分开来制作：

菜单上面编辑-查找和替换，在查找内容上输入你要转的比如说是半角“,”替换那输入全角的“，”，再按全部替换即可。

㈥ word 中如何把半角的标点换成全角

不用一个一个的改，但是要一个一个地换。在“编辑”里找“替换”，在“查找内容”回里输入半角标点（如，）答，在“替换为”里输入相应的全角标点（如，），点击“全部替换”，就把所有的半角“，”换为全角“，”了，然后再替换下一种标点。

㈦ 急！！！Word文章标点符号半角不能转换全角

参考资料：

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 ()
'中英互译文档中将中文段落中的英文标点符号替换为中文标点符号
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
'----------------------
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 ()
'全中文标点符号替换为英文标点符号
Dim ChineseInterpunction() As Variant, EnglishInterpunction() As Variant, N As Byte
'定义一个中文标点的数组对象
ChineseInterpunction = Array("。", "，", "；", "：", "？", "！", "……", "—", "～", "〔", "〕", "《", "》", "‘", "’", "“", "”")
'定义一个英文标点的数组对象
EnglishInterpunction = Array(".", ",", ";", ":", "?", "!", "…", "-", "~", "(", ")", "<", ">", "'", "'", """", """")
On Error Resume Next
MsgBox UBound(EnglishInterpunction)
Application.ScreenUpdating = False '关闭屏幕更新
With ThisDocument.Content.Find
For N = 0 To 16 '进行14次循环
.ClearFormatting '清除查找格式
'查找相应的英文标点,替换为对应的中文标点
.Execute findtext:=ChineseInterpunction(N), replacewith:=EnglishInterpunction(N), Replace:=wdReplaceAll
Next
End With
'恢复屏幕更新
Application.ScreenUpdating = True
End Sub
'----------------------

㈧ 如何在word中转换全角与半角空格

操作步骤；
1、单击开始----查找按钮；

2、弹出查找和替换对话框，在查找内容输入框中输入一个半角空格；

3、切换到替换选项卡，在替换为输入框中输入：一个全角空格，单击全部替换即可。
注：按Ctrl+空格进行全角、半角切换。

㈨ 在word中怎样快速实现半角全角转换

好像不行，半角和全角没有关系。a
和a实际是两个不同的字符。不是字体问题。也不是格式问题。您只有批量一个字符一个字符的替换，最多36次。比如全部替换a为a，然后全部替换，b为b
，以此类推。

㈩ Word文档中数字将半角数字转换为全角

输入法可以切换半角全角的输入。已经输入的半角数字，可以用替换的方法进行转换。