Günther KF antwortet am 08.02.2010 um 15:58

Bis einschließlich Word 2003 habe ich sämtliche Kontextmenus per Makro an meine Bedürfnisse angepasst. Auch mit 2007 sollte das funktionieren.

Befehle ausblenden:

With Application.CommandBars("Text").Controls("Ausschneiden")
.Visible = False
End With

Kleines Druckmenu (aktuelle Seite oder Markierung)

Sub Druckmenu_einfuegen()
'x = Application.CommandBars("Text").Controls.Count
Set einstell = Application.CommandBars("Text").Controls.Add(Type:=msoControlPopup, _
Before:=Application.CommandBars("Text").Controls.Count)
With einstell
.Caption = "Drucken"
.BeginGroup = False
With .Controls.Add(msoControlButton)
.Caption = "Markierung drucken"
.OnAction = "drucke_markierung"
' ActiveDocument.Shapes("Picture 2").Select
' Selection.CopyAsPicture
' .PasteFace
End With
With .Controls.Add(msoControlButton)
.Caption = "Seite drucken"
.OnAction = "drucke_seite"
'ActiveDocument.Shapes("Picture 4").Select
'Selection.CopyAsPicture
'.PasteFace
End With
End With
End Sub

Sub drucke_markierung()
Application.PrintOut FileName:="", Range:=wdPrintSelection, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=False, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
End Sub

Sub drucke_seite()
Application.PrintOut FileName:="", Range:=wdPrintCurrentPage, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=False, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
End Sub

Sub Druckmenu_loeschen()
On Error Resume Next
With Application.CommandBars("Text").Controls("Drucken")
.Delete
End With
End Sub

Das ganze in ein Standard-Modul einfügen. Einfügen einmal durchführen und gut is.. probiers mal in Word 2007. Mit einer Schleife und dem ersten makro kannst Du Dir auch eine Liste der Befehle in Menus anzeigen lassen. Einfach mal probieren halt.. – Bewerten …

Günther KF antwortet am 08.02.2010 um 15:59

Ach ja: vorher eine 2 kleine gif (picture2 und 4) ins Dokument als Symbol (16x16) – Bewerten …