expression.AddPictureBullet(FileName, Range)
expression Required. An expression that returns an InlineShapes object.
FileName Required String. The file name of the image you want to use for the picture bullet.
Range Optional Variant. The range to which Microsoft Word adds the picture bullet. Word adds the picture bullet to each paragraph in the range. If this argument is omitted, Word adds the picture bullet to each paragraph in the current selection.
Example
This example adds a picture bullet to each paragraph in the selected text using a file called "RedBullet.gif."
Selection.InlineShapes.AddPictureBullet _
"C:\Art files\RedBullet.gif"