ExcelからWordの表を調べる【VBA】

Option Explicit

Public Sub 表3の3列目の行数を調べる()

    Dim Wd As Word.Application
    Dim Doc As Word.Document
    
    Const cstName As String = "C:\temp\20230621chie_Wordの表.docx"
    
    'Wordを準備する
    Set Wd = New Word.Application
    
    'Wordを可視状態にする
    Wd.Visible = True
    
    'Wordを開く
    Set Doc = Wd.Documents.Open(Filename:=cstName, ReadOnly:=False)
    
    'Wordの表を調べる
    
    '表３を調べるので、そもそもまず表が三つあるかチェック
    
    Dim lTablesCnt As Long
    lTablesCnt = Doc.Tables.Count
    
    If lTablesCnt < 3 Then
        Exit Sub
    End If
    
    '表3は表内に結合された列や行があるので
    '列単位でのアクセス、行単位でのアクセスができない。
    'そこでRange.Cellsでアクセスする。
    
    Dim lCellsCnt As Long
    lCellsCnt = Doc.Tables(3).Range.Cells.Count
    
    Dim ii As Long
    Dim lRowsCnt As Long
    lRowsCnt = 0
    For ii = 1 To lCellsCnt
        '「表３の３列目の行数」を調べる
        If Doc.Tables(3).Range.Cells(ii).ColumnIndex = 3 Then
            lRowsCnt = lRowsCnt + 1
        End If
    Next ii
    
    Debug.Print "表３の３列目の行数は" & lRowsCnt & "です"
    
    'Wordを閉じる
    Doc.Close
    Wd.Quit
    Set Doc = Nothing
    Set Doc = Nothing
    
End Sub