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

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