Automatisch einklammern

Computer: Software & Programmierung Office Software
1

Hallo Leute,

kennt jmd. eine Funktion mit der Word markierte Wörter/Textpassagen automatisch einklammert?

  • Also im Prinzip will ich nur das Wort anklicken (irgendwo mittendrinn), dann möchte ich eine TAste drücken und das Wort (oder der Satz) sollt eingeklammert werden)

  • Das gleiche hätte ich gern auch mit eckigen Klammern. Müsste doch zu machen sein oder?

  • Sry hab bei google usw. nichts gefunden was geholfen hätte,

vielen Dank,

tom

2

hallo tom

geht nur mit makro. so in etwa:

Sub addklammern()
Dim bereich As Range

Selection.Expand unit:=wdWord
If Right(Selection.text, 1) = " " Then
 Set bereich = ActiveDocument.Range(Selection.Range.Start, Selection.Range.End - 1)
Else
 Set bereich = ActiveDocument.Range(Selection.Range.Start, Selection.Range.End)
End If

bereich.text = "(" & bereich.text & ")"

End Sub

dem makro kannst du sowohl eine tastenkombination als auch einen menüpunkt/symbolleisteneintrag zuordnen.

lg
erwin