Вставка текста в несколько файлов - VBA

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

Нужно вставить фрагмент (строку) текста в несколько файлов. Не могу понять, что не получается. Помогите, люди добрые

Sub Insert()
On Error Resume Next
Dim picker As New FilePicker
Dim wordApp As Application
Dim wordDocument As Word.Document
 
picker.pickFile "Word files", Array("*.doc;*.docx;*.docm")
If UBound(picker.items) < 0 Then: Exit Sub

Set wordApp = New Application
wordApp.Visible = True
 
Application.DisplayAlerts = wdAlertsNone
wordApp.DisplayAlerts = wdAlertsNone
 
For Each FileName In picker.items
Set wordDocument = wordApp.Documents.Open(FileName)
With wordDocument
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.TypeText Text:="=====+++++======"
 
End With
wordDocument.Close SaveChanges:=True
Next
wordApp.Quit
End Sub

Решение задачи: «Вставка текста в несколько файлов»

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

                              Dim pageRange As Range, i&
    ' определение начала требуемой страницы - 5
    Set pageRange = ActiveDocument.Range.GoTo(What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=5)
    ' позиция первого символа следующей страницы
    i = pageRange.GoToNext(wdGoToPage).End
    ' определение диаппазона страницы
    If pageRange.Start = i Then
        ' последняя страница
        pageRange.End = ActiveDocument.Range.End ' диаппазон до конца документа
    Else
        ' существует страница после
        pageRange.End = i - 1   ' диаппазон до начала следующей страницы
    End If
    
    pageRange.ParagraphFormat.LineSpacing = 14 ' устанавливаем межстрочный интервал
    ' удаляем надписи
    For i = 1 To pageRange.ShapeRange.Count
        pageRange.ShapeRange(1).Delete
    Next
                        