This commit is contained in:
csh 2023-07-19 17:47:54 +08:00
parent 845c6bb554
commit 880e03c41a
4 changed files with 29 additions and 4 deletions

View File

@ -1,4 +1,4 @@
// Version 1.3.5 // Version 1.3.6
Function TOfficeObj(n); Function TOfficeObj(n);
Begin Begin
@ -14444,6 +14444,23 @@ Type TTable = Class(DocObject, TTableImpl)
End; End;
TblGrid.GridCol := gridArr; TblGrid.GridCol := gridArr;
End; End;
Function RowHeight(row, height);
Begin
if row <= 0 or row > Rows() then return;
node := node_.FirstChildElement('w:tr');
cnt := row - 1;
while(cnt) do
begin
node := node.NextElement('w:tr');
cnt--;
end
trnode := node.FirstChildElement("w:trPr");
if not ifObj(trnode) then trnode := node.InsertFirstChild('element', 'w:trPr');
node := trnode.FirstChildElement('w:trHeight');
if not ifObj(node) then node := trnode.InsertFirstChild('element', 'w:trHeight');
node.SetAttribute('w:val', height);
End;
Property Format read readFormat; Property Format read readFormat;
Function readFormat(); Function readFormat();

View File

@ -1,4 +1,4 @@
// Version 1.3.5 // Version 1.3.6
Type TSDocxFile = Class Type TSDocxFile = Class
///Version: V1.0 2022-09-20 ///Version: V1.0 2022-09-20
@ -206,7 +206,7 @@ Type TSDocxFile = Class
End; End;
///word文档指定表格 ///word文档指定表格
///n: int 第n个表格 ///n: int 从0开始第n个表格
///返回TTable对象 ///返回TTable对象
Function GetTable(n); Function GetTable(n);
Begin Begin

View File

@ -1,4 +1,4 @@
// Version 1.3.5 // Version 1.3.6
Type TSExcelFile = Class Type TSExcelFile = Class
///Version: V1.0 2022-08-08 ///Version: V1.0 2022-08-08

View File

@ -1,5 +1,13 @@
# 更新日志 # 更新日志
## 2023-7-19
### V1.3.6
#### word
新增对表格的行高设置`table.RowHeight(row, height)`
## 2023-7-14 ## 2023-7-14
### V1.3.5 ### V1.3.5