(defun scr-min()
　(save-excursion
　　(move-to-window-line 0)
　　(point)))

(defun scr-max()
　(save-excursion
　　(move-to-window-line (1- (window-text-height)))
　　(end-of-line)
　　(point)))

この間の文字列をバッファから拾ってこい。