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

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樵客

此条目发表在 系统故障 分类目录。将固定链接加入收藏夹。

关于 logger

2010年网络规划设计师证书寻挂靠!

小窍门:替换Word中的所有英文》有 1 条评论

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

发表评论

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

*

您可以使用这些 HTML 标签和属性: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>