Automatice el documento de Word en excel

Tengo que transferir cientos de documentos de Word a Excel. Los documentos son loggings de clientes desde hace mucho time, y se ven así:

Fecha: dd / mm / aa

Nombre del empleado: nombre

Varias líneas de text en un párrafo.

Habrá docenas de inputs en la página como esta, formateadas en una columna. Necesito que el resultado final sea una columna para cada categoría. El principal desafío con esto es la descripción del text. La forma en que están formateados en Word, no parece ser una forma sencilla de copyr y pegarlos en Excel sin que el resultado sea una celda para cada línea del párrafo. Cualquier método que he probado que reemplace los retornos duros para devoluciones suaves toma todo el text en la página completa y lo coloca en una celda, lo que lo empeora. Tengo cientos de files para transferir, por lo que no tengo time para copyr y pegar cada nota en una sola. Los párrafos tampoco tienen una longitud uniforme, aunque normalmente hay una línea vacía antes y después de que la nota comienza / finaliza. Estoy seguro de que debe haber una solución VB para esto, pero no estoy lo suficientemente informado como para resolverlo. Cualquier ayuda sería apreciada.

Puede establecer Marcadores en Word e importar todos los Marcadores en ranges en Excel.

Sub TryThis() Dim oWord As Word.Application Dim oDoc As Word.document Dim vBkMarks As Variant Dim vRecord Dim rRecord As Range Dim nFields As Long Dim i As Long vBkMarks = Array("Bookmark1", "Bookmark2", "Bookmark3") 'etc... ReDim vRecord(LBound(vBkMarks) To UBound(vBkMarks)) nFields = UBound(vBkMarks) - LBound(vBkMarks) + 1 On Error Resume Next Set oWord = GetObject(, "Word.Application") On Error GoTo 0 If oWord Is Nothing Then _ Set oWord = CreateObject("Word.Application") Set oDoc = oWord.ActiveDocument For i = LBound(vBkMarks) To UBound(vBkMarks) vRecord(i) = oDoc.Bookmarks(vBkMarks(i)).Range.Text Next i With Sheets("DataTable") .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).Resize( _ 1, nFields).Value = vRecord End With End Sub