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

update

This commit is contained in:
csh 2023-08-29 15:05:06 +08:00
parent e2e68efc30
commit 3643be6231
3 changed files with 7 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
funcext/TSOffice/TOfficeObj.tsf
View File

@ -13558,14 +13558,9 @@ Type TDocumentBody = Class(DocObject)
TOfficeApi().Set('CurrentPosition', tslBegParagraphNode);
TOfficeApi().Set('CurrentRun', curRunNode);
TOfficeApi().Set('CodePage', 'gbk');
try
tslFuncCount ++;
if code <> '' then
str := eval(&code);
except
println('run code={},err={}', code, ExceptObject.ErrInfo);
errArr[ length(errArr) ] := array('code':code, 'err':ExceptObject.ErrInfo);
str := '';
if not RunTslCode(code, err) then Begin
echo 'run code=',code,',err=', err, '\n';
errArr[ length(errArr) ] := array('code':code, 'err':err);
End;
tslFuncCount ++;
tNode := curRun.node_.FirstChildElement('w:t');

4
funcext/TSOffice/word/_WordSetCurrentRange.tsf Normal file
View File

@ -0,0 +1,4 @@
Function _WordSetCurrentRange(range);
Begin
TOfficeApi().Set('CurrentPosition', range);
End;

8
funcext/TSOffice/worksheet/xlsxWorkBook.tsf
View File

@ -1147,14 +1147,6 @@ Type xlsxWorkBook = Class
Function ProtectSheet(sheet, protect);
Begin
if protect.AlgorithmName and protect.Password then
begin
protect.SaltValue := nil;//protect.Password;
protect.HashValue := nil;//GetMsgDigest(protect.SaltValue, 6);
protect.SpinCount := nil;
protect.Password := nil;
protect.AlgorithmName := nil;
end
sheet_obj := GetSheetXmlfile(sheet);
work_node := sheet_obj.FirstChildElement('worksheet');
sheet_protection_node := work_node.FirstChildElement('sheetProtection');