DELPHI 怎么来判断WORD中文章中的某段分了几栏

DELPHI 如何来判断WORD中文章中的某段分了几栏
Word.activedocument.PageSetup.TextColumns.Count
这行代码是获得整篇文章分了几栏.而如果只是某段分了几栏.请问代码如何写?
搞过这行的来交流下.网上涉及到的资料好少.用VBA里也没抓到这样的数据.

------解决方案--------------------
用下面的代码：

VB code

ActiveDocument.Paragraphs(n).Range.PageSetup.TextColumns.Count