使用 VBA 解析 MS Word 文档中的文本

Question

我希望有人可以帮助使用 MS Word 宏。

基本上，我有一个 MS Word 文档，其中列出了几个文本文件和每个文件中感兴趣的特定页面。

文件格式类似于：

textdocument1.txt              P. 6, 12 - issue1
textdocument2.txt              P. 5 - issue1
                               P. 13, 17 - issue3
textdocument3.txt              P. 10

我想将每一行作为字符串读入我的宏。

然后遍历它来识别文件名。 有了文件名，我就可以打开文件，转到页码，然后复制我需要的数据。

但是我被困在第 1 步，如何在 MS Word 宏中将该行捕获为字符串？

任何帮助将不胜感激。

Answer 1

以下代码应该可以帮助您入门：

Public Sub ParseLines()
    Dim singleLine As Paragraph
    Dim lineText As String

    For Each singleLine In ActiveDocument.Paragraphs
        lineText = singleLine.Range.Text

        '// parse the text here...

    Next singleLine
End Sub

我在这篇文章中找到了基本算法。

Answer 2

如果你的 word 文档列出了所有这样的文本文件：

<name>{tab}<page ref>{newline}
<name>{tab}<page ref>{newline}
<name>{tab}<page ref>{newline}

然后所有的行都在Paragraphs 集合中可用。 你可以用一个简单的For Each循环来遍历它：

Dim p As Paragraph

For Each p In ActiveDocument.Paragraphs
  Debug.Print p.Range.Text
Next p

Answer 3

每行

Public Sub ParseDoc()

    Dim doc As Document
    Set doc = ActiveDocument
    Dim paras As Paragraphs
    Set paras = doc.Paragraphs
    Dim para As Paragraph
    Dim sents As Sentences
    Dim sent As Range
    For Each para In paras

        Set sents = para.Range.Sentences
        For Each sent In sents
            Debug.Print sent.Text
        Next

    Next

End Sub

Answer 4

如果其他文本包含特殊字符或使用另一种语言，则上述代码将不起作用，这是我在执行的一项任务中提出的解决方案

    Dim para As Paragraph
    Dim sentence() As String
    For Each para In ActiveDocument.Paragraphs
          sentence() = Split(para.Range.Text, Chr(11))
            For i = 0 To UBound(sentence)
                  Msgbox(sentence(i))
            next i
    next