烟台大悦城only电话:下载了word一篇文章，全是全角字符，我想全改为半角，咋办？

来源：百度文库编辑：查人人中国名人网时间：2024/04/29 22:13:54

下载了word一篇文章，全是全角字符，我想全改为半角，咋办？
这位兄弟你好，粘贴进去以后怎么运行生效啊？麻烦您把操作的步骤一步一步先点什么，再点什么说详细些好吗？谢谢！

在WORD中选择工具→宏→Visual Basic编辑器，在打开的容器中双击ThisDocument，将下面的代码粘贴进去进去，运行即可。
Sub 字母数字符号全角转半角()
'
' 字母数字符号全角转半角 Macro
' 宏在 2005-10-14 由 ZhengRC 创建
'
Dim qjsz, bjsz As String, i As Integer '定义qjsz(全角数字)、bjsz(半角数字)为字符串型，i为整数型

qjsz = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ，．／＜＞？；’：""〔〕｛｝＼｜＝－＋＿）（＊％＄＃＠！‘～＆ "

bjsz = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ,./<>?;':""[]{}\|=-+_)(*%$#@!`~& "

Selection.WholeStory

For i = 1 To 95 '循环10次

With Selection.Find

.Text = Mid(qjsz, i, 1) 'mid函数：返回文本字符串中从指定位置开始的特定数目的字符，每次取一个数字

.Replacement.Text = Mid(bjsz, i, 1) '将用于替换的相应位置的半角数字

.Format = False '保留替换前的字符格式

.Execute Replace:=wdReplaceAll '用半角符号替换全角符号

End With

Next i

End Sub

最后，祝你成功.

下载了word一篇文章，全是全角字符，我想全改为半角，咋办？下载了一篇word文章，全是全角字符，我想全改为半角，咋办？一篇半角全角符号混合的word文章我下载了一篇word格式文章，可是根本无法对它进行修改，怎么办？如何在WORD文档中将一篇文章统一为全角输入法（因字间距不一样）倾家当产求解：如何使用正则表达式把一篇文章中的全角字符一次全部转换为对应的半角字符？我用word打了一篇英文文章有一句话下面划出了绿线为什么？我在WORD里打了一篇文章，分隔符怎么操作啊？什么叫全角字符？我在填验证码时要输入数字，显示不能输入全角字符我在word上写了一篇文章，当初设了密码，现在忘了，我怎样才能打开文件。