求助：VBA如何判断文档2中少掉的术语？

雨雪霏霏

　　刚才用孔兄的宏，得出了Word两个不同版本命令的“真正个数”，Word2003是1030个，Word2007是1665个。在甲2文档运行孔兄四楼编码，消息框列出43个命令——即2003中有而2007中没有的命令。在乙2文档运行孔兄四楼编码，消息框无法全部显示不同的命令，小弟估计有670个命令是Word2007中特有的。

　　谢谢孔兄在小弟整理“所有命令”过程中大力指点！果成《Word命令全集》，则几乎是孔兄与老大的心血结晶！小弟先谢下！

konggs

何兄：4楼的代码改为如下：就不用估计是多少了。

Sub 简单的测试()
Dim 文档2 As Document
Dim adoc As Document
Dim string2, string1, abstring
Dim arr As Variant, i As Long
Application.ScreenUpdating = False
Set 文档2 = Documents.Open(FileName:=ActiveDocument.Path & "\文档2.doc")
string2 = 文档2.Content
文档2.Close
string1 = ActiveDocument.Content
arr = Split(string1, Chr(13))
For i = 0 To UBound(arr)
If InStr(string2, arr(i)) Then
'不作处理
Else
abstring = abstring + arr(i) + Chr(13)
End If
Next

Set adoc = Documents.Add
adoc.Content = abstring
Application.ScreenUpdating = True
End Sub

雨雪霏霏

呵呵，孔兄的“我吓坏了，我以为我看错了”“就不用估计是多少了”，在严肃的代码背后，是风趣诙谐的“表情”，难得！ 　　试用之后，极其佩服孔兄的巧手！可运行结果着实把小弟吓了一跳：Word2007竟然有715个命令是Word2003中没有的。孔兄真是把小弟“吓坏了”，这2007咋就这样“大张旗鼓”呢！ 　　另：这一两天注意到了小皓长得越来越可爱了，羡慕孔兄！小弟当个光棍叔叔可不错！只是提醒孔兄，这头像最好弄得“圆润”一些，是用Photoshop做的么？细心一点抠图，让小弟看着更欢喜一些！