ContentControl Runtime-Error 6197

08/09/2009 - 17:51 von Reinfried | Report spam
Ich verwende ContenControls in Word 2007. Nach Änderung des ContentContols
(Dropdown-Liste) möchte ich anhand des ausgewàhlten Wertes, im Dokument an
einer vorhanden Textmarke einen Inhalt einfügen.

Der Befehl rTemp.text = "Angebot" verursacht einen Laufzeitfehler 6197:
Dieser Objektmodellbefehl ist im aktuellen Ereignis nicht verfügbar.

Der gesamte Code ist im Modul ThisDocument hinterlegt, da die Ereignisse
des ContentControls, Ereignisse des Document-Objektes sind.

Private Sub Document_ContentControlBeforeContentUpdate(ByVal ContentControl
As ContentControl, Content As String)
Dim rTmp As Word.Range
Dim docangebot As Word.Document
Set docangebot = ActiveDocument
If ContentControl.Title = "Dokumententyp" Then
If ContentControl.Range.text = "Angebot" Then
If docangebot.Bookmarks.Exists("TYP") Then
Set rTmp = docangebot.Bookmarks("TYP").Range
rTmp.text = "Angebot" ' hier RuntimeError 6197 <<<<<
docangebot.Bookmarks.Add "TYP", rTmp
End If
End If
End If
End Sub

Gruss
Reinfried
 

Lesen sie die antworten

#1 Thomas Löwe [MS MVP Word]
08/09/2009 - 18:22 | Warnen spam
Hallo Reinfried,

"Reinfried" schrieb im Newsbeitrag
news:

Ich verwende ContenControls in Word 2007. Nach Änderung des
ContentContols (Dropdown-Liste) möchte ich anhand des
ausgewàhlten Wertes, im Dokument an einer vorhanden Textmarke
einen Inhalt einfügen.
Der Befehl rTemp.text = "Angebot" verursacht einen Laufzeitfehler
6197: Dieser Objektmodellbefehl ist im aktuellen Ereignis nicht
verfügbar.



du solltest diese Frage auch mit den Experten in der Newsgruppe
news:microsoft.public.de.word.vba diskutieren.

Bei weiteren Fragen stehen wir dir jederzeit gern zur Verfügung.

Mit freundlichen Grüßen / With best regards
Thomas Löwe [Microsoft MVP Word]
Es erfolgt keine Beantwortung von Supportanfragen per E-Mail.
http://support.microsoft.com

Ähnliche fragen