Word 2013 VB脚本循环文档并更改样式

Question

我需要一个脚本，它迭代通过一个word文档，并改变以下标题样式或图像的段落样式为自定义样式，没有第一行缩进。

目标很简单：我希望段落的第一行缩进，但不是如果段落是在标题行或图像后面。由于这是一个很大的文档，而且我经常得到这些文档，所以我想要某种自动化，而不是试图手工完成这件事。
所以我想写一个脚本，它在段落中迭代，并在标题样式或图像之后将样式从“段落”更改为“没有缩进的段落”。

Answer 1

这里有一些基本的代码可以让你从这里开始。不幸的是，partage.style参数不能区分文本和图像，但是您可以检查partage.range对象是否有任何inlineshapes，这些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

注意：这是在Word2010中测试的。