1

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

в общем дано: куча файлов doc (вроде и docx есть, открываю в ворде 2010) которые предлагает открывать только для чтения. как одиночный файл отучить запрашивать эту хрень я нашел. проблема в том что таких файлов больше тысячи и со всех надо снять. подскажите способ автоматизировать этот процесс. заранее благодарен.

2

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

Попробуйте этот макрос

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

3

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

при запуске предлагает сохранить под тем же названием, но не дает.
при отказе рунтайм эррор - открыто только для чтения.

4

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

Если заменить строку
Doc.Save
на
Doc.SaveAs2 Doc.Path & "\" & Left(Dir(Doc.FullName), InStrRev(Dir(Doc.FullName), ".") - 1) & "_001" & ".docx", ReadOnlyRecommended:=0
всё будет работать.

PS: на тему наткнулся случайно, понимаю, что прошло 2 года, может быть кому-то пригодится.