Как обновить содержимое в текстовом поле PPT, не меняя формат

Question

Эй, я делаю программу генерации отчетов.

Мне нужно обновить определенную часть некоторого TextBox в PowerPoint (например, дату).

Я пытался сделать это с помощью 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