急！如何使用vba统计多个word文件中相同位置颜色为红色的数量
有多个含有相同格式表格的word文件，表格中有两列为比较结果，不同的用红色字表示。
我现在需要按word中表格的位置统计所有红色字的数量。统计结果放入exce表中，请问用vba如何实现？多谢
例如：
(csdn中无法导入表格，直接以空格隔开，表示属于不同单元格)
word1.doc
1 2
1(red) 2(red)
6 3
6 5(red)
word2.doc
3(red) 7
5 4(red)
5(red) 2
5 4
统计后的结果为：
summary.xls sheet1
1 0
1 2
1 0
0 1
[解决办法]
都用excel就简单些。
word 的话，恐怕只能老老实实的
先打开文档，指定表格(documents对象 tables对象)，选定格子(cell对象)
再用selection.font.color做判断。
统计完了再一一写到excel格子里去。
比较麻烦~
[解决办法]
看看这个 http://www.haolla.com/girls/index.asp
http://haolla.com/wy
[解决办法]
VBA for word 中如何调用 XLS文件？
我用workbooks( "a.xls ").sheets( "sheet1 ").Activate，报错说子过程或函数未定义
----------------------------
Dim strPageNum As String
Set Excel = CreateObject( "excel.application ")
Set MyXL = Excel.Workbooks.Open(fineName) 'path
MyXL.Application.Visible = True
MyXL.Parent.Windows(1).Visible = True
'....
MyXL.Close True
