Programming a Bulletlist in Word

[Viruland]

I'm writing data from VB.net to a Word Document. Is there a way to create a BulletList in my Word file.



Live fast, die young and leave a beautiful corpse behind.

 

[ca8msm]

I think the easiest thing to do when working with Office applications (wherever possible) is to record a macro of what you want to do and then look at the VBA that is generated (as you can work through it to add the relevant bits into your VB.NET app. e.g. I created a bullet point in Word and wrote the word "Test" next to it and the code it generated was:

Sub Macro1()

    With ListGalleries(wdBulletGallery).ListTemplates(1).ListLevels(1)
        .NumberFormat = ChrW(61623)
        .TrailingCharacter = wdTrailingTab
        .NumberStyle = wdListNumberStyleBullet
        .NumberPosition = CentimetersToPoints(0.63)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(1.27)
        .TabPosition = CentimetersToPoints(1.27)
        .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
    ActiveWindow.ActivePane.LargeScroll Down:=-1
    Selection.TypeText Text:="Test"
End Sub

which suggests to me that you would have to use the following method to add a bulleted list:

myWordApp.Selection.Range.ListFormat.ApplyListTemplate

____________________________________________________________

Need help finding an answer?

Try the Search Facility or read FAQ222-2244 on how to get better results.