将整个Word文档文本转换为数组,按换行符拆分

Question

我想将整个word文档文本转换为变量,并希望将字符串拆分为带有换行符作为分隔符的数组.我怎样才能做到这一点？

Dim str
str = ActiveDocument.?  

Answer 1

这是"doc"文件还是"txt"文件？

这样的事情应该有效

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