MS Word 2016: удалить все защищенные комментарии с помощью VBA

Question

Я хотел бы удалить в экспортированном текстовом документе (.docx) все защищенные комментарии, используя VBA.

Комментарии защищены какими-то полями, на которые они полагаются (однако я не смог найти способ удалить эту защиту с или без VBA). Эти "поля" были созданы при экспорте из приложения (Polarion ALM).

В макросах Word я пытался удалить защищенные комментарии:

Sub MakroRemoveComment()

If ActiveDocument.ProtectionType <> wdNoProtection Then
 ActiveDocument.Unprotect Password:=strPassword
End If

ActiveDocument.DeleteAllComments

End Sub

но я получил следующее сообщение об ошибке:

Метод 'DeleteAllComments' для объекта 'comment' не выполнен.

Я думаю, это связано с защитой полей комментариев.

Скриншот:

Answer 1

Просто наткнулся на вопрос, для чего стоит код для снятия защиты этих элементов ("Inhaltssteuerelemente" на немецком языке)

Private Sub UnprotectDocument()
    Set doc = ActiveDocument
' Unprotect the document
    If doc.ProtectionType <> wdNoProtection Then
        doc.Unprotect
        doc.Protect Type:=wdNoProtection
    End If

' Remove lock from Inhaltssteuerelementen --> Wiki Content
' Iterate through all the content controls in the document
' and remove locks
    Dim cc As ContentControl
    If doc.ContentControls.Count <> 0 Then
    For Each cc In doc.ContentControls
        cc.LockContentControl = True
        cc.LockContents = False
    Next
    End If
End Sub