Type TSDocxColumns = Class(TSVbaBase) public Function Init(table); Function Operator[](index); private application_; table_; public // Methods Function Add(BeforeColumn); Function AutoFit(); Function Delete(); Function DistributeWidth(); Function Item(Index); Function Select(); Function SetWidth(ColumnWidth, RulerStyle); // Properties property Borders read ReadBorders; property Count read ReadCount; property First read ReadFirst; property Last read ReadLast; property NestingLevel read ReadNestingLevel; property PreferredWidth read ReadPreferredWidth write WritePreferredWidth; property PreferredWidthType read ReadPreferredWidthType write WritePreferredWidthType; property Shading read ReadShading; property Width read ReadWidth write WriteWidth; Function WriteWidth(); Function ReadWidth(); Function ReadShading(); Function WritePreferredWidthType(value); Function ReadPreferredWidthType(); Function WritePreferredWidth(value); Function ReadPreferredWidth(); Function ReadNestingLevel(); Function ReadLast(); Function ReadFirst(); Function ReadCount(); Function ReadBorders(); End; // ============== 实现 ================= // Function TSDocxColumns.Init(table); Begin table_ := table; End; Function Operator TSDocxColumns.[](index); Begin column_obj := new TSDocxColumn(self.Application, self.Creator, self); column_obj.Init(table_, index); return column_obj; End; // function Function TSDocxColumns.Item(Index); Begin return self[Index]; End; //property Function TSDocxColumns.ReadCount(); Begin return table_.Cols(); End; Function TSDocxColumns.WritePreferredWidthType(value); Begin End; Function TSDocxColumns.ReadPreferredWidthType(); Begin End; Function TSDocxColumns.WritePreferredWidth(value); Begin End; Function TSDocxColumns.ReadPreferredWidth(); Begin End;