delphi - 如何将光标移动到插入的结尾？使用ActiveDocument.Range.InsertAfter()之后

Question

我正在使用WordApp.ActiveDocument.Range.InsertAfter（）将其插入Word文档。但是，执行此操作后，光标将位于插入的最前面。我尝试过在之后插入和在之前插入？我试图将其复制到剪贴板上并粘贴，但是使用此方法将＃13添加到粘贴中，我不希望这样。我只希望word的用户能够敲击Fkey并在那一刻自动粘贴一些格式化的文本，然后在那一刻继续输入...有什么理想吗？
我正在使用Delphi 4 Pro。

谢谢罗伊

Answer 1

是的，您需要将插入点移动到范围之后。在执行InsertAfter之后，范围会自动调整大小-您只需移至末尾，然后选择移至的位置即可。以下是一些VBA代码，可帮助您入门：

Sub DoInsertAfter()
    Dim r As Range
    Set r = ActiveDocument.Range
    r.InsertAfter "something difficult to say in Arabic"
    r.Move Unit:=wdStory
    r.Select
End Sub