IncreaseFontSize(n) { Send {END} Send +{HOME} Send ^b Loop, %n% { Send ^+. } Send {END} Return } SetClipboardHTML(HtmlBody, HtmlHead:="", AltText:="") { ; v0.67 by SKAN on D393/D42B Local F, Html, pMem, Bytes, hMemHTM:=0, hMemTXT:=0, Res1:=1, Res2:=1 ; @ tiny.cc/t80706 Static CF_UNICODETEXT:=13, CFID:=DllCall("RegisterClipboardFormat", "Str","HTML Format") If ! DllCall("OpenClipboard", "Ptr", A_ScriptHwnd) Return 0 Else DllCall("EmptyClipboard") If (HtmlBody!="") { Html := "Version:0.9`r`nStartHTML:00000000`r`nEndHTML:00000000`r`nStartFragment" . ":00000000`r`nEndFragment:00000000`r`n`r`n`r`n`r`n" . HtmlHead . "`r`n`r`n`r`n`r`n" . HtmlBody . "`r`n`r`n`r`n" Bytes := StrPut(Html, "utf-8") hMemHTM := DllCall("GlobalAlloc", "Int",0x42, "Ptr",Bytes+4, "Ptr") pMem := DllCall("GlobalLock", "Ptr",hMemHTM, "Ptr") StrPut(Html, pMem, Bytes, "utf-8") F := DllCall("Shlwapi.dll\StrStrA", "Ptr",pMem, "AStr","", "Ptr") - pMem StrPut(Format("{:08}", F), pMem+23, 8, "utf-8") F := DllCall("Shlwapi.dll\StrStrA", "Ptr",pMem, "AStr","", "Ptr") - pMem StrPut(Format("{:08}", F), pMem+41, 8, "utf-8") F := DllCall("Shlwapi.dll\StrStrA", "Ptr",pMem, "AStr","