Viết đoạn VBA để xóa các dòng trống trong Word

[Phanhanhdai]

Em thường lên diễn đàn trên mạng em thấy có rất nhiều bài viết hay. Em thường copy về rồi dán trong Word (Em dán bằng cách nhấn ALT+ E + S) em thấy cách dán này rất hay vì giữ được định dạng. Nhưng đôi khi lại có rất nhiều dòng trống. Các bác cho em hỏi có cách nào viết VBA để tự động xóa các dòng trống đó đi không ah. Và cách thực hiện như thế nào? Mong các anh chị chỉ giáo.

 

[khongbietso]

Như mình thì không cần đến VBA có thể dùng công cụ thay thế
CTRL+H

ô Find what gõ ^p^p (hai dấu enter thành 1 dấu enter)
ô Replace with gõ ^p
Nếu thấy vẫn còn thì có thể dòng trống người ta dùng Shift+enter thì lại thay là
ô Find what gõ ^l^l (hai dấu Shift+enter thành 1 dấu enter)
ô Replace with gõ ^p
Bạn có thể bấm nút more tìm trong special nhiều ký tự khác nữa để thay thế

 

[haonlh]

Có phải cài lại gì không, vì tôi tìm ^p thì được, còn tìm ^| thì không được.
Tôi cũng biết Shift - Enter trong Word là xuống dòng cứng.
Nhờ khongbietso chỉ rõ. Có thể nói mã ASCII của | là bao nhiêu cũng được nếu khó mô tả nó ở đâu trên bàn phím.
Cảm ơn trước
Ồ, thôi biết rồi. Trong Special, chọn manual line break
Dấu này khác dấu "ống" cạnh BackSpace. Nó hơi ngắn hơn. Vẫn chưa biết mã ASCII của nó.

 

[ongtrungducmx25]

nếu bạn co office 2003 thì chọn trên thanh toobar ,chọn tiếp word thì có y nguyên trang word cho bạn nhé!