ANPSuche

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