vba - 以编程方式将字体格式应用于 PowerPoint 文本

Question

我正在尝试使用 VBA 将一些文本插入 PowerPoint TextRange，我使用如下内容:

ActiveWindow.Selection.SlideRange.Shapes("rec1").TextFrame.TextRange.Text = "Hi"

但是，我无法弄清楚如何以编程方式应用粗体、斜体和下划线(我没有看到 .RichText 属性或类似的属性)。

我拥有的是一些简单的 HTML 文本，其中包含我想要转换的粗体、斜体和下划线文本。

如何做到这一点？

Answer 1

这可以通过使用 TextRange 的 Characters、Words、Sentences、 轻松完成运行 和 Paragraphs 对象，然后运行 ​​Font 对象来设置粗体、下划线和斜体(以及其他属性)。例如:

Sub setTextDetails()
    Dim tr As TextRange
    Set tr = ActiveWindow.Selection.SlideRange.Shapes(1).TextFrame.TextRange
        With tr
            .Text = "Hi There Buddy!"
            .Words(1).Font.Bold = msoTrue
            .Runs(1).Font.Italic = msoTrue
            .Paragraphs(1).Font.Underline = msoTrue
        End With
End Sub