auf mehrere Besprechunganfragen reagieren

Hallo Mister X,

Um Deinen Sachverhalt besser nachvollziehen zu können und Dir somit besser helfen zu können, bitten wir Dich um folgendes:

1. Bitte bestätige uns Deine exakte Office- sowie Windows Version wie in
diesem und
diesem Artikel beschrieben.

2. Bitte bestätige ob das Problem nur bei Einladungen von diesem einen Veranstalter ist, oder bei allen anderen auch.

3. Bitte bestätige etwas genauer was das Problem ist, am Besten
anhand von Screenshots, so dass wir genau sehen was los ist. Bitte schwärze davor eventuell sichtbare persönliche Daten. Du kannst die Screenshots dann via folgendem Symbol in Deiner nächsten Antwort hochladen:





Wir freuen uns auf Deine Rückmeldung Mister X!

Liebe Grüße,

Agnethe

Hallo,

nein. Diese Meldung erscheint in mehreren Builds. Vorerst nicht reagieren gegebenenfalls den Office-Support einschalten.

Peter

Hallo

funktioniert leider nicht werde den Laptop zurücksetzten und neu installieren den es reagieren ander Programme auch nicht mehr danke für deine Infos und Ratschläge.

Es ist toll wenn solche Leute einem Tips geben

Danke und Gruss Wyssen Rene

Nicht reagieren und wenn möglich Rufnummer sperren.

Hi

(Anrede und Gruß sind ein probates Mittel um Antworten zu erhalten...)

Das geht mittels des ContentControl-Ereignisses "ContentControlOnExit" beim Verlassen des besagten ContentControls.

Klassen-Modul "Klasse1":

Public WithEvents oDoc As Document

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

Dim cc As ContentControls, oCC As ContentControl

Dim bHidden As Boolean

Set cc = ActiveDocument.SelectContentControlsByTag(Tag:="tagV")

On Error GoTo CC_Err

If cc(1).Range.Text = "anonym" Then

  Debug.Print "gefunden"

  bHidden = True

Else

  bHidden = False

End If

For Each oCC In ActiveDocument.ContentControls

  If oCC.Tag = "tagRich" Then

    oCC.Range.FormattedText.Font.Hidden = bHidden

  End If

Next oCC

  ActiveWindow.View.ShowHiddenText = False

Exit Sub

CC_Err:

MsgBox "Kein ContentControl mit dem angegeben Tag gefunden!", vbCritical, "Fehler!"

End Sub

in einem normalen Modul wird das initialisiert:

Dim cc As New Klasse1

Sub AutoOpen()

Set cc.oDoc = ActiveDocument

End Sub

"tagRich" muss dann bei allen ContentControls verwendet werden, die ein/ausgeblendet werden sollen.

HTH