Like this:

  db<-data.frame(replicate(44,1:5))
  likertcat <- as.ordered(c("Not at all", "To a small extent", "To some extent",
                 "To a moderate extent", "To a large extent"))
  db[ ,9:44] <- lapply(db[,9:44], function(x) likertcat[x])