снять "рекомендуется открывать только для чтения" с кучи документов.

Public Sub DeleteReadOnly()
Dim FD As FileDialog
Dim Doc As Document, i As Long
Dim RF As RecentFile, app As Application
        Set FD = Application.FileDialog(msoFileDialogFilePicker)
        With FD
            .Title = "Выбирите файлы"
            .Filters.Clear
            .Filters.Add "Все файлы Word", "*.doc, *.dot, *.docx, *.docm, *.dotm"
            .ButtonName = "Выбрть"
        End With
            FD.Show
                Select Case FD.SelectedItems.Count
                    Case 0
                        MsgBox "Вы не выбрали файлы!!!", vbCritical
                        Exit Sub
                    Case Is >= 1
                    Set app = New Word.Application
                    app.Visible = False
                        For j = 1 To FD.SelectedItems.Count
                            Set Doc = app.Documents.Open(FD.SelectedItems(j))
                            If Doc.ReadOnly = True Then
                                Doc.Close
                                Set Doc = app.Documents.Open(FD.SelectedItems(j), False)
                                Doc.Save
                                Doc.Close
                                i = i + 1
                            End If
                        Next j
                    app.Quit
                    Set app = Nothing
                End Select
                    MsgBox "Исправлено файлов: " & i, vbInformation
End Sub