Im attempting to move a data dictionary in word over to excel. Every metric has lines with descriptors (summary, data source, etc...) between each metric in the dictionary (ms word) is a blank space to separate them. This code that I got help with places each line into it's own cell in column A of excel.

```
Option Explicit
Sub ParaCopy()
    Dim wApp As Word.Application
    Dim wDoc As Word.Document
    Set wApp = CreateObject("Word.Application")
    Set wDoc = wApp.Documents.Open("J:\HRIS Team\Data Dictionary.docx", ReadOnly:=True)

    Dim wPara As Word.Paragraph
    Dim arr() As Variant
    ReDim arr(1 To wDoc.Paragraphs.Count, 1 To 1)
    Dim i As Long
    i = 1
    For Each wPara In wDoc.Paragraphs
        If wPara.Range.Words.Count > 1 Then
            arr(i, 1) = wPara.Range
            i = i + 1
        End If

    Next wPara
    For i = LBound(arr) To UBound(arr)
        [a1].Resize(UBound(arr) + 1) = arr
    Next i

End Sub

```

What I need is to have every metric be in it's own column, and since some paragraphs have more lines than others, I can't do this in a step fashion. How would I tell VBA to loop through until a blank space between metrics is found and then place the next metric in the next column instead of all just in column A?

example:

EDIT: Need to separate each block of text in MS Word separated by a space (outlined in blue)

[![word doc](https://i.stack.imgur.com/jIWVn.png)](https://i.stack.imgur.com/jIWVn.png)

to this in excel

[![output in excel](https://i.stack.imgur.com/CP9qR.png)](https://i.stack.imgur.com/CP9qR.png)

That code above puts everything in column A, but I'd like each metric to be in it's own column.