檢查段落字體樣式是否是斜體？

Question

我想找到一個段落是否是斜體，我通過for循環遍歷所有段落，如果段落是斜體，我想做一些操作。

For Each oPara In .Paragraphs 
    With oPara 
     If oParaAttrItalic = True Then 
      .Style = "new_style" 
     End If 
    End With 
Next 

Answer 1

您需要使用Paragraph.Range參考

Dim oPara As Paragraph 

For Each oPara In ActiveDocument.Paragraphs 
    If oPara.Range.Font.Italic = True Then 
     'Do something 
    End If 
Next oPara