vba - 在 PowerPoint 中的现有文本之后插入选定的文本文件

Question

我在 PowerPoint 中创建了一个宏，它执行以下操作：用户单击幻灯片上的文本框。它为框架命名并打开一个对话框，供他们从文本文档列表中进行选择。他们选择一个，文本被读取并插入到命名的文本框架中。

这是代码的插入部分：

Dim file As Object
Dim Text As String

Set file = CreateObject("Scripting.FileSystemObject").OpenTextFile(vrtSelectedItem, 1)
Text = file.ReadAll
oShape.TextFrame.TextRange.Text = Text 'Insert the text into the text frame

我遇到的问题是它清除了框架中的任何现有文本，而不是添加到它。我真的需要在框架中的任何现有内容之后添加新选择的文本。例如，如果他们要添加一系列引号，则需要一个接一个地添加。

任何人都可以建议这样做的方法吗？

Answer 1

改用这个：

oShape.TextFrame.TextRange.Text = oShape.TextFrame.TextRange.Text & Text 

或者：

oShape.TextFrame.TextRange.Text = oShape.TextFrame.TextRange.Text & VbCRLF & Text