如何通过VBA在MS Word文档中获取文本框架

Question

I have large MS Word 2010 document that consists of data in "frames" at least that is what I believe it is. Here's a screenshot:

I tried this to access it:

Sub test()
Dim s As Shape
Dim i As Integer
Dim str As String
For Each s In ActiveDocument.Shapes
    i = i + 1
    If s.TextFrame.HasText Then
        Application.StatusBar = i
    End If
Next s
MsgBox ("done")
End Sub

But it wouldn't get me there. I need to go through all these "frames", but again, I'm not even sure what it is, and dump it into Excel. Any pointers? I can extract the xml and parse it, but seems a bit overkill. (+ I'm not so good with parsing yet).

Answer 1

I have *.rtf file with frames from Oracle Reports. Try my macro.

Sub test()
Dim TabHourFrames() As Variant
numb_frames = ActiveDocument.Frames.Count
    ReDim TabHourFrames(1 To numb_frames)
    counter = numb_frames
    For i = 1 To counter
        Set myRange = ActiveDocument.Frames.Item(i).Range
        t = myRange.Text
        TabHourFrames(i) = t
    Next i
 Documents.Add DocumentType:=wdNewBlankDocument
        For q = 1 To counter
        last_par = ActiveDocument.Paragraphs.Count
        Set rngLastParagraph = ActiveDocument.Paragraphs(last_par).Range
            With rngLastParagraph
                    .InsertAfter Text:=TabHourFrames(q)
                    .InsertParagraphAfter
            End With
        Next q
ActiveDocument.Range(0, 0).Select
End Sub