Applescript - Create RTF File in Last Selected Finder Folder

Question

QUERY: As a fit-for-purpose Applescript user, I try to customize posted scripts (thanks to sharers who do the heavy lifting) to suit my needs. Someone posted a great Applescript for creating an RTF file, but I want one modification:  rather than having to declare/designate a folder in which to place the new RTF, I want it to create the new file in the active Finder file.  Interestingly enough, I also have an Appscript which, in fact, will create a TXT file (not RTF) in the active Finder file. How to take the desirable bit from the latter and working it into the former, I cannot figure. (More times than not, I can successfully blend scripts, but not so this time. I have hit something that requires expert help.)
REFERENCE MATERIAL: First, the current Applescript for creating an RTF. Then, for reference, the Applescript for creating the TXT.
Kind regards,
Obenreizer
=========start RTF creation applescript==========>
tell (current date) to get ((its year) * 10000 + (its month) * 100 + (its day)) as text -- yyyyMMdd
tell the result to set TheDate to text 3 thru 4 & "." & text 5 thru 6 & "." & text 7 thru 8 -- yy.mm.dd
-- QUERY: CAN THIS BE CHANGED TO THE ACTIVE FINDER FOLDER?
set TheFolder to choose folder
-- or can assign a specific "path" (including quotation marks)
set TheName to text returned of (display dialog "Enter the name for the new document:" with title "New text document" default answer TheDate & " - " buttons {"Cancel", "OK"} default button "OK")
set TheFile to (TheFolder & TheName & ".rtf") as text
set TheText to "{\\rtf1\\mac\\ansicpg10000\\cocoartf824\\cocoasubrtf440
{\\fonttbl}
{\\colortbl;\\red255\\green255\\blue255;}
\\margl1440\\margr1440\\vieww9600\\viewh8400\\viewkind0
try -- create a new text document
    tell application "System Events" to get exists of file TheFile
    if not (the result) then
        set TheOpenFile to open for access TheFile with write permission
        write TheText to TheOpenFile as «class utf8» starting at eof
        close access TheOpenFile
    else
        display alert "The file \"" & TheFile & "\" already exists" as critical
        error
    end if
on error
    try
        close access TheOpenFile
    end try
    return
end try
tell application "Finder" to set extension hidden of (TheFile as alias) to true
tell application "TextEdit" -- open the file and print date
    activate
    open file TheFile
    set the text of document 1 to ((current date) as text) & return
end tell
<=========end RTF creation applescript==========
=========start TXT creation applescript==========>
tell application "Finder"
    try
        set fileName to "untitled"
        set fileExt to ".txt"
        set thisFolder to the target of the front window as alias
        tell application "System Events"
            set fileList to get the name of every disk item of thisFolder
        end tell
        set newFile to fileName & fileExt
        set x to 1
        repeat
            if newFile is in fileList then
                set newFile to fileName & x & fileExt
                set x to x + 1
            else
                exit repeat
            end if
        end repeat
        make new file at thisFolder with properties {name:newFile, file type:"TEXT", creator type:"ttxt"}
        --{TO HIGHLIGHT CREATED FILE:  select one one of the next three choices}
        --select (every file of target of front window whose name contains "untitled")
        --select (first file of target of front window whose name contains "untitled")
        select (last file of target of front window whose name contains "untitled")
    on error errMsg
        display dialog (errMsg)
    end try
end tell
<=========end TXT creation applescript==========

Answer 1

Well, copy the above file into this file where the files is created.  See my comments.
=========start TXT creation applescript==========>
tell application "Finder"
    try
        set fileName to "untitled"
        set fileExt to ".txt"
        set thisFolder to the target of the front window as alias
        tell application "System Events"
            set fileList to get the name of every disk item of thisFolder
        end tell
        set newFile to fileName & fileExt
        set x to 1
        repeat
            if newFile is in fileList then
                set newFile to fileName & x & fileExt
                set x to x + 1
            else
                exit repeat
            end if
        end repeat
-- Here is the line where the text file is create.  it is in folder thisFolder  seems the name is in newFile.
        make new file at thisFolder with properties {name:newFile, file type:"TEXT", creator type:"ttxt"}
        --{TO HIGHLIGHT CREATED FILE:  select one one of the next three choices}
        --select (every file of target of front window whose name contains "untitled")
        --select (first file of target of front window whose name contains "untitled")
-- don't know what this line is doing, but I suppose it is highlight the new file since it is named untitled.txt
        select (last file of target of front window whose name contains "untitled")
    on error errMsg
        display dialog (errMsg)
    end try
end tell
<=========end TXT creation applescript==========