С
этим я разобрался, вопрос снят.
А
тут - не совсем. Поиском нашелся скрипт удаляющий "только чтение" из дока без его открытия. Но он у меня не работает
Или я чего-то не так делаю...
Код: 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
. 
довольно удобная вещь.. вместе с границами областии печати