Tastenfolge als Makro

[Karthagos]

Hallo Koter,

seltsam, heute morgen funktioniert Dein Makro

Code:

Sub Verzerrer()
  ActiveDocument.Background.ConvertToLayer
  With Application.FrameWork.Automation
      .InvokeItem "2d9cb0c1-bc89-4eeb-b2e1-f70629882b9d"
      .InvokeItem "578a71ac-6361-dea7-471d-edff86fdcf25"
  End With
End Sub

nicht mehr, bringt folgende Fehlermeldung:
   
woran kann das liegen?