Làm thế nào để đếm số ký tự B gạch chân (đáp án B) trong MS WORD

[toandev]

Em đang viết code chuẩn hóa file đề cho một phần mềm, còn vướng đếm số đáp án nào đó, chẳng hạn em muốn đếm số đáp án B (chữ B gạch chân) bằng VBA, nhờ các thầy/cô trợ giúp

 

[batman1]

Thì dùng Find thôi.

Còn nếu muốn người khác cầy hộ, code từ A đến Z thì: đính kèm tập tin -> tốt nhất lấy thêm vd. là với B thì kết quả bằng ngần này ngần này. Không ai viết code trong notepad.

Còn nếu nước bọt suông thì cố gắng đợi thêm.

 

[toandev]

Thì dùng Find thôi.

Còn nếu muốn người khác cầy hộ, code từ A đến Z thì: đính kèm tập tin -> tốt nhất lấy thêm vd. là với B thì kết quả bằng ngần này ngần này. Không ai viết code trong notepad.

Còn nếu nước bọt suông thì cố gắng đợi thêm.

Em up thêm file rồi, thầy giúp em nhé

 

[huuthang_bd]

Bạn thử code này xem.

Function DemDapAn(ByVal sDapAn As String) As Long
    Selection.HomeKey Unit:=wdStory
    With Selection.Find
        .ClearFormatting
        .Font.Underline = wdUnderlineSingle
        .Text = sDapAn
        .Forward = True
        .Format = True
        .Wrap = wdFindStop
        .MatchCase = True
        Application.ScreenUpdating = False
        Do While .Execute
            DemDapAn = DemDapAn + 1
        Loop
        Application.ScreenUpdating = True
    End With
End Function
Sub Test()
Dim sDapAn As String
sDapAn = InputBox("Dem dap an:")
MsgBox DemDapAn(sDapAn)
End Sub

 

[toandev]

Bạn thử code này xem.

Function DemDapAn(ByVal sDapAn As String) As Long
    Selection.HomeKey Unit:=wdStory
    With Selection.Find
        .ClearFormatting
        .Font.Underline = wdUnderlineSingle
        .Text = sDapAn
        .Forward = True
        .Format = True
        .Wrap = wdFindStop
        .MatchCase = True
        Application.ScreenUpdating = False
        Do While .Execute
            DemDapAn = DemDapAn + 1
        Loop
        Application.ScreenUpdating = True
    End With
End Function
Sub Test()
Dim sDapAn As String
sDapAn = InputBox("Dem dap an:")
MsgBox DemDapAn(sDapAn)
End Sub

Tuyệt quá thầy/cô. Cảm ơn thầy