Type TSDocxCells = Class(TSVbaBase) public Function Init(table, row, column); Function Operator[](index); private table_; // TOfficeObj("TTable") row_; column_; public // Methods Function Add(BeforeCell); Function AutoFit(); Function Delete(ShiftCells); Function DistributeHeight(); Function DistributeWidth(); Function Item(Index); Function Merge(); Function SetHeight(RowHeight, HeightRule); Function SetWidth(ColumnWidth, RulerStyle); Function Split(NumRows, NumColumns, MergeBeforeSplit); // Properties property Borders read ReadBorders; property Count read ReadCount; property Height read ReadHeight write WriteHeight; property HeightRule read ReadHeightRule write WriteHeightRule; property NestingLevel read ReadNestingLevel; property PreferredWidth read ReadPreferredWidth write WritePreferredWidth; property PreferredWidthType read ReadPreferredWidthType write WritePreferredWidthType; property Shading read ReadShading; property VerticalAlignment read ReadVerticalAlignment write WriteVerticalAlignment; property Width read ReadWidth write WriteWidth; Function WriteWidth(); Function ReadWidth(); Function WriteVerticalAlignment(); Function ReadVerticalAlignment(); Function ReadShading(); Function WritePreferredWidthType(); Function ReadPreferredWidthType(); Function WritePreferredWidth(); Function ReadPreferredWidth(); Function ReadNestingLevel(); Function WriteHeightRule(); Function ReadHeightRule(); Function WriteHeight(); Function ReadHeight(); Function ReadCount(); Function ReadBorders(); End; // ============== 实现 ================= // Function TSDocxCells.Init(table, row, column); Begin table_ := table; row_ := row; column_ := column; End; Function Operator TSDocxCells.[](index); Begin row := ifnil(row_) ? index : row_; column := ifnil(column_) ? index : column_; cell_obj := new TSDocxCell(self.Application, self.Creator, self); cell_obj.Init(nil, table_, row, column); return cell_obj; End; // function Function TSDocxCells.Item(Index); Begin return self[Index]; End;