将多个文本添加到字段时,如何删除初始返回?

时间:2014-01-22 12:15:30

标签: vba powerpoint

我要求用户从服务器上的指定文件夹中选择一个txt文件[这是在PowerPoint 2007中],但我需要给他们选择多个选项,所以我有一些条件代码确定这一点。

选择的一个文件使用此代码:

oShape.TextFrame.TextRange.Text = Text

目前选择了多个文件:

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

...但是这会在字段中产生额外的返回空间,这有点不整洁。

有没有人可以告诉我如何修改它只能获得两个文本之间的回报,而不是在开头?

1 个答案:

答案 0 :(得分:0)

我不完全确定我遇到了问题,但我相信这样做会:

oShape.TextFrame.TextRange.Text = iif(oShape.TextFrame.TextRange.Text <> "", oShape.TextFrame.TextRange.Text & vbCrLf & vbCrLf,  "") & Text