Как в Word установить курсоh в конец абзаца? - VB

Формулировка задачи:

Задача 1: установить курсов в конец того абзаца, в начале которого в данный момент стоит курсор (абзац состоит из нескольких строк)
Задача 2: установить курсов в конец определенного по счету абзаца (абзац состояит из нескольких строк)

Решение задачи: «Как в Word установить курсоh в конец абзаца?»

textual
                            Листинг программы 
                        

                            Set AppS = CreateObject("Word.Application.15") 'делаем ссылку на объект Word для создания нового документа
    
    With AppS
        .Documents.Add (strPathDot_S)  'присоединяем к объекту Word шаблон по заданому пути
        .Visible = True 'запускаем приложение Word
    End With

Dim n
n = AppS.Selection.Paragraphs(1).Range.End - 1
AppS.ActiveDocument.Range(n, n).Select

                        