1

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

Поменялся руководитель, а писем напечатано очень много, нашел скрипт который ищет опр. слово в документах, и меняет на указанное, но есть проблема с заменой защищенного текста!, он не может его заменить. Подскажите. sad

2

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

Там менялся только Адресат. Весь остальной текст защищен, включая ФИО руководителя.

3

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

Ошибочка.. макрос

4

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

Выложите пример!

5

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

письмо

Post's attachments

001865.doc 27 Кб, 4 скачиваний с 2012-06-04 

You don't have the permssions to download the attachments of this post.

6

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

Макрос не может заменить слово в защищенном тексте, как снять защиту со всех файлов не открывая их?

7

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

Какой ворд стоит, у меня в данном примере защита без проблем снялась......

8

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

2003 я понял, открыл, нажал на замочек, закрыл, а нужно массово!

9

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

не открывая

10

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

Сейчас на обед схожу напишу макрос для массового пересохранения.

11

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

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

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

12

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

не разберу как работает.
еще один маленький нюанс, все файлы сохранены по номерам постановлений, указаных в документе это важно!