Code: Select all
InputBox, Word,, Word,,, 130
InputBox, ListE,, Comma delimited list,,, 130
List:=[]
loop, parse, ListE, `,
List[A_Index]:=A_LoopField
send, ^c
sleep 100
text:=clipboard
stringreplace, text, text, `r,, all
stringreplace, text, text, %word%, ♥, all
while InStr(text, "♥")
{
Random, selected, 1, List.maxindex()
stringreplace, text, text, ♥, % List[selected]
}
sendinput % text
return