xin code vba tích vào Checkbox trong word (3 người xem)

[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]

Thế mình muốn giúp code tích vào bóc nào vây?

 

[nt.thinh]

Thế mình muốn giúp code tích vào bóc nào vây?
Tích vào checkbox1 trên wo
View attachment 246107

Thế mình muốn giúp code tích vào bóc nào vây?

View attachment 246107

Dùng vba điều khiển để tích vào checkbox1 trên word bạn,mình đã viết thử code trên file book1 nhưng lỗi

 

[Ba mười ba]

Mình muốn tích cho bao nhiêu file word vậy? Mỗi file word có bao nhiêu checkbox ?

 

[nt.thinh]

Mình muốn tích cho bao nhiêu file word vậy? Mỗi file word có bao nhiêu checkbox ?

1 file word va 1 checkbox

 

[Ba mười ba]

1 file word va 1 checkbox

Tớ tưởng phải cỡ 600 file word và mỗi file có 5000 checkbox thì mới cần phải code chứ một-một thì tớ chưa hiểu rõ mục đích của mình làm vậy để làm gì?
Mình có thể nói cho tớ biết mục đích của mình được không?

 

[nt.thinh]

Mình in mâu biểu word

 

[Ba mười ba]

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

 

[nt.thinh]

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

Cảm ơn bạn! Mình chạy thư dòng Dim Tich As ContentControls lỗi

 

[Ba mười ba]

Cảm ơn bạn! Mình chạy thư dòng Dim Tich As ContentControls lỗi

Mình tìm đến chỗ này tích thêm phát nữa xem sao ?

 

[nt.thinh]

Ok rồi bạn ơi
Cảm ơn nhiều nhé

 

[Ba mười ba]

Ok rồi bạn ơi
Cảm ơn nhiều nhé

Ồ không có gì vậy là hên rồi hả , chúc mừng mình nhé.

 

[nt.thinh]

Phiền bạn thêm 02 vấn đề nhé
1. Khi chạy lệnh lần 2 thì báo lỗi "462 the remote server machine does not exits or is unavailable"
2. Giúp mình chạy trên 01 file word nhưng nhiều checkbox được không?VD: checkbox1,checkbox2...và nếu không tìm thấy checkbox thì bỏ qua.
Cảm ơn nhiều!

 

[befaint]

Thế này là tự lấy tay đập.... vào chân rồi sao?

 

[Ba mười ba]

Phiền bạn thêm 02 vấn đề nhé
1. Khi chạy lệnh lần 2 thì báo lỗi "462 the remote server machine does not exits or is unavailable"
2. Giúp mình chạy trên 01 file word nhưng nhiều checkbox được không?VD: checkbox1,checkbox2...và nếu không tìm thấy checkbox thì bỏ qua.
Cảm ơn nhiều!

Vấn đề 1:
Tớ nghĩ do file word bạn vẫn còn đang mở hay thế nào đó.. nếu đúng như vậy mình thử tìm kiếm thêm hàm kiểm tra file đang ở chế độ mở hay không nếu mở thì khỏi mở nếu chưa mở thì mở
Vấn đề 2:
Cái dấu "..." tớ không biết chếch bóc của mình nhiều đến cỡ nào tớ nghĩ khoảng vài ngàn cái như đã nói ở bài 6, và hỏi xác nhận ở bài 4 rồi, mình cũng đã trả lời như đinh đóng cột với như ở bài 5 rồi mà.

 

[nt.thinh]

Sorry nhé.bạn thông cảm giúp thêm lần nữa nhé,khoang 50 checkbox

 

[Ba mười ba]

Sorry nhé.bạn thông cảm giúp thêm lần nữa nhé,khoang 50 checkbox

ok ! thank you , very good and i don't know ...

 

[VetMini]

Thế này là tự lấy tay đập.... vào chân rồi sao?
...

Cái này cũng cùng loại với kiểu bài Excel "phân bổ một số tiền vào nhiều khoảng tiền ngẫu nhiên" (leopard fox ghost) mà mình vẫn thấy lâu lâu lại có người yêu cầu.

Cái file Word ở đây là một văn bản dạng đánh giá cái gì đó (requirement metrics). Mỗi điều kiện có một checkbox để tích khi đã kiểm xong.
Người ta lười tích cả trăm cái cho nên dùng phương pháp tự động thôi. Tự căn bản nó đã là đồ "leopard fox ghost" rồi. Tay đập vào cái gì cũng chả ai bỏ thì giờ xem.

 

[Ba mười ba]

Phiền bạn thêm 02 vấn đề nhé
1. Khi chạy lệnh lần 2 thì báo lỗi "462 the remote server machine does not exits or is unavailable"
2. Giúp mình chạy trên 01 file word nhưng nhiều checkbox được không?VD: checkbox1,checkbox2...và nếu không tìm thấy checkbox thì bỏ qua.
Cảm ơn nhiều!

Mà code bài 8 là tích toàn bộ checkbox cho mình rồi còn gì?
Nó có tích riêng cụ thể tên một checkbox nào đâu.
Mình thử gửi cái file word có 50 check box đó lên đây xem nào?

 

[nt.thinh]

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!