set a1Str to "where’s 😎the 😎😎emoji 😎?"
set b1Str to removeEmoji(a1Str) of me
–> "where’s the emoji ?"

set a2Str to "2200)🔄❎すべて❌伏せ字に（□に置き換え）"
set b2Str to removeEmoji(a2Str) of me
–> "2200)すべて伏せ字に（□に置き換え）"

set a3Str to "2251)1️⃣2️⃣3️⃣昇順（1–>9）で連番を振る"
set b3Str to removeEmoji(a3Str) of me
–> "2251)1️⃣2️⃣3️⃣昇順（1–>9）で連番を振る"

set a4Str to "2203)🔄❎⚙️🇯🇵簡易日本語形態素解析📚してそれっぽく❌伏せ字に（□に置き換え）.scptd"
set b4Str to removeEmoji(a4Str) of me
–> "2203)⚙️簡易日本語形態素解析してそれっぽく伏せ字に（□に置き換え）.scptd"

set emojiStr to "😀😃😄😁😆😅😂🤣☺️😊😇🙂🙃😉😌😍🥰😘😗😙😚😋😛😝😜🤪🤨🧐🤓😎🤩🥳😏😒😞😔😟😕🙁☹️😣😖😫😩🥺😢😭😤😡🤬🤯😳🥵🥶😱😨😨😰😥😓🤗🤔🤭🤫🤥😶😐😑😬🙄😯😦😧😮😲😴🤤😪😵🤐🥴🤢🤮🤧😷🤒🤕🤑🤠😈👿👹👺🤡💩👻💀☠️👽👾🤖🎃😺😸😹😻😼😽🙀😿😾🤲👐🙌👏🤝👍👎👊✊🤛🤜🤞✌️🤟🤘👌👈👉👆👇☝️✋🤚🖐🖖👋🤙💪🖕✍️🙏🦶🦵"
set eRes to removeEmoji(emojiStr) of me
–> "☺️☹️☠️✌️☝️🖐✍️"

set emojiStr to "☺️☹️☠️✌️☝️🖐✍️1️⃣2️⃣3️⃣⚙️"
set eRes to removeEmoji(emojiStr) of me
–> "☺️☹️☠️✌️☝️🖐✍️1️⃣2️⃣3️⃣⚙️"

on removeEmoji(aStr)
　　script spdC
　　　　property outList : {}
　　　　property cList : {}
　　end script
　　
　　set (cList of spdC) to characters of aStr
　　log (cList of spdC)
　　set (outList of spdC) to {}
　　
　　repeat with i in (cList of spdC)
　　　　set j to contents of i
　　　　set eRes to chkEmoji(j) of me
　　　　if eRes = false then
　　　　　　set the end of (outList of spdC) to j
　　　　end if
　　end repeat
　　return retDelimedText((outList of spdC), "") of me
end removeEmoji

on chkEmoji(aStr)
　　set aNSString to current application’s NSString’s stringWithString:aStr
　　set aReg to current application’s NSRegularExpression’s regularExpressionWithPattern:"＼＼p{Emoji_Presentation}" options:0 |error|:(missing value)
　　set cResList to (aReg’s matchesInString:(aNSString) options:0 range:(current application’s NSMakeRange(0, aNSString’s |length|()))) as list
　　if length of cResList = 0 then return false –指定文字列に絵文字が入っていない場合
　　return true –指定文字列に絵文字が入っている場合
end chkEmoji