function ToEvpus(text)
    local str = finale.FCString()
    str.LuaString = text
    return str:GetMeasurement(finale.MEASUREMENTUNIT_DEFAULT)
end

for p in loadall(finale.FCPages()) do
    p.Width = ToEvpus("20c")
    p:Save()
end