Word VBA ContentControl Fehler (scheint gesperrt)

Question

Ich versuche, den Text einiger Inhaltssteuerelemente programmgesteuert zu aktualisieren, basierend auf einem anderen Steuerelement. Ich erhalte den folgenden Fehler:

"Laufzeitfehler 6124. Sie dürfen diese Auswahl nicht bearbeiten, da sie geschützt ist".

Hier ist mein Code so weit:

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean) 

Select Case ContentControl.Title 
    Case "Party" 
     Call CascadeParty(ContentControl) 
End Select 

End Sub 



Sub CascadeParty(ByVal cControl As ContentControl) 

Dim con As ContentControl 

For Each con In ActiveDocument.ContentControls 
    If con.Title = "Party" Then 
     con.Range.Text = cControl.Range.Text ' ERROR HERE 
    End If 
Next con 

End Sub 

Ich habe auch versucht, anstelle der Steuerung, die gleichen Problems ein String übergeben. Keine der Antworten on this similar post geholfen. Das Dokument ist in keiner Weise geschützt und die Inhaltskontrollen sind nicht gesperrt.

Irgendwelche Ideen? Vielen Dank.

UPDATE: Ich habe meinen Code in einem frischen, sauberen Dokument ausprobiert und es funktioniert gut, also ist es etwas über das Dokument, das ich erhalten habe. Wiederum ist nichts geschützt, also bin ich immer noch ratlos.

Answer 1

"Geschützt" bedeutet wahrscheinlich, dass das ContentControl auf "Can not Edit" eingestellt ist. Bevor Sie "con.range.text = ...." sagen, fügen Sie eine Zeile ein, die "con.LockContents = False" lautet. Gleich danach möchten Sie con.LockContents wahrscheinlich wieder auf True setzen.