" id="b1img" alt="米课”N+1“思维建站-非官方免费技术支持,Wordpress/Zencart/Opencart建站、SEO" title="米课”N+1“思维建站-非官方免费技术支持,Wordpress/Zencart/Opencart建站、SEO">
  • " alt="米课”N+1“思维建站-非官方免费技术支持,Wordpress/Zencart/Opencart建站、SEO" title="米课”N+1“思维建站-非官方免费技术支持,Wordpress/Zencart/Opencart建站、SEO" />
  • " alt="Windows/Linux服务器运维技术支持 环境搭建、应用发布、服务器管理、虚拟化、云计算" title="Windows/Linux服务器运维技术支持 环境搭建、应用发布、服务器管理、虚拟化、云计算" />
  • " alt="高校/小型企业网络运维与建设免费技术支持,网络规划、网络优化、故障排除、网络管理" title="高校/小型企业网络运维与建设免费技术支持,网络规划、网络优化、故障排除、网络管理" />

小窍门:替换Word中的所有英文

系统运维2005-10-09 itlogger阅读(444) 评论(1)

1、Ctr+H,查找替换"^$"即可,缺点:多按几次按钮
2、写程序,烦!优点:一键搞定
'用下面这个宏

Sub Del1()
'
Dim doc1 As Word.Document
Set doc1 = Documents(1)

For i = 1 To doc1.Paragraphs.Count
j = doc1.Paragraphs(i).Range.Characters.Count – 1
For n = j To 1 Step -1
asc1 = Asc(doc1.Paragraphs(i).Range.Characters(n))
If (asc1 > 64 And asc1 < 91) Or (asc1 > 96 And asc1 < 123) Then
doc1.Paragraphs(i).Range.Characters(n).Delete
End If
Next

Next
End Sub

转载请注明 :IT樵客
文章地址:http://www.itlogger.com/system/208.html

One thought on “小窍门:替换Word中的所有英文

  1. 装vs.net前要先装iis和其中的所有组件
    投影仪的视频端就必须接视频,显示器端只能接显示器,也不知道为什么,如将本该接到视频端的线接到电脑端,就会偏色,不懂怎么表达,不要理我.

发表评论

电子邮件地址不会被公开。 必填项已用*标注