Как снять защиту форм с нескольких документов?

Public Sub RngSelect()
Dim FolD As FileDialog, fd As String, fl As Variant
Dim app As Application, Doc1 As Document, Doc2 As Document, i As Integer
    Set FolD = Application.FileDialog(msoFileDialogFilePicker) ' Выбор файлов для пересохранения
        With FolD
            .Title = "Выбор файлов"
            .ButtonName = "Пересохранить"
                With .Filters
                    .Clear
                    .Add "Документы Word2003", "*.doc"
                End With
        End With
    FolD.Show
    Set fl = FolD.SelectedItems
        If fl.Count = 0 Then
            MsgBox "Вы не выбрали файлы!!!", vbCritical
            Exit Sub
        End If
    Set FolD = Application.FileDialog(msoFileDialogFolderPicker) ' Выбор папки сохранения
        With FolD
            .Title = "Куда сохранить"
            .ButtonName = "Сохранить"
            .AllowMultiSelect = False
        End With
    FolD.Show
        If fl.Count = 0 Then
            MsgBox "Вы не выбрали папку для сохранения!!!", vbCritical
            Exit Sub
        End If
    fd = FolD.SelectedItems(1)
    Set app = New Application ' Пересохранение файлов
        app.Visible = False
            For i = 1 To fl.Count
                Set Doc1 = app.Documents.Open(fl(i))
                    Doc1.Range.Copy
                Set Doc2 = app.Documents.Add
                    Doc2.Range.PasteAndFormat wdFormatOriginalFormatting
                Doc2.SaveAs2 fd & "\" & Doc1.Name
                Doc1.Close 0
                Doc2.Close 0
            Next i
        app.Quit
        Set app = Nothing
End Sub