在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