Creates a new Pages document from the text of the frontmost Safari document.

ViewTextOfSafariInPages.scpt

use AppleScript version "2.4" -- Yosemite (10.10) or later
use scripting additions

set content to missing value

tell application "Safari"
	try
		set content to text of first document
	end try
end tell

if content is not missing value then
	tell application "Pages"
		activate
		set new_document to make new document at end of documents
		set body text of new_document to content
	end tell
end if