嘿,我正在做一个报告生成程序。
我需要更新 PowerPoint 中某些 TextBox 的某些部分(例如日期)。
我尝试用 vba 来做,但结果很复杂,因为一旦我更新了文本内容,我就必须重新设置所有格式。
有没有一种方便的方法来更新 TextBox 的某些部分而不必重新设置所有格式?
正如您所怀疑的,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
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句