ASP读取WORD文档中表格数据

word文档中有一table，有如下表格
----------------

|序号 | 名称 |
----------------
| 1 | aa |
----------------
| 2 | bb |
------------------

我要获取名称的值{也就是aa，bb}，我用宏来摸索ASP程序，但以下ASP程序报"Set Mysel =

ListWord.Application.Selection"缺少对象？后续程序也不知道正确与否？
Set ListWord = Server.CreateObject("Word.Application")
ListWord.Documents.Add Server.MapPath("weihu/importfile")&"wwww.doc", , , True
ListWord.Visible = True
Set Mysel = ListWord.Application.Selection
Mysel.Find.ClearFormatting
Mysel.Find.Replacement.ClearFormatting
Mysel.Find.Text = "序号"
With ThisDocument.Tables(1)
For I = 1 To .Columns.Count
If InStr(1, .Cell(1, I), "序号") > 0 Then
r = I
Exit For
End If
Next
MsgBox r
End With
ListWord.Quit
Set ListWord = Nothing
%>

方法二

response.ContentType= "application/x-msword "

Const adTypeBinary = 1
Dim strFilePath

strFilePath = "c:mainmenu.doc "

Set objStream = Server.CreateObject( "ADODB.Stream ")
objStream.Open
objStream.Type = adTypeBinary
objStream.LoadFromFile strFilePath

Response.BinaryWrite objStream.Read

objStream.Close
Set objStream = Nothing
%>