set attrStr to makeRTFfromParameters("ぴよまるソフトウェアだよーーん", 3.0, 72) of me
(my restoreClipboard:{attrStr})

tell application "FileMaker Pro"
　　tell database 1
　　　　do script "getAttrFromClipboard" –クリップボードの内容をtextFieldにペーストする
　　end tell
end tell

–書式つきテキストを組み立てる
on makeRTFfromParameters(aStr as string, outlineNum as real, aFontSize as real)
　　–フォント
　　set aVal1 to current application’s NSFont’s fontWithName:"HiraKakuStdN-W8" |size|:aFontSize
　　set aKey1 to (current application’s NSFontAttributeName)
　　
　　–色
　　set aVal2 to current application’s NSColor’s blackColor()
　　set aKey2 to (current application’s NSForegroundColorAttributeName)
　　
　　–カーニング
　　set aVal3 to -2.0
　　set akey3 to (current application’s NSKernAttributeName)
　　
　　–アンダーライン
　　set aVal4 to 0
　　set akey4 to (current application’s NSUnderlineStyleAttributeName)
　　
　　–リガチャ
　　set aVal5 to 2 –全てのリガチャを有効にする
　　set akey5 to (current application’s NSLigatureAttributeName)
　　
　　–枠線（アウトライン）
　　set aVal6 to outlineNum
　　set akey6 to (current application’s NSStrokeWidthAttributeName)
　　
　　
　　set keyList to {aKey1, aKey2, akey3, akey4, akey5, akey6}
　　set valList to {aVal1, aVal2, aVal3, aVal4, aVal5, aVal6}
　　set attrsDictionary to current application’s NSMutableDictionary’s dictionaryWithObjects:valList forKeys:keyList
　　
　　set attrStr to current application’s NSMutableAttributedString’s alloc()’s initWithString:aStr attributes:attrsDictionary
　　return attrStr
end makeRTFfromParameters

–クリップボードに内容を設定する
on restoreClipboard:theArray
　　— get pasteboard
　　set thePasteboard to current application’s NSPasteboard’s generalPasteboard()
　　
　　— clear it, then write new contents
　　thePasteboard’s clearContents()
　　thePasteboard’s writeObjects:theArray
end restoreClipboard: