संपूर्ण वर्ड दस्तावेज़ टेक्स्ट को एक सरणी में प्राप्त करें, नई लाइन

Question

द्वारा विभाजित करें, मैं कुल शब्द दस्तावेज़ टेक्स्ट को एक चर में प्राप्त करना चाहता हूं और स्ट्रिंग को एक सरणी में विभाजित करना चाहता हूं, जो कि नई लाइन के साथ डिलीमीटर के रूप में विभाजित है। मैं उसे कैसे कर सकता हूँ?

Dim str 
str = ActiveDocument.? 

Answer 1

यह एक "डॉक" फ़ाइल या एक "txt" फ़ाइल है?

कुछ इस तरह काम करना चाहिए

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