半角标点符号变为全角如何将一篇WORD文档中的半角中文标点符-查字典问答网
分类选择

来自舒宏先的问题

  半角标点符号变为全角如何将一篇WORD文档中的半角中文标点符号一次性变为全角的?只能替换么?

  半角标点符号变为全角

  如何将一篇WORD文档中的半角中文标点符号一次性变为全角的?

  只能替换么?

1回答
2020-03-17 09:44
我要回答
请先登录
程俊

  1、查找/替换所有标点符号;

  在Word中无法实现一次性查找所有标点符号,所以需要只能一个一个的将半角标点替换为全角标点,英文常用标点符号一共17个,因此最多替17次就可以完成.

  中文标点符号范围(非全部):

  "."","";"":"""!""……""—"""〔""〕""《""》""‘""’""“""”"共17个

  英文标点符号范围(非全部),对应中文标点符号:

  "."","";"":"""!""…""-"""("")""""'""'"""""""""

  最后四个相当于''""

  2、将半角变为全角;

  将所有文档全部转换为全角,Ctrl+A全选文档,选择菜单中的,,选中,即将所选中的半角字符转换为全角.

  再次a-z,A-Z转为半角,需要26*2=52次

  上述两法比较复杂,如果需要一次性转换,可以使用Word中的宏工具来实现,如果需要,给我发信息,我有收集该工具.

  该转换工具代码如下,可以自动添加至Word中:

  *+++++++++++++++++++++++++++++

  '*CreatedByILoveYou_Word!@ExcelHome2005-5-205:30:30

  '仅测试于System:WindowsNTWord:10.0Language:2052

  '^TheCodeCopyIn[ThisDocument-ThisDocument]^'

  '*-----------------------------

  SubReplaceEnglishInterpunctionInChinese()

  '中英互译文档中将中文段落中的英文标点符号替换为中文标点符号

  DimiAsParagraph,ChineseInterpunction()AsVariant,EnglishInterpunction()AsVariant

  DimMyRangeAsRange,NAsByte

  '定义一个中文标点的数组对象

  ChineseInterpunction=Array(".",",",";",":",","!","……","—",","〔","〕","《","》","‘","’","“","”")

  '定义一个英文标点的数组对象

  EnglishInterpunction=Array(".",",",";",":",","!","…","-",","(",")","","'","'","""","""")

  OnErrorResumeNext

  Application.ScreenUpdating=False'关闭屏幕更新

  ForEachiInThisDocument.Paragraphs'遍历文档每个段落

  IfAsc(i.Range)

2020-03-17 09:49:00

最新问答

推荐文章

猜你喜欢

附近的人在看

推荐阅读

拓展阅读

  • 大家都在看
  • 小编推荐
  • 猜你喜欢
  •