使用VBA选择Word中预定义的多级列表样式

我试图在每次输入文本之前，在不重新定义VBA的情况下，确定选择预定义多级列表的正确语法

我仍在学习VBA，知道录制宏的局限性。显然，当我尝试应用预定义的多级列表时，记录器会设置列表的所有属性

我所要做的就是选择预定义的多层次列表，标题为“MyList”，键入“Text”，转到下一行，再次键入“Text”。我的VBA超过100行，因为它定义了列表的每一级，如果我已经在使用保存的列表，我确信这是不必要的

这不是我确切的多级列表，而是一个内置列表

Sub-Macro3（）
'
'宏3宏
'
'
使用ListGalleries（wdOutlineNumberGallery）。ListTemplates（1）。ListLevel（1）
.NumberFormat=“%1）”
.TrailingCharacter=wdTrailingTab
.NumberStyle=wdlistnumberstyle
.NumberPosition=英寸设定点（0）
.Alignment=wdListLevelAlignLeft
.TextPosition=英寸设定点（0.25）
.TabPosition=wdUndefined
.ResetOnHigher=0
.StartAt=1
使用.Font
.Bold=wdUndefined
.Italic=未定义
.StrikeThrough=wdUndefined
.Subscript=wdUndefined
.Superscript=未定义
.Shadow=wdUndefined
.Outline=wdUndefined
.Emboss=wdUndefined
.雕刻=未定义
.AllCaps=wdUndefined
.Hidden=wdUndefined
.Underline=wdUndefined
.Color=wd未定义
.Size=wdUndefined
.Animation=wdUndefined
.DoubleStreethrough=wdUndefined
.Name=“”
以
.LinkedStyle=“”
以
使用ListGalleries（wdOutlineNumberGallery）。ListTemplates（1）。ListLevel（2）
.NumberFormat=“%2）”
.TrailingCharacter=wdTrailingTab
.NumberStyle=wdListNumberStyleLowercaseLetter
.NumberPosition=英寸设定点（0.25）
.Alignment=wdListLevelAlignLeft
.TextPosition=英寸设定点（0.5）
.TabPosition=wdUndefined
.ResetOnHigher=1
.StartAt=1
使用.Font
.Bold=wdUndefined
.Italic=未定义
.StrikeThrough=wdUndefined
.Subscript=wdUndefined
.Superscript=未定义
.Shadow=wdUndefined
.Outline=wdUndefined
.Emboss=wdUndefined
.雕刻=未定义
.AllCaps=wdUndefined
.Hidden=wdUndefined
.Underline=wdUndefined
.Color=wd未定义
.Size=wdUndefined
.Animation=wdUndefined
.DoubleStreethrough=wdUndefined
.Name=“”
以
.LinkedStyle=“”
以
使用ListGalleries（wdOutlineNumberGallery）。ListTemplates（1）。ListLevel（3）
.NumberFormat=“%3）”
.TrailingCharacter=wdTrailingTab
.NumberStyle=wdListNumberStyleLowercaseRoman
.NumberPosition=英寸设定点（0.5）
.Alignment=wdListLevelAlignLeft
.TextPosition=英寸设定点（0.75）
.TabPosition=wdUndefined
.ResetOnHigher=2
.StartAt=1
使用.Font
.Bold=wdUndefined
.Italic=未定义
.StrikeThrough=wdUndefined
.Subscript=wdUndefined
.Superscript=未定义
.Shadow=wdUndefined
.Outline=wdUndefined
.Emboss=wdUndefined
.雕刻=未定义
.AllCaps=wdUndefined
.Hidden=wdUndefined
.Underline=wdUndefined
.Color=wd未定义
.Size=wdUndefined
.Animation=wdUndefined
.DoubleStreethrough=wdUndefined
.Name=“”
以
.LinkedStyle=“”
以
使用ListGalleries（wdOutlineNumberGallery）。ListTemplates（1）。ListLevel（4）
.NumberFormat=“（%4）”
.TrailingCharacter=wdTrailingTab
.NumberStyle=wdlistnumberstyle
.NumberPosition=英寸设定点（0.75）
.Alignment=wdListLevelAlignLeft
.TextPosition=英寸停止点（1）
.TabPosition=wdUndefined
.ResetOnHigher=3
.StartAt=1
使用.Font
.Bold=wdUndefined
.Italic=未定义
.StrikeThrough=wdUndefined
.Subscript=wdUndefined
.Superscript=未定义
.Shadow=wdUndefined
.Outline=wdUndefined
.Emboss=wdUndefined
.雕刻=未定义
.AllCaps=wdUndefined
.Hidden=wdUndefined
.Underline=wdUndefined
.Color=wd未定义
.Size=wdUndefined
.Animation=wdUndefined
.DoubleStreethrough=wdUndefined
.Name=“”
以
.LinkedStyle=“”
以
使用ListGalleries（wdOutlineNumberGallery）。ListTemplates（1）。ListLevel（5）
.NumberFormat=“（%5）”
.TrailingCharacter=wdTrailingTab
.NumberStyle=wdListNumberStyleLowercaseLetter
.NumberPosition=英寸停止点（1）
.Alignment=wdListLevelAlignLeft
.TextPosition=英寸设定点（1.25）
.TabPosition=wdUndefined
.ResetOnHigher=4
.StartAt=1
使用.Font
.Bold=wdUndefined
.Italic=未定义
.StrikeThrough=wdUndefined
.Subscript=wdUndefined
.Superscript=未定义
.Shadow=wdUndefined
.Outline=wdUndefined
.Emboss=wdUndefined
.雕刻=未定义
.AllCaps=wdUndefined
.Hidden=wdUndefined
.下属
Selection.Style = ActiveDocument.Styles("Heading 1")