VBA 全角转半角
来源:互联网 发布:手机更换软件图标 编辑:程序博客网 时间:2024/06/04 08:53
Option Explicit
Sub BatchReplace()
Dim oDict, strKey
Set oDict = CreateObject("Scripting.Dictionary")
'全角数字转换为半角
oDict.Add "1", "1"
oDict.Add "2", "2"
oDict.Add "3", "3"
oDict.Add "4", "4"
oDict.Add "5", "5"
oDict.Add "6", "6"
oDict.Add "7", "7"
oDict.Add "8", "8"
oDict.Add "9", "9"
oDict.Add "0", "0"
'小写全角转换
oDict.Add "a", "a"
oDict.Add "b", "b"
oDict.Add "c", "c"
oDict.Add "d", "d"
oDict.Add "e", "e"
oDict.Add "f", "f"
oDict.Add "g", "g"
oDict.Add "h", "h"
oDict.Add "i", "i"
oDict.Add "j", "j"
oDict.Add "k", "k"
oDict.Add "l", "l"
oDict.Add "m", "m"
oDict.Add "n", "n"
oDict.Add "o", "o"
oDict.Add "p", "p"
oDict.Add "q", "q"
oDict.Add "r", "r"
oDict.Add "s", "s"
oDict.Add "t", "t"
oDict.Add "u", "u"
oDict.Add "v", "v"
oDict.Add "w", "w"
oDict.Add "x", "x"
oDict.Add "y", "y"
oDict.Add "z", "z"
'大写全角转换
oDict.Add "A", "A"
oDict.Add "B", "B"
oDict.Add "C", "C"
oDict.Add "D", "D"
oDict.Add "E", "E"
oDict.Add "F", "F"
oDict.Add "G", "G"
oDict.Add "H", "H"
oDict.Add "I", "I"
oDict.Add "J", "J"
oDict.Add "K", "K"
oDict.Add "L", "L"
oDict.Add "M", "M"
oDict.Add "N", "N"
oDict.Add "O", "O"
oDict.Add "P", "P"
oDict.Add "Q", "Q"
oDict.Add "R", "R"
oDict.Add "S", "S"
oDict.Add "T", "T"
oDict.Add "U", "U"
oDict.Add "V", "V"
oDict.Add "W", "W"
oDict.Add "X", "X"
oDict.Add "Y", "Y"
oDict.Add "Z", "Z"
'标点符号
oDict.Add ",", ","
oDict.Add ":", ":"
oDict.Add ";", ";"
oDict.Add "(", "("
oDict.Add ")", ")"
oDict.Add "[", "["
oDict.Add "]", "]"
oDict.Add ".", "."
oDict.Add "+", "+"
oDict.Add "%", "%"
oDict.Add "/", "/"
' ......
' 在这里可以根据需要增加更多的替换规则
' ......
For Each strKey In oDict.Keys
Selection.Find.Execute FindText:=strKey, ReplaceWith:=oDict(strKey), Replace:=wdReplaceAll
Selection.StartOf wdStory
Next
MsgBox "完成!"
End Sub
- VBA 全角转半角
- VBA 全角转半角
- 全角转半角 半角转全角
- 全角转半角与半角转全角
- 半角转全角、全角转半角
- 转全角半角
- 半角转全角
- 全角转半角
- 全角转半角函数
- php 全角转半角
- 全角转半角
- 半角全角互转
- 日文全角转半角
- SQL 全角转半角
- 全角转半角
- 全角转半角
- sql 全角转半角
- 标点符号全角转半角
- (转)UNICODE,GBK,UTF-8区别
- hibernate Restrictions用法 MatchMode.ANYWHERE
- Java正则,取反
- [技术]浅议DAS、NAS、SAN三种模式
- 一个简单字符型设备驱动及其测试
- VBA 全角转半角
- 正确使用#include和前置声明(forward declaration)
- delphi - bpl与dll之关系
- ORA-01012: not logged on
- 青蛙的烦恼
- Android NDK 安装配置指南
- 找个心心相印的人好难啊!
- java 学习笔记
- “画”Android界面的经验积累