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

Question

我想将word word文档文本整合到一个变量中，并希望将字符串拆分为一个数组，并将换行符作为分隔符。我怎么能这样做？

Dim str
str = ActiveDocument.?  

Answer 1

这是“doc”文件还是“txt”文件？

这样的事情应该起作用

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