Type TSDocxRow = Class(TSVbaBase) public Function Init(table, row); private table_; row_; public Function ConvertToText(Separator, NestedTables); Function Delete(); Function Select(); Function SetHeight(RowHeight, HeightRule); Function SetLeftIndent(LeftIndent, RulerStyle); property Alignment read ReadAlignment write WriteAlignment; property AllowBreakAcrossPages read ReadAllowBreakAcrossPages write WriteAllowBreakAcrossPages; property Borders read ReadBorders; property Cells read ReadCells; property HeadingFormat read ReadHeadingFormat write WriteHeadingFormat; property Height read ReadHeight write WriteHeight; property HeightRule read ReadHeightRule write WriteHeightRule; property ID read ReadID write WriteID; property Index read ReadIndex; property IsFirst read ReadIsFirst; property IsLast read ReadIsLast; property LeftIndent read ReadLeftIndent write WriteLeftIndent; property NestingLevel read ReadNestingLevel; property Next read ReadNext; property Previous read ReadPrevious; property Range read ReadRange; property Shading read ReadShading; property SpaceBetweenColumns read ReadSpaceBetweenColumns write WriteSpaceBetweenColumns; Function WriteSpaceBetweenColumns(); Function ReadSpaceBetweenColumns(); Function ReadShading(); Function ReadRange(); Function ReadPrevious(); Function ReadNext(); Function ReadNestingLevel(); Function WriteLeftIndent(); Function ReadLeftIndent(); Function ReadIsLast(); Function ReadIsFirst(); Function ReadIndex(); Function WriteID(); Function ReadID(); Function WriteHeightRule(); Function ReadHeightRule(); Function WriteHeight(); Function ReadHeight(); Function WriteHeadingFormat(); Function ReadHeadingFormat(); Function ReadCells(); Function ReadBorders(); Function WriteAllowBreakAcrossPages(); Function ReadAllowBreakAcrossPages(); Function WriteAlignment(); Function ReadAlignment(); End; // ============== 实现 ================= // Function TSDocxRow.Init(table, row); Begin table_ := table; row_ := row; End; // function Function TSDocxRow.Delete(); Begin table_.DeleteCell(row_, nil); End; Function TSDocxRow.Select(); Begin End; Function TSDocxRow.SetHeight(RowHeight, HeightRule); Begin case HeightRule of TSDocxEnumerations.wdRowHeightAtLeast: begin end TSDocxEnumerations.wdRowHeightAuto: begin end TSDocxEnumerations.wdRowHeightExactly: begin end end; End; Function TSDocxRow.SetLeftIndent(LeftIndent, RulerStyle); Begin End;