Funktion
Beschreibung
Code in WinIBW2 (Makro/VBScript)
Sub ANPSuche() '******************************************************************** ' 27.10.2004 Horst ANPSuche - Zeichen-Konversion PicaToLatin eingefügt ' 10.08.2005 Unger Suchname in die Zwischenablage kopieren, damit bei nach Fehlern der Name wieder eingefügt werden kann On error resume next Dim Suchname Application.ActiveWindow.Title.StartOfField False ' Cursor an den Anfang der Kategorie Application.ActiveWindow.Title.WordRight 1, False ' Zum Anfang des Suchbegriffes ohne Markierung Application.ActiveWindow.Title.EndOfField True ' Namen markieren Suchname = Application.ActiveWindow.Title.GetSelection() ' Personenname extrahieren Application.ActiveWindow.Title.DeleteSelection ' Namen löschen Suchname = Application.PicaToLatin(Suchname) ' Umlaute konvertieren Application.ActiveWindow.ClipBoard = Suchname ' und in die Zwischenablage kopieren, falls er wieder gebraucht wird Application.ActiveWindow.Command "sc per " + Suchname, True ' Suche im neuen Fenster End Sub
Code in WinIBW3 (Javascript)
Erforderliche Änderungen / Ergänzungen
Überblick
Inhalte