如何将文本插入到 powerpoint 形状 TextRange 中的光标位置

How to insert text into the cursor position in a powepoint shape's TextRange

我有一个 power point 文本框和一些文本。当用户选择要编辑的文本时,我需要向光标点添加一些文本。

举个例子:
如果当前文本是 "ABCEFG" 并且用户将光标点设置为 "ABC|EFG" 我需要将文本编辑为 "ABCDEFG"。

有什么想法吗?提前致谢。

请参考以下内容link。 认为它会对您的事业有所帮助。

http://www.vbaexpress.com/forum/showthread.php?32289-Alternative-way-to-determine-current-cursor-position-in-text-box

谢谢,

With ActiveWindow.Selection.TextRange
    .InsertAfter ("D")
End With