Open Front Document with Default App

tell application "BBEdit 6.0"
	set DocPath to file of document 1
	set DocName to name of window 1
end tell

try
	tell application "Finder" to open DocPath
on error
	display dialog "Can't open \"" & DocName & "\" in its default " & ¬
		"application!" with icon caution buttons {"OK"} default button 1
end try