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

Question

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

我需要更新PowerPoint中某些文本框的某些部分(例如日期(。

我尝试使用 vba 执行此操作，但结果非常复杂，因为一旦我更新了文本内容，我将不得不重新设置所有格式。

有没有一种方便的方法可以更新文本框的某些部分，而无需重新设置所有格式？

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