Как я могу переместить курсор в конец вставки? После использования ActiveDocument.Range.InsertAfter ()

Question

Я вставляю в документ Word, используя WordApp.ActiveDocument.Range.InsertAfter (). Однако после того, как я это сделаю, курсор находится в передней позиции вставки. Я пытался вставить после и вставить до? Я попытался скопировать в буфер обмена и просто вставить, но с помощью этого добавляет № 13 к вставке, и я не хочу этого. Я просто хочу, чтобы пользователь word мог нажимать клавишу F и автоматически вставлять в этот момент какой-то форматированный текст, а затем продолжать набирать текст ... какие-нибудь идеалы? Я использую 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