Word (VBA)

Word VBAに関するフォーラムです。
  • 掲示板への投稿には会員登録(無料)が必要です。会員登録がまだの方はこちら
  • 掲示板ご利用上のお願い」に反するご記入はご遠慮ください。
  • Q&A掲示板の使い方はこちらをご覧ください
トピックに返信
質問

 
(Windows 10 Pro : Word 2016)
表のデータを配列に格納したい
投稿日時: 22/01/14 21:10:31
投稿者: ta1chn

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

回答
投稿日時: 22/01/15 10:54:34
投稿者: んなっと

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

投稿日時: 22/01/16 18:27:42
投稿者: ta1chn

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

トピックに返信