set a to the clipboard 

tell application "Safari" 
	activate 
end tell 
 
tell application "System Events" 
	tell process "Safari" 
		keystroke "a" using command down 
		keystroke "c" using command down 
	end tell 
end tell 
set webText to the clipboard as Unicode text 

tell application "Safari" to activate 
 
menu_click({"Safari", "Bearbeiten", "Alles auswählen"}) 
menu_click({"Safari", "Bearbeiten", "Kopieren"}) 

on run webText 
	-- Text aus der offenen WebsSeite aufnehmen 
	tell application "Safari" to activate 
	 
	menu_click({"Safari", "Bearbeiten", "Alles auswählen"}) 
	menu_click({"Safari", "Bearbeiten", "Kopieren"}) 
 
	set webText to (the clipboard) as Unicode text 
	return webText as text 
end run 

-- dieses Skript benutzt das Skriptmodul set_clipboard.scpt 
 
-- über den Eigenpfad dieses Skripts werden die benötigten Pfade ermittelt 
activate 
set ownPath to path to as string 
 
set AppleScript's text item delimiters to ":" 
set folderPath to (text items 1 thru -2 of ownPath) as string 
-- der eigentliche Skriptinhalt ist ausgelagert: 
set ascrFile to folderPath & ":" & "set_clipboard.scpt" 
set AppleScript's text item delimiters to "" 
 
set ascr to load script file ascrFile 
set webText to (run script ascr) 
(* 
-- um das Ergebnis nach dem ersten Durchlauf zu testen 
tell application "BBEdit" 
	activate 
	set contents of document 1 to webText 
end tell 
delay 5 
*) 
set webText to (run script ascr) 
 
tell application "BBEdit" 
	activate 
	set contents of document 1 to webText 
end tell