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單詞子項目點

回答

相關問題