Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Script fuer DropDown ContentControl um Dokument Hintergrund Farbe zu aendern
22.08.2018 11:59:23 WordNoob24
NotSolved
22.08.2018 14:53:22 Gast93552
NotSolved
22.08.2018 15:52:57 WordNoob24
NotSolved
22.08.2018 16:51:49 Gast60852
NotSolved
22.08.2018 17:25:08 Gast2754
NotSolved

Ansicht des Beitrags:
Von:
WordNoob24
Datum:
22.08.2018 11:59:23
Views:
529
Rating: Antwort:
  Ja
Thema:
VBA Script fuer DropDown ContentControl um Dokument Hintergrund Farbe zu aendern

Ich versuche fuer ein Word Memo Template ein VBA Script zu generieren das es mir mit Hilfe eines Drop-Down ContentControl erlaubt je nach Verwendungszweck des Memos die Farbe/Textur des Dokument-Hintergrunds zu aendern. Das Script steht unten aber steigt mir mit der Meldung Invalid Parameter aus. Ich waere sehr dankbar fuer Hilfestellung.

Ausgangspunkt is ein Drop-Down List Content Control mit Namen "BackgroundColor" und den Werten "Blue" and "Green" je nach Verwendungszweck.

Das fehlerhafte VBA Macro ist wie folgt:

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
ActiveDocument.Unprotect
With ActiveDocument
Select Case ActiveDocument.ContentControls("BackgroundColor")
Case "Blue"
ActiveDocument.ActiveWindow.View.DisplayBackground s = True
ActiveDocument.Background.Fill.ForeColor.RGB = RGB(200, 200, 200)
ActiveDocument.Background.Fill.Transparency = 0#
ActiveDocument.Background.Fill.PresetTextured msoTextureParchment
Case "Green"
ActiveDocument.ActiveWindow.View.DisplayBackground s = True
ActiveDocument.Background.Fill.ForeColor.RGB = RGB(100, 100, 100)
ActiveDocument.Background.Fill.Transparency = 0#
ActiveDocument.Background.Fill.PresetTextured msoTextureParchment
Case Else
End Select
ActiveDocument.Protect wdAllowOnlyFormFields, True
End With
End Sub

Was mache ich hier falsch?


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Script fuer DropDown ContentControl um Dokument Hintergrund Farbe zu aendern
22.08.2018 11:59:23 WordNoob24
NotSolved
22.08.2018 14:53:22 Gast93552
NotSolved
22.08.2018 15:52:57 WordNoob24
NotSolved
22.08.2018 16:51:49 Gast60852
NotSolved
22.08.2018 17:25:08 Gast2754
NotSolved