Insert Bullet in Ms.Word Text from Ms.Access

[Repath]

Purpose: Generate Completely formatted letter in Ms.Word from Ms.Access.

I Designed as screen with some options. Clicking on GENERATE button in Ms.Access Form displays a letter with the selected options in Word.

This Went on well, but the problem arose when I needed to input BULLET in the letter for some options.

Question: How could I insert a bullet in a running text in Word, with code from Ms.Access.

eg:
This is my first statement.
<bullet> I was first in my class
<bullet> Later I dropped to 5th after I thought to fall in love

 

[ajetrumpet]

this is complicated. but here's a hint on how to go about finding out how to do it:

    With ListGalleries(wdBulletGallery).ListTemplates(1).ListLevels(1)
        .NumberFormat = ChrW(61623)
        .TrailingCharacter = wdTrailingTab
        .NumberStyle = wdListNumberStyleBullet
        .NumberPosition = InchesToPoints(0.25)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = InchesToPoints(0.5)
        .TabPosition = InchesToPoints(0.5)
        .ResetOnHigher = 0
        .StartAt = 1
        With .Font
            .Bold = wdUndefined
            .Italic = wdUndefined
            .StrikeThrough = wdUndefined
            .Subscript = wdUndefined
            .Superscript = wdUndefined
            .Shadow = wdUndefined
            .Outline = wdUndefined
            .Emboss = wdUndefined
            .Engrave = wdUndefined
            .AllCaps = wdUndefined
            .Hidden = wdUndefined
            .Underline = wdUndefined
            .Color = wdUndefined
            .Size = wdUndefined
            .Animation = wdUndefined
            .DoubleStrikeThrough = wdUndefined
            .Name = "Symbol"
        End With
        .LinkedStyle = ""
    End With
    ListGalleries(wdBulletGallery).ListTemplates(1).Name = ""
    Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=ListGalleries( _
        wdBulletGallery).ListTemplates(1), ContinuePreviousList:=False, ApplyTo:= _
        wdListApplyToWholeList, DefaultListBehavior:=wdWord10ListBehavior

can you guess how I produced that code?