使用Excel VBA解析Word文档的完整内容

Question

我想编写一个通用方法，通过循环段落和形状来提取从word文档到文本文件的所有内容。

我能够使用下面的代码解析90%的文档。但是，此代码不会读取少数表中的内容。

Set objWordApp = CreateObject("Word.Application")
objWordApp.Visible = False
Set objWordDoc = objWordApp.Documents.Open(strWordDocPath)

Set objFso = CreateObject("Scripting.FileSystemObject")
Set oFile = objFso.createTextFile(strTextFilePath)
Set colParagraphs = objWordDoc.Paragraphs


For Each objParagraph In colParagraphs
    lineText =Trim(objParagraph.Range.Text)
    If lineText <> "" Then
       oFile.Write lineText & vbCrLf
    end if
next

我无法从MS word文档中提取表格中的少量文本。这个问题只涉及一些文本和表格，我可以用我的代码阅读文档中的大部分内容。

Word文档位于以下链接中-

https://drive.google.com/file/d/0B1C7jj9dLG2aTXJNRGt6QTBVUUE/view?usp=sharing

主要问题是如何解析文档中的第一个表。此文档由应用程序生成，我无法控制内容的格式。

有人能帮我从附加文档中阅读完整的内容吗？

Answer 1

以下是给你的线索：

Sub test()
    Dim tCel As Cell, cellText As String

    For Each tCel In ActiveDocument.Shapes(1).TextFrame.TextRange.Tables(1).Range.Cells
        cellText = Trim(tCel.Range.Text)
        Debug.Print cellText
    Next
End Sub