Hallo liebe Forumler,
in WORD2000 arbeite ich häufig mit Textmarken und rufe dazu das betreffende Auswahlfenster mit EINFÜGEN>TEXTMARKEN auf. Gibt es eine Möglichkeit, diesen Menübefehl in das allgemeine Kontextmenü einzubinden, sodaß man es mit Mausklick rechts aufrufen kann?
Gruß
Peter
in WORD2000 arbeite ich häufig mit Textmarken und rufe dazu
das betreffende Auswahlfenster mit EINFÜGEN>TEXTMARKEN auf.
Gibt es eine Möglichkeit, diesen Menübefehl in das allgemeine
Kontextmenü einzubinden, sodaß man es mit Mausklick rechts
aufrufen kann?
Hi Peter,
ja, das müßte mit Vba gehen. leider weiß ich nicht wie das Kontextmenu der rechten Maustatste in Word heißt, noch welchen Index es hat.
Wenn ich das wüßte müßte ich es hinkriegen es anzupassen.
Du könntest eins tun wenn du magst, lade dir die beiden PDFs aus meinem eitrag eine Beitragsfolge tiefer mit dem Betreff zu Rene probst herunter und suche in den PDFs nach
rechte maustaste Kontextmenu kontextmenü deaktivieren commandbars controls
in verschiedenen Suchwortkombinationen.
Mit dem Zusatz „word“ kannste danach auch googeln.
Wenn du da irgendwo Vba-Code findest der auch nur irgendwas am Kontextmenu der rechten Maustaste macht, so zeige ihn hier, den müßte man dann auf deine Wünsche umschreiben können.
Gruß
Reinhard
ja, das geht.- Rechtsklick Symbolleiste - Anpassen - Symbolleisten - dort ein Häkchen setzen bei - Kontextmenue - es geht ein Fenster auf - dort bei - Text klicken - rechts geht ein Fenster daneben auf, jetzt im noch geöffneten Anpassen-Fenster - Register - Befehle - dort bei Kategorie - Einfügen anklicken - rechts bei Befehle - Textmarke suchen anklicken u. mit gedrückter Maustaste in das Kontextmenuefenster neben Text ziehen u. dort loslassen. Alles wieder schließen, jetzt ist Textmarke… im Kontextmenue.
Vba Kontextmenu der rechten Maustaste anpassen
in WORD2000 arbeite ich häufig mit Textmarken und rufe dazu
das betreffende Auswahlfenster mit EINFÜGEN>TEXTMARKEN auf.
Gibt es eine Möglichkeit, diesen Menübefehl in das allgemeine
Kontextmenü einzubinden, sodaß man es mit Mausklick rechts
aufrufen kann?
Hi Peter,
Alt+F11, Doppelklick links auf „Normal“, Einfügen–Modul, dortrein den Code kopieren, den Curser irgendwie in den Code von „Sub KontextMenuRechteMaustaste“ stellen, F5 drücken, Editor schließen.
Option Explicit
'
Sub KontextMenuRechteMaustaste()
Dim objControl As CommandBarControl
With Application.CommandBars("Text")
Set objControl = .Controls.Add
With objControl
.OnAction = "MeineTextmarke"
.FaceId = 587
.Caption = "&TextmarkeEinfügen"
End With
End With
End Sub
'
Sub Loeschen()
Dim objControl As CommandBarControl
With Application.CommandBars("Text")
For Each objControl In .Controls
If objControl.Caption = "&TextmarkeEinfügen" Then objControl.Delete
Next objControl
End With
End Sub
'
Sub MeineTextmarke()
Dialogs(168).Show
End Sub
Gruß
Reinhard
Danke o.w.T
Danke für die hilfreichen Antworten
Peter