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

[tutor]

Нужно вставить фрагмент (строку) текста в несколько файлов. Не могу понять, что не получается
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

[25malinin]

Можно конкретнее? как именно вы это делаете?