Word VBA 全ページの全行を一括で配列に取り込む方法

Question

ワードファイルの全ページの全行に対する行単位の処理があり、現在、
st.Item(i) のような形で処理をしています。この処理を速めたいです。
Excelの場合、範囲を配列に一括で入れて速く処理するという方法がありますが、
ワードでも同じような方法（配列に入れる）は可能でしょうか。
よろしくお願いします。

(補足)
御投稿ありがとうございます。
全文から、単語myArray(j,0) or myArray(j,1) が含まれる文章の出現回数をmyArrayCnt(j)に代入するという処理です。単語は複数種類あり(j)、中略を挟んで二度同種の処理があります。

Sub ReadDocument()
    Dim st As Sentences
    Dim i As Long
    Set st = ActiveDocument.Sentences
    For i = 1 To st.Count
      For j = 1 To 10
        If instr(st.Item(i), myArray(j, 0))>0 or instr(st.Item(i), myArray(j, 1))>0 
 Then myArrayCnt(j)=myArrayCnt(j)+1
      Next
    Next
    '中略
    For i = 1 To st.Count
      For j = 1 To 8
        If instr(st.Item(i), myArray2(j,0))>0 or instr(st.Item(i), myArray2(j,1))>0 Then myArrayCnt2(j)=myArrayCnt2(j)+1
      Next
    Next
End Sub

Comments

[hatena19]

エクセルは表計算ソフト、セル範囲のValueは２次元配列になるので、それを利用して高速化できます。
ワードは表計算ソフトではないので、そのような機能はないので、できません。
ワードの文書データは２次元配列とはまったく別物ですので。

具体的な処理を提示されたら、別の高速化の手段はあるかもしれません。

Answer 1

書式を無視して、テキストのみなら、下記でコードで一応、配列にはできます。

Sub test()
    Dim ary
    ary = Split(ActiveDocument.Content.Text, vbCr)
   
    '配列の中身の確認
    Dim i As Long
    For i = 0 To UBound(ary)
        Debug.Print ary(i)
    Next
End Sub

どのような処理をしたいのか不明なので、これで高速化できるかは不明です。
書式に関する処理はできません。

Comments

[nkym771]

ありがとうございます。
ご提示いただいたコードで検討してみます。