I use:

;;;###autoload
(defun tq-increase-text-size ()
  "Increase text size."
  (interactive)
  (set-face-attribute 'default nil :height
     (truncate (* 1.1 (face-attribute 'default :height)))))

;;;###autoload
(defun tq-decrease-text-size ()
  "Decrease text size."
  (interactive)
  (set-face-attribute 'default nil :height
     (truncate (* 0.9 (face-attribute 'default :height)))))

which I bind to C-- and  C-= to shrink the font size down until it fits, then when I am done increase it.

John

-----------------------------------
Professor John Kitchin 
Doherty Hall A207F
Department of Chemical Engineering
Carnegie Mellon University
Pittsburgh, PA 15213
412-268-7803

On Thu, Dec 1, 2016 at 3:17 PM, David Talmage <david.talmage@shoutpoint.com> wrote:
I'm looking for ways to make a wide table more readable.  My motivation is from a table that is too wide to fit on my screen.  I need to be able to see all of the contents of a cell. If it were just text, I'd use M-q (fill-paragraph).  I've already tried org-table-wrap-region and couldn't figure it out.