Exporting to Word (bulleted list)

hcl-bot · June 13, 2008, 6:46am

Hi all,

I’m having problems with creating bulleted lists in Word when

exporting LN documents. I just don’t know how to include VBA class ListGallery, which is used to create lists. I can use “Selection.Range.ListFormat.ApplyBulletDefault” but it behaves strangely when using indent and outdent. Does anyone have any idea how to convert following test code to Lotusscript:

With ListGalleries(wdBulletGallery).ListTemplates(1).ListLevels(1)

    .NumberFormat = ChrW(61623)

    ......

    With .Font

        .....

        .Name = "Symbol"

    End With

    .LinkedStyle = ""

End With

ListGalleries(wdBulletGallery).ListTemplates(1).Name = ""

Selection.Range.ListFormat.ApplyBulletDefault

ApplyListTemplate ListTemplate:=ListGalleries( _

    wdBulletGallery).ListTemplates(1), ContinuePreviousList:=False, ApplyTo:= _

    wdListApplyToWholeList, DefaultListBehavior:=wdWord10ListBehavior

Selection.TypeParagraph

Selection.TypeText Text:="a"

Selection.TypeParagraph

Selection.TypeText Text:="b"

Selection.TypeParagraph

Selection.Range.ListFormat.ListIndent

Selection.TypeText Text:="1"

Selection.TypeParagraph

Selection.TypeText Text:="2"

Selection.TypeParagraph

Selection.Range.ListFormat.ListOutdent

Selection.TypeText Text:="c"

Selection.TypeParagraph

Any ideas?

Regards, Max

hcl-bot · March 25, 2009, 4:49pm

Subject: Exporting to Word (bulleted list)

Hi, I’m working on exporting a LN doc to Word and need to use a Numbered list. Did you happen to work this out? It’s been very frustrating trying to figure out the List Galleries class. I’ve searched this forum for 3/4 days now as well as msdn and openntf.org and can’t find any thing that relates to the ListGallery issue. This post is the closest to what I’m trying to accomplish. I can’t use 3rd party products cause were not allowed so I’m stuck with trying to make this work with lotusscript.

If any body has any ideas, I would greatly appreciate any assistance. Here’s my code:

Const wdNumberGallery = 2

Const wdTrailingTab = 0

Const wdListNumberStyleArabic = 0

Const wdListLevelAlignLef = 0

Const wdListApplyToWholeList = 0

Const wdWord10ListBehavior = 2

Const wdCharacter = 1

Const wdNumberParagraph = 1

Const wdLine = 5

Const wdUndefined = 9999999

Dim ws As New NotesUIWorkspace

Dim session As New NotesSession

Dim dB as NotesDatabase

Dim uidoc As NotesUIDocument

Dim doc As NotesDoucment, docCert As NotesDocument, docWord As NotesDocument

Dim wdApp as Variant, wdDoc as Variant

Set dB = session.CurrentDatabase

Set doc = uidoc.Document

Set docCert = New Notesdocument (dB)

Filename = “TEST_Document.doc”

“Calling a dialog box that has my fields for the user to enter, etc. on the docCert form”

“Create Word Doc”

Set wdApp = CreateObject(“Word.Application”)

wdApp.Visible = True

Set wdDoc = wdApp.Documents.Add()

Set wdSelection = wdApp.Selection

wdSelection.Font.Name = “Default Monospace”

wdSelectino.Font.Size = “12”

wdApp.Activate

“Insert data”

wdSelection.TypeText Chr(9) & Chr(9) & strDate