tinysoft
/
OfficeVba
5
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

修复`range.boldbi`出错问题

This commit is contained in:
csh 2024-02-05 17:06:14 +08:00
parent dffa3f8192
commit b2040b1db5
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
docx/TSDocxRange.tsf
View File

@ -629,6 +629,7 @@ End;
Function TSDocxRange.WriteBoldBi(value);
Begin
range_font_.BoldBi := value;
range_font_.Apply();
End;
Function TSDocxRange.ReadBoldBi();
Begin
@ -637,6 +638,7 @@ End;
Function TSDocxRange.WriteBold(value);
Begin
range_font_.Bold := value;
range_font_.Apply();
End;
Function TSDocxRange.ReadBold();
Begin

2
docx/font/TSDocxFont.tsf
View File

@ -210,7 +210,7 @@ End;
Function TSDocxFont.WriteBoldBi(value);virtual;
Begin
pr_.BoldBi := value = TSDocxEnumerations.wdToggle() ? _Not(self.BoldBi) : value;
pr_.BCs := value = TSDocxEnumerations.wdToggle() ? _Not(self.BoldBi) : value;
End;
Function TSDocxFont.ReadBoldBi();virtual;
Begin