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

【问题标题】：How do I update content in PPT textbox while not changing the format如何在不更改格式的情况下更新 PPT 文本框中的内容
【发布时间】：2018-12-03 20:12:33
【问题描述】：

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

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

我尝试用 vba 来做，但结果非常复杂，因为一旦我更新了文本内容，我就必须重新设置所有格式。

有没有一种方便的方法来更新文本框的某些部分而不必重新设置所有格式？

【问题讨论】：

您需要更彻底地描述您正在做的事情。例如，您如何准确地找到要更新的文本框部分？
要找到文本框，您可以将 powerpoint 对象导航到演示文稿->Item(i)->slides->item(i)->shapes->item(i)->textfram2->文本范围。不知道这是否回答了你的问题......但是，我找到了一种我可以使用的替换方法......

标签： vba ms-office powerpoint

【解决方案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

【讨论】：