Sub Macro1()
Dim oStory As Range
Dim oPara As Paragraph
    For Each oStory In ActiveDocument.StoryRanges
        For Each oPara In oStory.Paragraphs
            If Not oPara.Range.Information(wdWithInTable) Then
                oPara.Range.Font.Color = RGB(80, 84, 77)
            End If
        Next oPara
        If oStory.StoryType <> wdMainTextStory Then
            While Not (oStory.NextStoryRange Is Nothing)
                Set oStory = oStory.NextStoryRange
                For Each oPara In oStory.Paragraphs
                    If Not oPara.Range.Information(wdWithInTable) Then
                        oPara.Range.Font.Color = RGB(80, 84, 77)
                    End If
                Next oPara
            Wend
        End If
    Next oStory
lbl_Exit:
    Set oStory = Nothing
    Exit Sub
End Sub