在VBScript中解析Word文档

Question

I got a weird mission from a friend, to parse through a bunch of Word files and write certain parts of them to a text file for further processing.

VBscript is not my cup of tea so I'm not sure how to fit the pieces together.

The documents look like this:

Header
A lot of not interesting text
Table
Header
More boring text
Table

I want to parse the documents and get all the headers and table of contents out of it. I'm stepping step through the document with

For Each wPara In wd.ActiveDocument.Paragraphs

And I think I know how to get the headers

If Left(wPara.Range.Style, Len("Heading")) = "Heading" Then

But I'm unsure of how to do the

Else if .. this paragraph belongs to a table..

So, any hint on how I could determine if a paragraph is part of a table or not would be nice.

Answer 1

Untested, because I have no access to MS Word right now.

Option Explicit

Dim FSO, Word, textfile, doc, para

' start Word instance, open doc ...
' start FileSystemObject instance, open textfile for output...

For Each para In doc.Paragraphs
    If IsHeading(para) Or IsInTable(para) Then 
        SaveToFile(textfile, para)
    End If
Next

Function IsHeading(para)
    IsHeading = para.OutlineLevel < 10
End Function

Function IsInTable(para)
    Dim p, dummy
    IsInTable = False

    Set p = para.Parent
    ' at some point p and p.Parent will both be the Word Application object
    Do While p Is Not p.Parent
        ' dirty check: if p is a table, calling a table object method will work
        On Error Resume Next
        Set dummy = obj.Cell(1, 1)
        If Err.Number = 0 Then
            IsInTable = True
            Exit Do
        Else 
            Err.Clear
        End If
        On Error GoTo 0

        Set p = p.Parent
    Loop
End Function

Obviously SaveToFile is something you'd implement yourself.

---

Since "is in table" is naturally defined as "the object's parent is a table", this is a perfect situation to use recursion (deconstructed a little further):

Function IsInTable(para)
    IsInTable = IsTable(para.Parent)
    If Not (IsInTable Or para Is para.Parent) Then 
        IsInTable = IsInTable(para.Parent)
    End If
End Function

Function IsTable(obj)
    Dim dummy
    On Error Resume Next
    Set dummy = obj.Cell(1, 1)
    IsTable = (Err.Number = 0)
    Err.Clear
    On Error GoTo 0
End Function