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

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

word 只改数字为半角,标点为全角。

并且是被选择状态，这时候你可以把它们统一为半角了，其他文字不会受到影响，全部查找，找到的全部是全角数字，勾选“使用通配符”，统一为全角：查找：[0123456789]（这里的数字是全角，方括号为半角）勾选“突出显示所有在该范围找到的项目”，第二步，不用说了。

关键来了这个问题很简单，分两步。

第一步，选择全文...

半角标点符号变为全角

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文章中的标点，是半角还是全角，只要看它占用多大字符，占用一个字符，就是全角，占用半个字符就是半角。

以上文字，标点用是全角，这一句就是用的半角. 中文文档，一般都用全角标点，如果文档用半角，就不符合中文规范，可以通过word 的查找、替换，一下子改正。

...

word中,输入中文标点总是全角,无法输入半角

我们在编辑文章时，可能会遇到使用英文标点符号的文章。

为了规范文件编排，常常需要将此类文章放在Word中进行编辑处理，并把所有的英文标点符号转化为中文标点符号。

利用Word的替换功能，可以轻松转换大多数标点符号，但要将英文引号（＂＂）替换为中文引号（“”），由于Word分不清英文引号（＂）哪个是上引号，哪个是下引号，因此替换起来非常麻烦。

笔者经过多次实践分析之后，终于找到了分步替换的简单办法。

1.将指定的文章复制到Word中，将文中的任意一个英文引号复制到剪贴板中（编者注：用鼠标选中任意一个英文引号，然后按“Ctrl+C”组合键即可，此步一定不要省略）。

2.打开Word替换对话框，在查找框内输入（＂*＂）（英文引号和*号。

注意只输入括号内的符号，括号本身不要输入，下同），选中“使用通配符”，然后在替换框内输入（^&^c）,C要小写。

把光标放在文档的开始处，单击“全部替换”，经过替换之后，我们看到文中所有的英文下引号都由单个（＂）变为双个（＂＂）了，这是为后面Word区分英文上引号和下引号打基础。

3.再次打开Word替换对话框，在查找框内输入（＂＂），在替换框内输入中文下引号（”），把光标放在文档的开始处，单击“全部替换”。

4.在文档中输入一个中文上引号（“），并将其剪切到剪贴板中。

打开Word替换对话框，在查找框内输入（＂），在替换框内输入（^c），单击“全部替换”。

至此， 完成了英文引号（＂＂）替换为中文引号（“”）的工作。

英文单引号替换的原理与双引号替换一样。

【友情提示】如果你经常需要做这项工作，可以用Word的“宏”把整个过程记录下来。

具体步骤为：点击菜单栏“工具→宏→录制宏”，在宏名中输入“引号替换”，单击“确定”，然后开始上述替换操作，完成操作后单击“停止”。

以后每次要进行引号替换时，只要运行一下“引号替换”宏就可以了。