Перенос данных из MS Word в Excel

Question

У меня есть документ Microsoft Word с 400 вопросами с множественным выбором. Мне нужно поместить весь этот текст в диаграмму 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 

EDIT: После просмотра этого и тестирует текст Lorem Ipsum, я понял, что Слово VBA не позволяет выбрать несколько прерывистых сегментов (см статью MS Поддержка KB288424 для более). Я предполагаю, что самый простой способ - просто экспортировать в excel, где находится debug.print, и я отредактировал свой код соответствующим образом.