Type TSDocxColumn = Class(TSVbaBase)
Uses TSDocxEnumerations;

public
	Function Init(table, column);

private
	Function SerializeTblGrid();

private
	table_;
	column_;
	cells_;

public
	// Methods
	Function AutoFit();
	Function Delete();
	Function Select();
	Function SetWidth(ColumnWidth, RulerStyle);
	Function Sort(ExcludeHeader, SortFieldType, SortOrder, CaseSensitive, BidiSort, IgnoreThe, IgnoreKashida, IgnoreDiacritics, IgnoreHe, LanguageID);

	// Properties
	property Borders read ReadBorders;
	property Cells read ReadCells;
	property Index read ReadIndex;
	property IsFirst read ReadIsFirst;
	property IsLast read ReadIsLast;
	property NestingLevel read ReadNestingLevel;
	property Next read ReadNext;
	property PreferredWidth read ReadPreferredWidth write WritePreferredWidth;
	property PreferredWidthType read ReadPreferredWidthType write WritePreferredWidthType;
	property Previous read ReadPrevious;
	property Shading read ReadShading;
	property Width read ReadWidth write WriteWidth;
	Function WriteWidth(value);
	Function ReadWidth();
	Function ReadShading();
	Function ReadPrevious();
	Function WritePreferredWidthType(value);
	Function ReadPreferredWidthType();
	Function WritePreferredWidth(value);
	Function ReadPreferredWidth();
	Function ReadNext();
	Function ReadNestingLevel();
	Function ReadIsLast();
	Function ReadIsFirst();
	Function ReadIndex();
	Function ReadCells(n);
	Function ReadBorders();

End;

// ============== 实现 ================= //
Function TSDocxColumn.Init(table, column);
Begin
	table_ := table;
	column_ := column;
	cells_ := new TSDocxCells(self.Application, self.Creator, self);
	cells_.Init(table_, nil, column_);
End;

Function TSDocxColumn.SerializeTblGrid();
Begin
	grid_col_arr := array();
	total_width := 0;
	grid_col := class(TSXml).GetNode(table_.Root(), "w:tblGrid/w:gridCol");
	while ifObj(grid_col) do
	begin
		ww := strtoint(grid_col.GetAttribute("w:w"));
		total_width += ww;
		grid_col_arr[length(grid_col_arr)] := array(grid_col, ww);
		grid_col := grid_col.NextElement();
	end
	return array(total_width, grid_col_arr);
End;

// Methods
Function TSDocxColumn.SetWidth(ColumnWidth, RulerStyle);
Begin
	[total_width, grid_col_arr] := SerializeTblGrid();
	// 设置w:tblPr的总宽度
	table_.TblPr.Width := total_width;
	table_.TblPr.WidthType := "dxa";
	table_.TblPr.Update();

	// 不再调整列宽 "w:tblGrid/w:gridCol"，复杂表格列数不好判定
	for i:=1 to table_.Rows() do
		self.Cells(i).SetWidth(ColumnWidth, RulerStyle);

End;

// Properties
Function TSDocxColumn.WriteWidth(value);
Begin
	for i:=1 to table_.Rows() do
		self.Cells(i).Width := value;
End;
Function TSDocxColumn.ReadWidth();
Begin
	return self.Cells(1).Width;
End;

Function TSDocxColumn.WritePreferredWidthType(value);
Begin
	for i:=1 to table_.Rows() do
		self.Cells(i).PreferredWidthType := value;
End;
Function TSDocxColumn.ReadPreferredWidthType();
Begin
	return self.Cells(1).PreferredWidthType;
End;

Function TSDocxColumn.WritePreferredWidth(value);
Begin
	for i:=1 to table_.Rows() do
		self.Cells(i).PreferredWidth := value;
End;
Function TSDocxColumn.ReadPreferredWidth();
Begin
	return self.Cells(1).PreferredWidth;
End;

Function TSDocxColumn.ReadIndex();
Begin
	return column_;
End;

Function TSDocxColumn.ReadCells(n);
Begin
	return ifnil(n) ? cells_: cells_.Item(n);
End;