如何跳過或忽略查找表MS Word？

Question

我有一個宏代碼（由Davy C創建）來查找段落樣式併爲每個樣式添加註釋（如果找到）。我需要改進這個代碼。我想運行這個宏代碼只有段落和需要跳過/忽略表發現時。我該怎麼做呢？

Sub CheckKeepWithNext01() 
    Const message As String = "Check Keep With Next" 
    Const styleMask As String = "Bold + KWN" 
    Dim paragraphCount As Integer 
    Dim i As Integer 
    Dim currentStyle As String 
    Dim doc As Document 

    Set doc = ActiveDocument 
    paragraphCount = doc.Paragraphs.count 

    Do While i < paragraphCount 
     i = i + 1 

     If doc.Paragraphs(i).Range.Bold = True Then 
      If doc.Paragraphs(i).KeepWithNext = False Then 
       currentStyle = doc.Paragraphs(i).Range.Style 

       If Left(currentStyle, Len(styleMask)) <> styleMask Then 
        doc.Paragraphs(i).Range.Select 
        Selection.Comments.Add Range:=Selection.Range 
        Selection.TypeText Text:=message 
       End If 
      End If 
     End If 
    Loop 

    Set doc = Nothing 
End Sub 

見下圖更加清晰：

Answer 1

我已經得到了答案！

If doc.Paragraphs(i).Range.Tables.count = 0 Then