vba - 如何删除 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)

在将文本写入形状之前，您可以更早地执行类似的操作，这样会更好。