Obtenga todo el texto del documento de Word en una matriz, dividido por nueva línea

Question

Quiero obtener el texto del documento de palabra total en una variable y quiero dividir la cadena en una matriz con nueva línea como delimitador. ¿Cómo puedo hacer eso?

Dim str 
str = ActiveDocument.? 

Answer 1

Es esto un "doc" archivo o una "txt" archivo?

algo como esto debería funcionar

Sub Test() 
Dim arr() As String 
arr = Split(ActiveDocument.Content.Text, Chr(13)) 
End Sub