本示例将活动文档中的字体和字号分别改为“隶书” 和 “20”磅。

With ActiveDocument.Content.Font
    .Name = "隶书"
    .Size = 20
End With