用VBA如何比较两个word文档的内容是否相同 ？

hayiji

我在使用word的过程中发现，如果你删除某个字符，然后按照原来的格式添加这个字符，文档就有可能会增加几个KB，其实文档的内容是完全相同的。再者，即使不增大，word也会记录一些其它的信息到文档中，导致文档和原文档不同。如果用一个文件比较程序比较这两个文档就会得到文档不同的结论，那么如何比较这两个文档的内容呢？

我提出了以下方案，撇开图像不谈，只关心文本，先保存一下原文档，做比较时使用两个rang对象，分别包含两个文档中的所有字符，选characters属性，用for循环遍历所有字符。比较字符是否相等。这样做的速度很慢,且字体无关。

另外的方案是将待比较文档保存为两个html格式文档，然后进行比较，这样包含了字体信息。html文档包含时间信息，但是很容易滤除

以上两个方案显得比较笨拙，不知各位高人有何见解和建议。

本人是VBA的初学者，向各位多多学习！

守柔

个人感觉你的第一个方案应该可行的，速度快慢是相对的，配置好，当然时间快一些，代码设计合理，运行时间也会快。如果只是文本比较，也可以使用MID进行执行字符串的比较，这样，速度会更快一些。