本示例返回的正文样式是否被应用。
Dim st As Style
Set st = ActiveDocument.Styles("正文")
MsgBox st.InUse