Lấy toàn bộ văn bản tài liệu Word vào một mảng, chia cho dòng mới

Question

Tôi muốn lấy toàn bộ văn bản tài liệu từ thành một biến và muốn chia chuỗi thành một mảng với dòng mới làm dấu phân tách. Làm thế nào tôi có thể làm điều đó?

Dim str 
str = ActiveDocument.? 

Answer 1

Đây có phải là một "doc" tập tin hoặc một "txt" tập tin?

một cái gì đó như thế này nên làm việc

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