Seitenhistorie
Funktion
Beschreibung
Automat. Suche nach Tn-/Tp-Sätzen
Zeile 277 - 293
Code in WinIBW2 (Makro/VBScript)
Codeblock |
---|
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)
...
Überblick
Inhalte