word vba 设置字体

Sub 设置字体()

Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=1, Name:=""
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
With Selection.Font
    .ColorIndex = 6
    .Size = 15
    .Name = "楷体_GB2312"
End With

End Sub

赏 支付宝打赏 微信打赏

如果文章或资源对您有帮助，欢迎打赏作者。一路走来，感谢有您！