tinysoft
/
TSOffice
5
0
Fork 0
Code Issues 1 Pull Requests Projects Releases Wiki Activity

update two template

This commit is contained in:
csh 2023-06-13 13:27:59 +08:00
parent d08dea6bc9
commit 8f6bdd212b
2 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
funcext/TSOffice/word/_WordSetLastTableProp.tsf
View File

@ -10,7 +10,6 @@ Begin
str += '"' $ value $ '"';
else
str = str $ value;
println("str = {}", str);
eval(&str);
TOfficeApi().Set('LastTable', table);
return true;

12
funcext/TSOffice/word/_WordTemplate.tsf
View File

@ -1,10 +1,14 @@
Function _WordTemplate(alias, fileName);
Function _WordTemplate(data, template, fileName);
Begin
setsysparam('data', data);
docx := new TSDocxFile();
[err, msg] := docx.OpenFile(alias, fileName);
[err, msg] := docx.OpenFile('', template);
if err then return false;
docx.ExecInnerTSL();
[err, msg] := docx.Save();
if err then return false;
if ifstring(fileName) then
begin
[err, msg] := docx.SaveAs('', fileName);
if err then return false;
end
return true;
End;