Вопрос закрыт. Решил так: COMСоединение.ActiveDocument.Protect(2, -1, "1")