Sub M_snb()
    sn = Columns(1).SpecialCells(2)
    sp = sn
    
    For j = 1 To UBound(sn)
       sp(j, 1) = Columns(1).Cells(1)(j).Font.Bold
    Next
    
    With CreateObject("Word.document")
        .Content = Join(Application.Transpose(sn), vbCr)
        For j = 1 To UBound(sp)
           .Paragraphs(j).Range.Font.Bold = sp(j, 1)
        Next
        .Content.ListFormat.ApplyListTemplateWithLevel ListGalleries(1).ListTemplates(1)
    End With
End Sub