[求助]文件里有没有中文

dongdonga

有一个英文的文件，由于比较大，很多页，现在我想知道它里面有没有汉字，也就是说文件里有没有中文字，要怎样写VBA？

[此贴子已经被作者于2005-9-27 11:49:28编辑过]

konggs

查找“[一-龥]”勾选通配符。

或用这个。老大的代码(改一下，你自己)

Sub Test() With ActiveDocument.Content.Find .ClearFormatting '.LanguageID = 1033 '英文 .LanguageID = 2052 '中文 .Format = True .Replacement.ClearFormatting .Replacement.Font.Color = wdColorBlue '兰色字体 .Execute Replace:=wdReplaceAll End With End Sub