word vba中没有缩进的多级列表

Question

我有一个宏，可以在文档中搜索[#] 并使其成为列表编号，具有多级。每个主题标签代表级别编号。即

• [#] 级别 1 - - 结果 - -> 1.
• [##] 2 级 -- 结果 --> 1.1.
• [###] 3 级 -- 结果 --> 1.1.1。

所以它工作得很好。但我不希望我的文本缩进，而是保持在缩进级别。因为我的文本在表格中，所以缩进时会很疯狂。

工作代码在这里：

Sub Nummerierung_Numeric()

'Makro Written by M.B.A

Dim Level As Integer

    With ActiveDocument.Range.Find 'or Selection.Range.Find
        .Text = "\[#*\]"
        .MatchWildcards = True
        
        Do While .Execute
        If .Parent.Information(wdWithInTable) Then
                Level = Len(.Parent.Text) - 2
                .Parent.Style = ActiveDocument.Styles("1 / 1.1 / 1.1.1")
                .Parent.ListFormat.ListLevelNumber = Level
                .Parent.Delete
        End If
        Loop
        
        .MatchWildcards = False
    End With
End Sub

Answer 1

您可以修改1 / 1.1 / 1.1.1 样式设置，使使用此样式的任何段落都没有缩进，但请注意，这可能会影响您可能需要缩进的段落（在这种情况下，您需要为此定义一个新样式）目的）：

    Const newNumPos As Long = 0
    Const newTextPos As Long = 18 'Change as required, this is the Text Indent (in Points)
    
    With ActiveDocument.Styles("1 / 1.1 / 1.1.1").ListTemplate
        .ListLevels(1).TextPosition = newTextPos
        .ListLevels(1).NumberPosition = newNumPos
        
        .ListLevels(2).TextPosition = newTextPos
        .ListLevels(2).NumberPosition = newNumPos
                
        .ListLevels(3).TextPosition = newTextPos
        .ListLevels(3).NumberPosition = newNumPos
    End With