如何删除PowerPoint字段中的最后一个返回？

Question

我创建了一个允许用户将一个或多个文本文件导入PowerPoint中的字段的函数。这非常有效。用户单击该字段，单击自定义菜单上的按钮，从列表中选择文件，然后进入。我遇到的问题是我必须在每个导入的文本之间放置两个返回值，这意味着最后还有两个返回。

这是删除我找到的段落的通常结果：

ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=27, Length:=1).Select
ActiveWindow.Selection.TextRange.Text = ""

这表明我必须计算他选择的字段中的最后位置才能删除它。 谁能让我知道我会怎么做呢？

Answer 1

此解决方案更容易（未经测试）：

dim tmpTXT as string
    tmpTXT = ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Text
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Text = Left(tmpTXT, len(tmpTXT) -1)

你可以先做一些类似的事情，然后再将文字写入你的形状。