Skip to main content

USING MICROSOFT WORD NUMBERED LIST

  • February 9, 2015
  • 2 replies
  • 0 views
A
  • Anonymous

Hello,

I'm creating a Word file and trying to insert a numbered list by using a cobol definition of Word.

I've created a very simple Word macro but I can not translate to Cobol.

Can anybody help me?

This is the macro code:

    ListGalleries(wdNumberGallery).ListTemplates(1).Name = ""
    Selection.Range.ListFormat.ApplyListTemplateWithLevel ListTemplate:= _
        ListGalleries(wdNumberGallery).ListTemplates(1), ContinuePreviousList:= _
        False, ApplyTo:=wdListApplyToWholeList, DefaultListBehavior:= _
        wdWord10ListBehavior
    Selection.TypeText Text:="TEST"

Thanks!!


#AcuCobol
#extend32-bitRuntime

    2 replies

    D

    Hello,

    I'm creating a Word file and trying to insert a numbered list by using a cobol definition of Word.

    I've created a very simple Word macro but I can not translate to Cobol.

    Can anybody help me?

    This is the macro code:

        ListGalleries(wdNumberGallery).ListTemplates(1).Name = ""
        Selection.Range.ListFormat.ApplyListTemplateWithLevel ListTemplate:= _
            ListGalleries(wdNumberGallery).ListTemplates(1), ContinuePreviousList:= _
            False, ApplyTo:=wdListApplyToWholeList, DefaultListBehavior:= _
            wdWord10ListBehavior
        Selection.TypeText Text:="TEST"

    Thanks!!


    #AcuCobol
    #extend32-bitRuntime

    inquire word-app, @ListGalleries

                                  in word-ListGalleries.

              modify word-ListGalleries, @Item = 2

                                         giving word-ListGallery.

              inquire word-ListGallery, @ListTemplates in

                                         word-ListTemplates.

              modify word-ListTemplates, @Item = 1

                              giving word-ListTemplate.

              inquire word-ListTemplate, @ListLevels

                              in word-ListLevels.

              modify word-ListLevels, @Item = 1 giving word-ListLevel.

              modify word-ListLevel,

                          @NumberFormat = "%1.",

                          @TrailingCharacter = wdTrailingTab,

                          @NumberStyle = wdListNumberStyleArabic,

                          @NumberPosition = 28,35,

                          @Alignment = wdListLevelAlignLeft,

                          @TextPosition = 28,35,

                          @TabPosition = 28,35,

                          @ResetOnHigher = 0,

                          @StartAt = 1.

              modify word-ListTemplate, @Name = "".

              modify word-app, @Selection::Range::ListFormat::

                      ApplyListTemplate(word-ListTemplate, 0, 1, 1).

              modify word-app, @Selection::TypeText ="esto es".

              modify word-app, @Selection::TypeParagraph().

              MODIFY word-app, @Selection::TypeText ="Nada".

    D

    Hello,

    I'm creating a Word file and trying to insert a numbered list by using a cobol definition of Word.

    I've created a very simple Word macro but I can not translate to Cobol.

    Can anybody help me?

    This is the macro code:

        ListGalleries(wdNumberGallery).ListTemplates(1).Name = ""
        Selection.Range.ListFormat.ApplyListTemplateWithLevel ListTemplate:= _
            ListGalleries(wdNumberGallery).ListTemplates(1), ContinuePreviousList:= _
            False, ApplyTo:=wdListApplyToWholeList, DefaultListBehavior:= _
            wdWord10ListBehavior
        Selection.TypeText Text:="TEST"

    Thanks!!


    #AcuCobol
    #extend32-bitRuntime

    inquire word-app, @ListGalleries

                                  in word-ListGalleries.

              modify word-ListGalleries, @Item = 2

                                         giving word-ListGallery.

              inquire word-ListGallery, @ListTemplates in

                                         word-ListTemplates.

              modify word-ListTemplates, @Item = 1

                              giving word-ListTemplate.

              inquire word-ListTemplate, @ListLevels

                              in word-ListLevels.

              modify word-ListLevels, @Item = 1 giving word-ListLevel.

              modify word-ListLevel,

                          @NumberFormat = "%1.",

                          @TrailingCharacter = wdTrailingTab,

                          @NumberStyle = wdListNumberStyleArabic,

                          @NumberPosition = 28,35,

                          @Alignment = wdListLevelAlignLeft,

                          @TextPosition = 28,35,

                          @TabPosition = 28,35,

                          @ResetOnHigher = 0,

                          @StartAt = 1.

              modify word-ListTemplate, @Name = "".

              modify word-app, @Selection::Range::ListFormat::

                      ApplyListTemplate(word-ListTemplate, 0, 1, 1).

              modify word-app, @Selection::TypeText ="esto es".

              modify word-app, @Selection::TypeParagraph().

              MODIFY word-app, @Selection::TypeText ="Nada".

    Recent badge winners

    Explore all badges
    Terms & ConditionsAccessibility statement