Как применить макрос к нескольким документам сразу?

Sub changeLatToRus()
'Замена во всем документе латинских букв на киррилические
Dim i As Integer
Dim sLat As Variant
Dim sRus As Variant
Dim rDoc As Range
Set rDoc = ActiveDocument.Range
'список латинских букв
sLat = Array("e", "y", "u", "o", "p", "a", "k", "x", "c", _
              "E", "T", "O", "P", "A", "H", "K", "X", "C", "B", "M")
sRus = Array("е", "у", "и", "о", "р", "а", "к", "х", "с", _
               "Е", "Т", "О", "Р", "А", "Н", "К", "Х", "С", "В", "М")
Application.ScreenUpdating = False  ' Запрещаем обновление экрана во время работы макроса
With rDoc.Find
'заменяем все латинские символы на соответствующие кириллические
   .ClearFormatting
   .Replacement.ClearFormatting
   .Forward = True
   .Wrap = wdFindStop
   .MatchWildcards = False
   .Format = True
   .MatchCase = True
   For i = LBound(sLat) To UBound(sRus)
      .Text = sLat(i)
      .Replacement.Text = sRus(i)
      .Execute Replace:=wdReplaceAll
   Next i
End With
Application.ScreenUpdating = True  ' Обновляем экран
End Sub

Dim CurF As Long
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = True
        .Title = "Выбрать файлы" 'заголовок окна диалога
        .Filters.Clear 'очищаем установленные ранее типы файлов
        .Filters.Add "Excel files", "*.xls*;*.xlsx", 1 'устанавливаем возможность выбора только файлов Excel
        ''.Filters.Add "Text files", "*.txt", 2 'добавляем возможность выбора текстовых файлов
        .FilterIndex = 1 'устанавливаем тип файлов по умолчанию
        .InitialFileName = ThisWorkbook.Path & "\" 'назначаем папку отображения и имя файла по умолчанию
        .InitialView = msoFileDialogViewDetails 'вид диалогового окна(доступно 9 вариантов)
        If .Show = 0 Then Exit Sub 'показывает диалог
        'цикл по коллекции выбранных в диалоге файлов
        AllFil = .SelectedItems.Count
 
        For CurF = 1 To AllFil
            FilePuth = .SelectedItems(CurF)
            FileN = Dir(.SelectedItems(CurF))
            Workbooks.Open FilePuth 'Открывает поочередно каждую книгу из выбранных
            'Ваши действия с книгой
            Workbooks(CurBooks).Close SaveChanges:=True 'закрывает книгу сохраняя
        Next CurF 
        End With