怎样把Word文档内未设置标题格式很多不同的副标题一次性批量替换字体或颜色

413191246se

楼主，你好！——所谓另起一行，其实是一个独立的段落，有一个VBA方法叫做“循环遍历段落”法，可以很快捷、很方便地处理文档中的所有段落。但是，要想处理特定的段落，需要有该段落的判定方法，如你所说，如果段落前后无明显的标点符号的话，只能靠段落长度少于38个字符这个为判定条件，我试了，结果会使很多无关的段落都设置为小标题了！（你第一次上传的样稿中，除了第一段是以问号为标志外，其它的小标题都是以冒号为标志的，这样特征就很明显。）

413191246se

下面是一段《删除空行》的VBA宏代码，它将循环遍历文档中的所有段落：（你看简单吧！？）
Sub 循环遍历法_段落循环_删除空行()
    Dim i As Paragraph
    For Each i In ActiveDocument.Paragraphs
        If Len(Trim(i.Range)) = 1 Then i.Range.Delete
    Next
End Sub