将数据从 MS Word 移动到 Excel

Question

我有一个包含 400 道选择题的 Microsoft Word 文档。我需要将所有这些文本放入 Microsoft Excel 图表中，我认为如果我能够有一个宏允许我选择所有以 a. 开头的文本并在第一段对象处结束该部分，那会容易得多在a. 之后。

我尝试寻求帮助，并被告知使用以下宏，但该宏没有执行任何操作。我只希望宏只选择所有文本。如果我要在 Microsoft Word 中手动执行此操作，我将按住 ctrl 并突出显示所有以 a. 开头并以第一个段落对象结尾的文本。

 Sub Aselection()
'
' Aselection Macro
'

Dim pgh As Paragraph
For Each pgh In ThisDocument.Paragraphs
With pgh
If Left(.Range.Text, 2) = "a." And Left(Right(.Range.Text, 3), 2) = "a." Then
Debug.Print .Range.Text
End If
End With
Next

End Sub

Answer 1

ThisDocument 通常是指包含执行代码的模板文档。 请改用ActiveDocument。

正如@assylias 在他的评论中所说，Debug.Print 仅用于代码调试目的。 将整行替换为 .Range.Select。

这应该可行：

Sub Aselection()

    Dim o As Object
    Dim pgh As Paragraph

    Set o = CreateObject("excel.application")
    o.workbooks.Open ("E:\Aashay Data\Projects\Excel\Carton\Screen Printing.xlsx")
    o.ActiveWorkbook.worksheets.Add.Name = "x"
    o.ActiveWorkbook.worksheets("x").Activate


    For Each pgh In ActiveDocument.Paragraphs
        With o.ActiveWorkbook.worksheets("x")
            Debug.Print pgh.Range.Text
            If Left(pgh.Range.Text, 2) = "a." And Left(Right(pgh.Range.Text, 3), 2) = "a." Then
                .Cells(i, 2).Value = pgh.Range.Text
                i = i + 1
            End If
        End With
    Next
    o.Quit

End Sub

编辑：在查看了这个并测试了一个 lorem ipsum 文本之后，我意识到 Word VBA 不允许您选择多个不连续的段（有关更多信息，请参阅 MS 支持文章 KB288424）。 我想最简单的方法是简单地导出到 debug.print 所在的 excel，并且我已经相应地编辑了我的代码。