Как убедиться, что в текстовом поле используется только один шрифт и размер шрифта?

Вам нужно предотвратить появление пасты, а затем воспроизвести ее самостоятельно. Например, в поле (непроверенном):

on pasteKey
  put the clipBoardData["text"] into char (word 2 of the selectedchunk of me) to (word 4 of the selectedchunk of me) of me
end pasteKey

Вам также нужно позаботиться о перетаскивании:

on dragDrop
  put the dragData["text"] into char (word 2 of the dropChunk) to (word 4 of the dropChunk) of me
end dragDrop

Если вы используете команду «вставить», она не вызовет сообщения pasteKey, поэтому, если у вас есть такой код в вашем приложении, вам нужно убедиться, что там обрабатываются особые случаи.

Примечание. Тестирование этого в среде IDE может быть сложным, поскольку оно прерывает некоторые сообщения, в том числе pasteKey (используйте «приостановить инструменты разработки» из меню «разработка»).