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); Function TSDocxRange.WriteBoldBi(value);
Begin Begin
range_font_.BoldBi := value; range_font_.BoldBi := value;
range_font_.Apply();
End; End;
Function TSDocxRange.ReadBoldBi(); Function TSDocxRange.ReadBoldBi();
Begin Begin
@ -637,6 +638,7 @@ End;
Function TSDocxRange.WriteBold(value); Function TSDocxRange.WriteBold(value);
Begin Begin
range_font_.Bold := value; range_font_.Bold := value;
range_font_.Apply();
End; End;
Function TSDocxRange.ReadBold(); Function TSDocxRange.ReadBold();
Begin Begin

2
docx/font/TSDocxFont.tsf
View File

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