Word VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム

580 / 886

←次へ　｜　前へ→


	【312】自己解決

古屋 - 05/6/1(水) 13:48 -


	引用なし

	パスワード

自己解決しましたのでご報告致します。

テーブルのセル数（Cells.Count）でループすることで、
セル結合を意識することなく値を取得することができました。

正しいコーディングではないかもしれませんが、記載いたします。

MsgBox "テーブル個数 " & ActiveDocument.Tables.Count
'テーブルの個数
For cnt = 1 To ActiveDocument.Tables.Count
　MsgBox "★テーブル[" & cnt & "]の処理"
　MsgBox "■セル数：" & ActiveDocument.Tables.Item(cnt).Range.Cells.Count

　'各テーブルのセル数ループ
　 For Cell_cnt = 1 To ActiveDocument.Tables.Item(cnt).Range.Cells.Count
　　　 MsgBox "■：(" & ActiveDocument.Tables.Item(cnt).Range.Cells.Item(Cell_cnt).RowIndex & _
　　　　　　　　　　"," & _
　　　　　　　　　　ActiveDocument.Tables.Item(cnt).Range.Cells.Item(Cell_cnt).ColumnIndex & _
　　　　　　　　　　")=" & _
　　　　　　　　　　ActiveDocument.Tables.Item(cnt).Range.Cells.Item(Cell_cnt).Range.Text
　 Next
Next

1,919 hits

▼

【311】行結合と列結合している表の各セルの文字列を取得する方法 古屋 05/5/26(木) 23:16