☰

在 Word 文档中将列表中的所有级别增加 1

tag-icon • tag-icon microsoft-word
在 Word 文档中将列表中的所有级别增加 1

我有一个 Word 文档，它使用多级列表分为不同的部分。问题是我需要将整个文档复制到另一个更高级别的文档中。那么有没有办法自动将整个多级列表再增加一级？

编辑01：当前样式如下：

1- OldLevel1
  1-1- OldLevel2
    1-1-1- OldLevel3
2- OldLevel1
  2-1- OldLevel2

我想把它改成这样：

1- NewLevel1
  1-1- OldLevel1
      1-1-1- OldLevel2
        1-1-1-1- OldLevel3
    1-2- OldLevel1
      1-2-1- OldLevel2

答案1

根据您的描述，您已将多级列表链接到标题样式，如果是，那么最简单的方法可能是使用宏，如下所示：

Sub test()
    Dim p As Paragraph
    For Each p In ActiveDocument.Paragraphs
        If Left(p.Style, 7) = "Heading" Then p.Style = Left(p.Style, 8) & CInt(Right(p.Style, 1)) + 1
    Next p
End Sub

注意：如果您的样式不是像“Heading x”这样命名的，请修改代码。

答案2

只需突出显示要移出或移入的行（无需选择所有内容，只需选择要移动的行），然后按 或Tab。Shift-Tab每按一次 tab 键都会缩进/取消缩进整个选择，并更改列表中这些行的级别。

相关内容