Как сохранить MS Word (DOCX) в качестве защищенного / заблокированного PDF на Mac OS X с помощью макросов

Question

У меня есть вопрос о том, как изменить макросы ниже, чтобы сохранить PDF как безопасный (т.е. заблокированный для редактирования) PDF. Этот макрос работает в Word 2011 и 2016 на Mac.

Sub SaveActiveDocAsPDF()

On Error Resume Next

Dim saveName As String
saveName = ActiveDocument.FullName
saveName = Left(saveName, Len(saveName) - 5) & ".pdf"

ActiveDocument.SaveAs fileName:=saveName, _
FileFormat:=wdFormatPDF
End Sub

Заранее спасибо.

Answer 1

Вы не сможете экспортировать защищенный паролем PDF без использования сторонних плагинов. Это не поддерживается самим Word, метод Document.SaveAs2 не оценивает Password параметр при использовании PDF в качестве формата файла.

Для получения дополнительной информации посмотрите здесь: Сообщество Microsoft: Сохраните защищенный паролем PDF-файл с VBA.

Но есть несколько сторонних программ, которые можно использовать как PDFCreator.