安装vba之后,font对象赋值导致wps崩溃

Sub test()

ActiveDocument.Range.Font.Bold = True

Dim afont As New Font

Dim bfont As Font

'MsgBox TypeName(afont)

'MsgBox TypeName(bfont)

afont.Bold = True

End Sub

福建省
浏览 943
收藏
2
分享
2 +1
5
+1
全部评论 5
 
覃欢
覃欢

@金山办公

new Font。。。 这个估计有坑 可以用已经存在的Font对象来更改 不直接使用VBA的new看看
· 广东省
回复
FL.
1、现有的对象赋值是没问题的。 2、font的属性bold,size,underline等等,如果一个个赋值给存在的对象,效率很慢。定义临时的new font,最后把临时对象整个赋值给现有对象的font,可以极大提高效率。
· 福建省
回复
 
kia
【WPS版本号】 【系统环境】 【出现该问题场景描述】 【出现该问题的情况】请备注偶然出现还是必现 以上信息麻烦您补充一下哈。我这边整理后反馈跟进下
· 广东省
回复
FL.
【WPS版本号】:15374 【系统环境】:Windows 11 家庭中文版22H2 【出现该问题场景描述】:如问题描述,安装vba之后执行上面代码直接崩溃(必现)
· 福建省
回复