네 그렇군요. 

대단한 건 아니지만 소소하게 이런 방법은 어떨까요?

function highword(dict)
    local dict = dict
    return function (s)
        for _, w in ipairs(dict) do
            s = s:gsub("([^\\])(%f[%a]"..w.."%f[%A])", "%1\\texthi{%2}")
            s = s:gsub("("..w:gsub("^%l", string.upper)..")", "\\dream{%1}")
            s = s:gsub("("..w:gsub("%a", string.upper)..")", "\\dream{%1}")
        end
        return s
    end
end