Sub Demo()
Application.ScreenUpdating = False
Dim Stl As Style, bBulletA As Boolean, bBulletB As Boolean
bBulletA = False: bBulletB = False
For Each Stl In ActiveDocument.Styles
  If Stl.NameLocal = "BulletA" Then bBulletA = True
  If Stl.NameLocal = "BulletB" Then bBulletB = True
Next
If bBulletA = False Then Call AddBulletStyle("BulletA", ChrW(61623), InchesToPoints(0), InchesToPoints(0.5), True)
If bBulletB = False Then Call AddBulletStyle("BulletB", "o", InchesToPoints(1), InchesToPoints(1.5), False)
With ActiveDocument.Range
  .Style = "BulletA"
  .Paragraphs.First.Style = "Normal"
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "^13Exceeded[!^13]@^13"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchWildcards = True
    .Execute
  End With
  Do While .Find.Found
    .Start = .Start + 1
    .End = .End - 1
    .Style = "BulletB"
    .Collapse wdCollapseEnd
    .Find.Execute
  Loop
End With
Application.ScreenUpdating = True
End Sub
 
Private Sub AddBulletStyle(StrNm As String, StrBullet As String, iIndnt As Single, iHang As Single, bFntBld As Boolean)
Dim Stl As Style
Set Stl = ActiveDocument.Styles.Add(Name:=StrNm, Type:=wdStyleTypeParagraph)
With ListGalleries(wdBulletGallery).ListTemplates(1).ListLevels(1)
  .NumberFormat = StrBullet
  .TrailingCharacter = wdTrailingTab
  .NumberStyle = wdListNumberStyleBullet
  .NumberPosition = InchesToPoints(0)
  .Alignment = wdListLevelAlignLeft
  .ResetOnHigher = 0
  .StartAt = 1
  .LinkedStyle = StrNm
End With
With Stl
  .AutomaticallyUpdate = False
  .BaseStyle = "Normal"
  .LinkToListTemplate _
    ListTemplate:=ListGalleries(wdBulletGallery).ListTemplates(1), ListLevelNumber:=1
  With .ParagraphFormat
    .LeftIndent = iHang
    .RightIndent = InchesToPoints(0)
    .FirstLineIndent = -iHang + iIndnt
    .TabStops.ClearAll
    .TabStops.Add Position:=iHang, _
      Alignment:=wdAlignTabLeft, Leader:=wdTabLeaderSpaces
  End With
  .Font.Bold = bFntBld
End With
End Sub

'== I placed Sub AddBullet () in the "General Section" of the Module. The only change I made there was change Stl As Style to Stl As Word.Style

'== Followed by my code:
Sub Mycode()
 t=Worksheets(1).Range("A3:A10000").SpecialCells(xlCellTypeConstants).Cells.Count
    Set a = Worksheets(1).Range("A5").Cells
    Set b = Worksheets(1).Range("B5").Cells
    Dim wrdApp As Word.Application
    Dim wrdDoc As Word.Document
    Dim strFirstWord As String
    Dim oPara As Word.Paragraph
    Set wrdApp = CreateObject("Word.Application")
    wrdApp.Visible = True
    Set wrdDoc = wrdApp.Documents.Add

    Application.ScreenUpdating = false
    wrdApp.WindowState = wdWindowStateMinimize

    With wrdApp.Selection
       .TypeText Text:="Drafted" &  Something
       .TypeParagraph
        For i = 1 To t
            .ParagraphFormat.LineSpacingRule = wdLineSpaceSingle
            .ParagraphFormat.LineSpacing = 10
            .TypeText Text:=a.Value
            .TypeParagraph
            .TypeText Text:=b.Value
            .TypeParagraph
            Set a = a.Offset(1, 0).Cells
            Set b = b.Offset(1, 0).Cells
        Next i
     End With
    
    
     For Each oPara In wrdDoc.Paragraphs
        strFirstWord = oPara.Range.Words(1).Text
        With oPara.Range.Font
             .Name = "Tahoma"
             .Size = 10
        End With
        If Trim(strFirstWord) = "Drafted" Then
           oPara.Range.Font.Bold = True
        ElseIf Trim(strFirstWord) <> "Drafted" And Trim(strFirstWord) <> "Exceeded" Then
           oPara.Range.Font.Bold = True
           oPara.SpaceAfter = 0 
        ElseIf Trim(strFirstWord) = "Exceeded" Then
           For i = 2 To 20
               oPara.Range.Characters(i).Font.Italic = True
           Next i
        End If
    Next

'== Followed by Demo()  WIITHIN MyCode entered as
    Dim Stl As Word.Style, bBulletA As Boolean, bBulletB As Boolean
    bBulletA = False: bBulletB = False
    For Each Stl In wrdDoc.Styles
      If Stl.NameLocal = "BulletA" Then bBulletA = True
      If Stl.NameLocal = "BulletB" Then bBulletB = True
    Next
    If bBulletA = False Then Call AddBulletStyle("BulletA", ChrW(61623), InchesToPoints(0), InchesToPoints(0.5), True)
    If bBulletB = False Then Call AddBulletStyle("BulletB", "o", InchesToPoints(1), InchesToPoints(1.5), False)
    With wrdDoc.Range
      .Style = "BulletA"
      .Paragraphs.First.Style = "Normal"
      With .Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = "^13Exceeded[!^13]@^13"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchWildcards = True
        .Execute
      End With
      Do While .Find.Found
        .Start = .Start + 1
        .End = .End - 1
        .Style = "BulletB"
        .Collapse wdCollapseEnd
        .Find.Execute
      Loop
    End With

'== Followed by

    wrdApp.WindowState = wdWindowStateNormal
    Set wrdApp = Nothing
    Set wrdDoc = Nothing
     Application.ScreenUpdating = True
end sub