如何使用VBScript从word doc文件中读取值

Question

任何人都可以告诉我如何使用VBScript从word.doc文件中读取值。我在下面给了一个sample.doc文件。

Parameters              Default Values
-----------------------------------------------------
No of values            8192 
Sampling Frequency      12800
Frequency Hop           2000
No of times             2

上表给出了上述内容。

Answer 1

这些链接应该有用 Word object model

Document Class

Answer 2

以下是一些注释。

Set wd = CreateObject("Word.Application")
wd.Visible = True

wd.Documents.Open "C:\Docs\Tables.doc"

For Each t In wd.ActiveDocument.Tables
    s = s & "Table" & vbcrlf
    For i = 1 To t.Rows.Count
        For Each c In t.Rows(i).Cells
            s = s & Replace(c.Range.Text, vbCr & Chr(7), "")
        Next
        s = s & vbcrlf
    Next
Next

MsgBox s