xin code vba tích vào Checkbox trong word

[nt.thinh]

Nhờ các bạn trợ giúp mình code tích vào checkbox word
Xin cảm ơn!

 

[Ba mười ba]

Mình xử lý được rồi nhe
For Each Tich In wdDoc.ContentControls
Select Case Tich.Title
Case "checkbox1"
If Sheet1.Range("A1").value = "a" then
Tich.Checked = True
Else
Tich.Checked = False
End If

Case "checkbox2"
If Sheet1.Range("A2").value = "a" then
Tich.Checked = True
Else
Tich.Checked = False
End If
..........
End Select
Next Tich

Thanks ban!

Nhìn cốt là biết 50 checkbox hoành tráng cỡ nào, chúc mừng bạn.

 

[binhcdt1]

Hên xui mình nhé, không được thì mình tham khảo cho vui:

Sub Tich_Tich()
    Dim oWord As Object, sFileName As String
    Set oWord = CreateObject("Word.Application")
    oWord.Visible = True
    sFileName = ThisWorkbook.Path & "\Doc1.docx"
    oWord.documents.Open (sFileName)
    oWord.Activate
    With oWord
        Dim Tich As ContentControl
        For Each Tich In ActiveDocument.ContentControls
            If Tich.Type = wdContentControlCheckBox Then Tich.Checked = True
        Next
    End With
    Set oWord = Nothing
End Sub

Chào bạn
Bạn có thể giúp mình. Giả sử mình có tạo 3 checkbox . Viết code như thế nào để khi chạy nó chỉ tich vào checkbox 2 không ạ.
Code trên của bạn đang tích tất cả.

Thanks

 

[xuanmanh.pt]

Mình xử lý được rồi nhe
For Each Tich In wdDoc.ContentControls
Select Case Tich.Title
Case "checkbox1"
If Sheet1.Range("A1").value = "a" then
Tich.Checked = True
Else
Tich.Checked = False
End If

Case "checkbox2"
If Sheet1.Range("A2").value = "a" then
Tich.Checked = True
Else
Tich.Checked = False
End If
..........
End Select
Next Tich

Thanks ban!

bác cho em xin file code checkbox này với a.em copy code trên về chạy lỗi đến dòng For each tich in ..