スキルアップ・問題解決なら、モーグにおまかせ！

　Excel vbaにおいてデータ処理を早くする方法の一つとしてセルデータを配列へ一括に格納してから処理を行う方法がありますが、同様にwordにおいても表の中にあるセルデータをループ文を用いらずに一括に配列へ格納することは難しいでしょうか。
　もし可能であればその方法を教えて頂きたいです。

Word VBA だけでは無理だと思います。
普通にセルをループしてください。
 
例えば1行目だけを1次元配列で取り出すのであれば可能です。
 
  Dim T As Table
  Dim v, a
  Set T = ActiveDocument.Tables(1)
  v = Split(T.Range.Text, Chr(13) & Chr(7))
  ReDim Preserve v(T.Columns.Count - 1) 'これで完了
  'ここからは確認用
  For Each a In v
    Debug.Print a
  Next

お返事ありがとうございます。
やはりWordでとなると厳しいのですね。。。
  
ご丁寧にありがとうございます、参考にさせていただきます。
 
1列目だけを1次元配列で取り出す方法も教えて頂けると助かります。

表の形式
(1)結合セルがないこと
(2)セル内で改行が無いこと
 
参考コード

Sub test()

Dim T As Table
Dim v
Dim r As Long, c As Long
  
    Set T = ActiveDocument.Tables(1)
  
    ReDim v(1 To T.Rows.Count, 1 To T.Columns.Count)
    For r = LBound(v) To UBound(v)
        For c = LBound(v, 2) To UBound(v, 2)
            v(r, c) = Replace(T.Cell(r, c).Range.Text, Chr(13) & Chr(7), "")
        Next
    Next
    '確認用
    For r = LBound(v) To UBound(v)
        For c = LBound(v, 2) To UBound(v, 2)
            Debug.Print "[" & r & "," & c & "]:" & v(r, c)
        Next
    Next
    
End Sub

前レスで
(2)セル内改行がないこと
という条件を提示しましたが、
↓のように変更すれば、セル内改行にも対応可能です。
 
変更対象
> v(r, c) = Replace(T.Cell(r, c).Range.Text, Chr(13) & Chr(7), "")
変更後

            v(r, c) = Replace(T.Cell(r, c).Range.Text, Chr(13) & Chr(7), Chr(10))