安装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