VSTO 实现word的多级列表功能

灰太狼 2023-01-13 08:59 147阅读 0赞

在使用vsto开发word插件的时候，需要实现word的多级列表的功能，如 ，然后再word中录制宏，看vba代码，然后再转换成c\#代码。

VBA 代码

With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(1)
            .NumberFormat = "%1"
            .TrailingCharacter = wdTrailingTab
            .NumberStyle = wdListNumberStyleArabic
            .NumberPosition = CentimetersToPoints(0)
            .Alignment = wdListLevelAlignLeft
            .TextPosition = CentimetersToPoints(0.75)
            .TabPosition = wdUndefined
            .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 = ""
            End With
            .LinkedStyle = ""
        End With
        With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(2)
            .NumberFormat = "%1.%2"
            .TrailingCharacter = wdTrailingTab
            .NumberStyle = wdListNumberStyleArabic
            .NumberPosition = CentimetersToPoints(0.75)
            .Alignment = wdListLevelAlignLeft
            .TextPosition = CentimetersToPoints(1.75)
            .TabPosition = wdUndefined
            .ResetOnHigher = 1
            .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 = ""
            End With
            .LinkedStyle = ""
        End With
        With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(3)
            .NumberFormat = "%1.%2.%3"
            .TrailingCharacter = wdTrailingTab
            .NumberStyle = wdListNumberStyleArabic
            .NumberPosition = CentimetersToPoints(1.5)
            .Alignment = wdListLevelAlignLeft
            .TextPosition = CentimetersToPoints(2.5)
            .TabPosition = wdUndefined
            .ResetOnHigher = 2
            .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 = ""
            End With
            .LinkedStyle = ""
        End With
        With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(4)
            .NumberFormat = "%1.%2.%3.%4"
            .TrailingCharacter = wdTrailingTab
            .NumberStyle = wdListNumberStyleArabic
            .NumberPosition = CentimetersToPoints(2.25)
            .Alignment = wdListLevelAlignLeft
            .TextPosition = CentimetersToPoints(3.5)
            .TabPosition = wdUndefined
            .ResetOnHigher = 3
            .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 = ""
            End With
            .LinkedStyle = ""
        End With
        With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(5)
            .NumberFormat = "%1.%2.%3.%4.%5"
            .TrailingCharacter = wdTrailingTab
            .NumberStyle = wdListNumberStyleArabic
            .NumberPosition = CentimetersToPoints(3)
            .Alignment = wdListLevelAlignLeft
            .TextPosition = CentimetersToPoints(4.5)
            .TabPosition = wdUndefined
            .ResetOnHigher = 4
            .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 = ""
            End With
            .LinkedStyle = ""
        End With
        With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(6)
            .NumberFormat = "%1.%2.%3.%4.%5.%6"
            .TrailingCharacter = wdTrailingTab
            .NumberStyle = wdListNumberStyleArabic
            .NumberPosition = CentimetersToPoints(3.75)
            .Alignment = wdListLevelAlignLeft
            .TextPosition = CentimetersToPoints(5.75)
            .TabPosition = wdUndefined
            .ResetOnHigher = 5
            .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 = ""
            End With
            .LinkedStyle = ""
        End With
        With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(7)
            .NumberFormat = "%1.%2.%3.%4.%5.%6.%7"
            .TrailingCharacter = wdTrailingTab
            .NumberStyle = wdListNumberStyleArabic
            .NumberPosition = CentimetersToPoints(4.5)
            .Alignment = wdListLevelAlignLeft
            .TextPosition = CentimetersToPoints(6.75)
            .TabPosition = wdUndefined
            .ResetOnHigher = 6
            .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 = ""
            End With
            .LinkedStyle = ""
        End With
        With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(8)
            .NumberFormat = "%1.%2.%3.%4.%5.%6.%7.%8"
            .TrailingCharacter = wdTrailingTab
            .NumberStyle = wdListNumberStyleArabic
            .NumberPosition = CentimetersToPoints(5.25)
            .Alignment = wdListLevelAlignLeft
            .TextPosition = CentimetersToPoints(7.75)
            .TabPosition = wdUndefined
            .ResetOnHigher = 7
            .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 = ""
            End With
            .LinkedStyle = ""
        End With
        With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(9)
            .NumberFormat = "%1.%2.%3.%4.%5.%6.%7.%8.%9"
            .TrailingCharacter = wdTrailingTab
            .NumberStyle = wdListNumberStyleArabic
            .NumberPosition = CentimetersToPoints(6)
            .Alignment = wdListLevelAlignLeft
            .TextPosition = CentimetersToPoints(9)
            .TabPosition = wdUndefined
            .ResetOnHigher = 8
            .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 = ""
            End With
            .LinkedStyle = ""
        End With
        ListGalleries(wdOutlineNumberGallery).ListTemplates(1).Name = ""
        Selection.Range.ListFormat.ApplyListTemplateWithLevel ListTemplate:= _
            ListGalleries(wdOutlineNumberGallery).ListTemplates(1), _
            ContinuePreviousList:=False, ApplyTo:=wdListApplyToWholeList, _
            DefaultListBehavior:=wdWord10ListBehavior
        Selection.Range.SetListLevel Level:=2
    End Sub

c\#代码

Object oOutlineNumbered = true;
                Object oName = "MyLT";
    
                Object owdListNumberStyleArabic = 0;
                Object wdOutlineNumberGallery = 3;
    
                Microsoft.Office.Interop.Word.Application app = Globals.ThisAddIn.Application;
    
                Word.ListTemplate lt = Globals.ThisAddIn.Application.ListGalleries[Word.WdListGalleryType.wdOutlineNumberGallery].ListTemplates[5];
    
                for (int i = 1; i < 10; i++)
                {
                    lt.ListLevels[i].LinkedStyle = "";
                    lt.ListLevels[i].NumberStyle = (Word.WdListNumberStyle)owdListNumberStyleArabic;
                    lt.ListLevels[i].TextPosition = Globals.ThisAddIn.Application.CentimetersToPoints((float)1);
                   // lt.ListLevels[i].TrailingCharacter = 0;
                    lt.ListLevels[i].NumberPosition = Globals.ThisAddIn.Application.CentimetersToPoints((float)0);
                    //lt.ListLevels[i].Alignment = 0;
                    lt.ListLevels[i].StartAt = 1;
                    lt.ListLevels[i].ResetOnHigher = i - 1;
                }
    
                lt.ListLevels[1].NumberFormat = "%1"; 
                lt.ListLevels[2].NumberFormat = "%1.%2";
                lt.ListLevels[3].NumberFormat = "%1.%2.%3";
                lt.ListLevels[4].NumberFormat = "%1.%2.%3.%4";
                lt.ListLevels[5].NumberFormat = "%1.%2.%3.%4.%5";
                lt.ListLevels[6].NumberFormat = "%1.%2.%3.%4.%5.%6";
                lt.ListLevels[7].NumberFormat = "%1.%2.%3.%4.%5.%6.%7";
                lt.ListLevels[8].NumberFormat = "%1.%2.%3.%4.%5.%6.%7.%8";
                lt.ListLevels[9].NumberFormat = "%1.%2.%3.%4.%5.%6.%7.%8.%9";
    
                object bContinuePrevList = false;
                object applyTo = Word.WdListApplyTo.wdListApplyToWholeList;
                object defBehavior = Word.WdDefaultListBehavior.wdWord9ListBehavior;
                
                Globals.ThisAddIn.Application.Selection.Range.ListFormat.ApplyListTemplateWithLevel(lt, bContinuePrevList, applyTo, defBehavior);
    
     然后在设置level
    objRng.SetListLevel(2);