Wordのテーブルをループしてチェックボックスがチェックされているかどうかをチェック

Question

それぞれ2つのチェックボックスを持つ4つの列があります。各セットをループして両方のチェックボックスがオンになっているかどうかを確認しました。 msgboxに1セット内に2つのチェックボックスをチェックしてアイテムの名前を入れてください。

Set oRow = oTable.Rows 
Set oTable = doc.Tables(3) 
For Each oRow In oTable.Rows 
    With oRow 
     If .Cells(3).Range.Text <> .Cells(3).Range.Text <> "Prep" Or .Cells(3).Range.Text <> "Y" Or .Cells(3).Range.Text <> "" Then 
      If .Cells(3).ParentContentControl.Checked = True And .Cells(4).ParentContentControl.Checked = True Then 'error here 
       MsgBox "The following item has both preparer and reviewer checked:" & .Cells(2) 
       Exit Sub 
      ElseIf .Cells(5).ParentContentControl.Checked = True And .Cell(6).ParentContentControl.Checked = True Then 
       MsgBox .Cell(2) 
       Exit Sub 
      End If 
     End If 
    End With 
Next oRow 

問題は引き続き問題になります。

実行時エラー '438'は、オブジェクトがこのプロパティまたはメソッドをサポートしていません。

Answer 1

テーブルに埋め込まれContentControlへのアクセスを取得するには、セルには、次の参照が必要です。

を

If .Cells(3).Range.ContentControls(1).Checked = True And .Cells(4).Range.ContentControls(1).Checked = True Then