VBA单词子项目点

我想弄清楚如何使用数字项目符号点后的阿尔法项目符号点。具体来说，我有第1到第4个带有文本的项目符号，然后我希望在第4个数字下面缩进的A，B，C项目符号上写更多的文本，然后继续输入数字5,6等。这是在vba中完成的，以生成单词文档。这些行上的信息是静态的，不会改变。我也很好奇listtemplate类型让我箭头格式化的子弹。VBA单词子项目点

ListGalleries(wdOutlineNumberGallery).ListTemplates(2).Name = "" 
.Selection.range.ListFormat.ApplyListTemplate  ListTemplate:=.ListGalleries(wdOutlineNumberGallery).ListTemplates(2), _ 
    defaultlistbehavior:=wdWord3ListBehavior

。

来源

2017-08-03 Philip

记录一个宏如果你做子弹，然后检查结果代码 – jsotola

我记录了一个更大的宏，但是上面引用了生成项目符号的部分。但是，我不太清楚如何引用子项目。 – Philip

你是什么意思的“参考子弹”？我发布了一些代码，但是，不知何故，我认为你正在寻求别的东西。您发布的代码将特定列表模板应用于文本。它没有定义模板本身。 – jsotola

你真的必须以编程的方式吗？您可以在段落选项卡中定义一个新的多级列表。

这里是从录制的宏在那里我改变了1级子弹数量和level2的子弹阿尔法

录制的宏有9级子弹

有可能的，这是你的答案的摘录：

ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(2).NumberFormat = "%2"

记录的代码是下面

With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(1) 
    .NumberFormat = "%1" 
    .TrailingCharacter = wdTrailingTab 
    .NumberStyle = wdListNumberStyleArabic 
    .NumberPosition = InchesToPoints(0) 
    .Alignment = wdListLevelAlignLeft 
    .TextPosition = InchesToPoints(0.25) 
    .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 = "%2" 
    .TrailingCharacter = wdTrailingTab 
    .NumberStyle = wdListNumberStyleUppercaseLetter 
    .NumberPosition = InchesToPoints(0.25) 
    .Alignment = wdListLevelAlignLeft 
    .TextPosition = InchesToPoints(0.5) 
    .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

来源

2017-08-04 19:27:50 jsotola

VBA单词子项目点

回答

相关问题