var DocIndex,ParaIndex,ShapeIndex
levariant;
i,paracount:integer;
rang:range;//区域对象
para
aragraph;//段落对象
tbl:table;//表格对象
sp:shape; //shape对象
para:=WordApplication1.Documents.Item(DocIndex).Paragraphs.Item(ParaIndex);//获得段落，一个硬回车表示一个段落。
tbl:=WordApplication1.Documents.Item(DocIndex).Tables.Item(1);//获得文档内第一个表格
tbl:=rang.Tables.Item(1);//获得区域内第一个表格
sp:=WordApplication1.Documents.Item(DocIndex).Shapes.Item(ShapeIndex);//获得一个shape对象
para.LineSpacing //段落的行距
rang:=para.Range; //该段落的range;
rang.Text //段落文本
rang.Font //段落字体，如果range内字体不统一则无法取得
rang.Characters.Count //段落内字体个数
rang.Characters.Item(1).font //段落内第一个字符的字体
rang.Tables.Count //所选区域内表格数，如果为0表示该段不在表内，否则在表内。
tbl.Rows.Count //表格行数
tbl.Columns.Count //表格列数
tbl.Rows.Item(1).Height //表格行高
tbl.Columns.Item(1).width //表格列宽
sp.Type_ //shape的类型，15表示艺术字,17表文本框
sp.height //shape的高度
sp.width //shape的宽
sp.TextEffect.Text //艺术字的文字
sp.TextEffect.FontSize //艺术字字体大小
sp.TextEffect.FontName //字体名
sp.TextFrame.TextRange.Text //文本框的文字
......
!]