vba - Word 2013 VB 脚本循环遍历文档并更改样式

Question

我需要一个脚本，它遍历 word 文档并将标题样式或图像后面的段落样式更改为没有首行缩进的自定义样式。

如何循环遍历 word 文档中的段落/标题/项目？我如何获得风格？之后如何设置样式？

目标很简单:我希望段落的第一行缩进，但如果段落在标题行或图像之后则不需要。由于这是一份大文档，而且我经常收到这些文档，所以我想要某种自动化，而不是尝试手动执行此操作。
因此，我想编写一个脚本来遍历段落，并在标题样式或图像之后将样式从“段落”更改为“没有缩进的段落”。

Answer 1

这里有一些基本代码可以帮助您入门。遗憾的是，Paragraph.Style 参数不区分文本和图像，但您可以检查并查看 Paragraph.Range 对象是否具有任何 InlineShapes，这是图像。

Sub indentParas()
    Dim doc As Document
    Set doc = ActiveDocument
    Dim para As Word.Paragraph
    Dim i As Boolean
    i = False
    For Each para In doc.Paragraphs

        If i = False Then
            para.IndentCharWidth 4
        End If

        If para.Range.InlineShapes.Count > 0 Then
            i = True
        ElseIf Left(para.Style, 7) = "Heading" Then
            i = True
        Else
            i = False
        End If
    Next
End Sub

注意:这是在 Word 2010 中测试的。