EDT_NumPagePDF.BackgroundColor = White
IF EDT_NumPagePDF = 0 THEN
	Info("Specify a page page number to be extracted")
	EDT_NumPagePDF.BackgroundColor = PastelRed
	SetFocusAndReturnToUserInput(EDT_NumPagePDF)
	RETURN
END

sNewPath is string = fSelectDir(sOriginalPath, ...
	"Directory selector", "Select the page extraction directory")

// Search in the DOC_Contact data file for the text contained in the Table control.
HReadSeek(DOC_Contact, DOCID_Contact, TABLE_Win_Document_List.COL_DOCID_Contact)
IF HFound() THEN
	HourGlass()
	MyPDFPath is string = sNewPath + "\" + ...
			DOC_Contact.DOCID_Contact + "." + DOC_Contact.Format

	// Document is a memo that contains the PDF file
	IF NOT HExtractMemo(DOC_Contact, Document, MyPDFPath) THEN
		Error(HErrorInfo())
	ELSE
		IF PDFNumberOfPages(MyPDFPath) < EDT_NumPagePDF THEN
			Error("The PDF document does not contain enough pages", "Processed canceled")
			RETURN
		END

		MyPDFImage is Image = PDFExtractPage(MyPDFPath, EDT_NumPagePDF)
		// Delete original PDF
		fDelete(MyPDFPath)

		MyPNGImage is string = sNewPath + "\" + DOC_Contact.DOCID_Contact + ...
			 "_Page" + EDT_NumPagePDF + ".PNG"
		dSaveImagePNG(MyPDFImage, MyPNGImage)
		ShellExecute(MyPNGImage)
	END
	HourGlass(False)
END