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?
|