#include <GuiRichEdit.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
OnAutoItExitRegister('_OnExit') ; Освобождает ресурсы RichEdit даже при завершении скрипта с ошибкой

$hGui = GUICreate("Устанавливает шрифт", 420, 350, -1, -1)
$hRichEdit = _GUICtrlRichEdit_Create($hGui, "Это текст", 10, 10, 400, 220, _
		BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL))
$iButton = GUICtrlCreateButton("Установить шрифт", 200, 310, 110, 30)
GUISetState()

; Выделяет текст
_GUICtrlRichEdit_SetSel($hRichEdit, 0, -1, True)

While 1
	Switch GUIGetMsg()
		Case $iButton
			; Устанавливает размер и имя шрифта выделенного текста
			$iFontSize = Random(10, 34, 1)
			_GUICtrlRichEdit_SetFont($hRichEdit, $iFontSize, "Times New Roman")
			; _GUICtrlRichEdit_SetFont($hRichEdit, 15, "Arial")
		Case $GUI_EVENT_CLOSE
			Exit
	EndSwitch
WEnd

Func _OnExit()
	; Для версий ниже 3.3.8.0 обязательно удаление RichEdit или GUI для освобождения ресурсов RichEdit
	_GUICtrlRichEdit_Destroy($hRichEdit)
	GUIDelete()
EndFunc