Code phần VBA của thầy Tuấn

Sub test()
    Dim rng As Range
    Dim keyword() As String
    Set rng = Selection.Range
    ReDim keyword(1, 99)
    With Selection.Find
        .ClearFormatting
        .Highlight = True
        .Text = ""
        .Forward = True
        idx = 0
        Do While .Execute
            If Selection.Range.InRange(rng) Then
                keyword(0, idx) = ""
                keyword(1, idx) = Selection.Text
                Selection.Range.HighlightColorIndex = wdNoHighlight
                Selection.Text = "______"
                Selection.Collapse direction:=wdCollapseEnd
                idx = idx  1
            Else
                Exit Do
            End If
        Loop
        idx = idx - 1
        If idx = -1 Then
            MsgBox "Khong tim thay tu khoa!"
            Exit Sub
        End If
        ReDim Preserve keyword(1, idx)
        rng.Select
        Selection.Collapse direction:=wdCollapseEnd
        Selection.TypeParagraph
'bat dau xuat ra may cau A. B. C.
        idx2 = 0
        For idx = 0 To UBound(keyword, 2)
            Selection.TypeText keyword(1, idx) & vbCrLf
            idx2 = idx2  1
        Next
            Selection.MoveUp Unit:=wdParagraph, Count:=idx2, Extend:=wdExtend
    End With
    With ListGalleries(wdNumberGallery).ListTemplates(4).ListLevels(1)
        .NumberFormat = "%1."
        .NumberStyle = wdListNumberStyleUppercaseLetter
        .StartAt = 1
    End With
    ListGalleries(wdNumberGallery).ListTemplates(4).Name = ""
    Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=ListGalleries( _
        wdNumberGallery).ListTemplates(4), ContinuePreviousList:=False, ApplyTo:= _
        wdListApplyToWholeList, DefaultListBehavior:=wdWord10ListBehavior
End Sub