替换个字符用得着这么复杂吗？不但用了剪贴板，还利用了On Error，我也懒得去看你的代码了，其实就一句代码的事：
成都创新互联专注于科尔沁右翼前企业网站建设,响应式网站建设,商城网站制作。科尔沁右翼前网站建设公司,为科尔沁右翼前等地区提供建站服务。全流程按需网站建设，专业设计，全程项目跟踪，成都创新互联专业和态度为您提供的服务
Private Sub Command1_Click()
Text1.Text = Replace(Replace(Text1.Text, ",", "，"), ".", "。")
End Sub
你是指判断字符时全角还是半角吗？
用asc函数可以判断。
a是全角的，asc("a")是负值
a是半角的，asc("a")是正值
晕，“知道”自动把全角字符转换成半角了……
半角转换为全角
MsgBox Chr(Asc("f") - 23680)
全角转换为半角
MsgBox Chr(Asc("f") + 23680)
一般输入法默认切换全角和半角的组合键是键盘上的【Shift】+【空格键】。不过该功能的组合键是允许修改的，可以在原生输入法的【文字服务和输入语言】菜单，或者在其他输入法的设置中找到修改项，自定义为其他的组合按键。以下是详细介绍：
怎么用键盘切换输入法的全角和半角啊？
1、键盘上有一个快捷的切换组合键，一般默认是【Shift】+【空格键】；
2、如果此前经过自定义，可以在打开输入法的设置，以Windows原生输入法为例，找到任务栏，对着键盘图标右键打开【设置】；
3、在随后出现的【文字服务和输入语言】菜单中，找到【高级键设置】的标签页，其中【中文（简体）输入法，-中/英标点符号切换】选项，右侧就会显示当前切换的组合键；
4、您也可以选中该选项之后，点击右下方的【更改按键顺序】；并勾选【启用按键顺序】，在下面的下拉菜单中选择需要设置的快捷组合键。
这里教大家全角和半角之间转换的方法!虽然word2007中这个功能比较隐蔽，但是只要你熟悉了还是比较简单的!
方法： 选中需要转换的字符之后，单击“开始”选项卡中的图标“Aa”，即“更改大小写”功能按钮，打开如图1所示列表。需要将全角字符转换为半角时单击“半角”，需要将半角字符转换为全角时单击“全角”完成转换。还有英文的大小写之间的转换 。
小提示
虽然Excel和PowerPoint中没有以上功能。但如果需要在全角字符与半角字符之间相互转换，可以用上面介绍的方法在Word2007中完成转换，然后粘贴到Excel或PowerPoint中即可。
