我现在想使用Excel从Word中将批注导出来，请问如何导啊，谢谢

我现在想使用Excel从Word中将批注导出来，请问如何导啊，谢谢

google_ad_width = 250; google_ad_height = 250; google_ad_format = "250x250_as"; google_color_url = "000000";

第2楼. 由 jacktown 于 2007-6-28 13:36:13 发表

在excel中先引用word，然后在添加以下代码即可！（注意你要导入的WORD文档的文件名）

Sub save_comments()

Dim appword As New Word.Application

appword.Documents.Open Application.ActiveWorkbook.Path & "\mydoc.doc"

If appword.Documents("mydoc.doc").Comments.Count < 1 Then MsgBox "当前文档没有任何批注！": Exit Sub

For i = 1 To appword.Documents("mydoc.doc").Comments.Count

If Len(appword.Documents("mydoc.doc").Comments(i).Range) < 1 Then

Range("a" & i) = "空"

Else

Range("a" & i) = appword.Documents("mydoc.doc").Comments(i).Range

End If

Next

appword.Quit

MsgBox "导入成功！"

End Sub

第3楼. 由 xiaoxiongdi2007 于 2007-6-28 14:40:47 发表

哥们 如何在excel中引用word啊 我主要是这个不会 先谢谢了

第4楼. 由 jacktown 于 2007-6-28 14:59:46 发表

在excel里的VAB编辑器菜单项上依次选: 工具-->引用-->Microsoft word *** Object Library 即可，版本号根据你使用的OFFICE版本不同，2003的版本是11.0