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)
Erforderliche Änderungen / Ergänzungen
...
Überblick
Inhalte