直接保存其值
msgbox(FontStyle.Bold Or FontStyle.Italic)Dim f As FontStyle = 3CurrentTable.Font = New Font("宋体",20, f)