如果标题下有正文，则本级标题在大纲视图中变色

于恒

如图，如附件

编写VBA
目标：如果3级标题下有正文，则本标题在大纲视图中变色，以此排查每个三级标题下都有正文→以免排版漏掉。

duquancai

在大纲视图中变色？这话怎么理解？ 导航窗口中的  怎么变色啊？

duquancai

Sub shshi()
    Dim s As Range, p As Range, doc As Document
    Set doc = ActiveDocument: Set s = doc.Content
    With s.Find
        .Style = doc.Styles("标题 3")
        Do While .Execute
            Set p = s.Next(4)
            If p.Style = "正文" And Len(p.Text) > 1 Then
                s.Font.ColorIndex = 6
            End If
            s.Collapse 0
        Loop
    End With
End Sub

于恒

duquancai 发表于 2017-4-4 17:41
Sub shshi()
    Dim s As Range, p As Range, doc As Document
    Set doc = ActiveDocument: Set s =  ...

亲测好使！
谢谢阿杜老师指点~~
看来还是要好好学习一下do while语句
另外，这个len（p.text）>1这句写得太精妙了！
谢谢前辈！
有正文的标题3变成了红色，这就足够了！
看来word和excel的VBA一样，变化无穷啊！
谢谢全才老师！

duquancai

于恒 发表于 2017-4-4 22:04
亲测好使！
谢谢阿杜老师指点~~
看来还是要好好学习一下do while语句

我看错了，以为标记一下颜色就行。
你是要“黄色高亮”啊！只改一句就行了》》》》》》》》
Sub 条件高亮黄色标题3()
    Dim s As Range, p As Range, doc As Document
    Set doc = ActiveDocument: Set s = doc.Content
    With s.Find
        .Style = doc.Styles("标题 3")
        Do While .Execute
            Set p = s.Next(4)
            If p.Style = "正文" And Len(p.Text) > 1 Then
                s.HighlightColorIndex = wdYellow
            End If
            s.Collapse 0
        Loop
    End With
End Sub