如何在不更改格式的情况下更新PPT文本框中的内容

Question

嘿，我正在做一个报告生成程序。

我需要在PowerPoint中更新某些TextBox的某些部分（例如日期）。

我尝试使用vba进行操作，但事实证明它非常复杂，因为一旦更新了文本内容，就必须重新设置所有格式。

是否有一种方便的方法来更新TextBox的某些部分而不必重新设置所有格式？

Answer 1

您怀疑，Replace方法将执行您想要的操作。

示例：

Sub ReplaceText(oRng As TextRange, sReplaceWhat As String, sWithWhat As String)
    With oRng
        .Characters.Replace sReplaceWhat, sWithWhat
    End With
End Sub

并对其进行测试

Sub Test()
    With ActivePresentation.Slides(1).Shapes(1)
        Call ReplaceText(.TextFrame.TextRange, "text", "newtext")
    End With
End Sub