DruckversionTextbausteine über eigene Menüs
Menü für Textbausteine
Nun benötigen Sie noch ein zusätzliches Menü mit drei Befehlen für den Aufruf der Textbausteine.
Sub Textbausteine()
On Error Resume Next
With CommandBars("Menu Bar")
.Controls.Add Type:=msoControlPopup, Before:=7
.Controls(7).Caption = "Te&xtbausteine"
With .Controls("Te&xtbausteine")
.Controls.Add Type:=msoControlButton
.Controls(1).Caption = "Frau"
.Controls(1).OnAction = "Frau"
.Controls.Add Type:=msoControlButton
.Controls(2).Caption = "Wochenendfahrt
.Controls(2).OnAction = "Wochenendfahrt"
.Controls.Add Type:=msoControlButton
.Controls(3).Caption = "Sonnenschein"
.Controls(3).OnAction = "Sonnenschein"
End With
End With
End Sub
Sub Frau()
ActiveDocument.AttachedTemplate. _
AutoTextEntries("Frau").Insert Where:= _
Selection.Range, RichText:=True
End Sub
Sub Wochenendfahrt()
ActiveDocument.AttachedTemplate. _
AutoTextEntries("Wochenendfahrt").Insert Where:= _
Selection.Range, RichText:=True
End Sub
Sub Sonnenschein()
ActiveDocument.AttachedTemplate. _
AutoTextEntries("Sonnenschein").Insert Where:= _
Selection.Range, RichText:=True
End Sub
Dazu brauchen Sie jetzt noch die drei Prozeduren für "OnAction".
Diese Seite ist für Mitglieder von akademie.de reserviert.
Möchten Sie die Mitgliedschaft 14 Tage kostenlos testen und den Beitrag komplett lesen?
Oder möchten Sie zunächst mehr über diesen Beitrag erfahren und die Leseproben sehen?
Ich bin bereits Mitglied