Hướng dẫn cách loại bỏ các dòng trắng trong Word

Đây là một tình huống rất thường xuyên gặp phải, khi bạn tải dữ liệu từ Web xuống sẽ xuất hiện rất nhiều dòng trắng (ngắt dòng thủ công). Nhưng làm sao để loại bỏ những dòng trống không cần thiết này. Trong bài này Gitiho.com sẽ hướng dẫn bạn các cách loại bỏ tất cả các dòng trống trong toàn bộ tài liệu hoặc một vùng chọn theo cách dễ dàng nhất. Cùng theo dõi và làm theo nhé.

Cách 1: Xóa các dòng trống bằng tùy chọn Find and Replace (tìm và thay thế)

Chức năng Find and Replace này trong word có thể sử dụng để loại bỏ tất cả các dòng trống, nhưng trước hết các bạn cần biết rằng các dòng trống này trong hộp tùy chọn Find What có tên là Manual Line Breaks.Tiếp theo chúng ta sẽ thao tác từng bước như sau:

Bước 1: Chọn Replace trên tab Home. Giống như hình:

Bước 2: Xuất hiện hộp thoại Find and Replace, bạn chọn More để mở rộng thêm nhiều tùy chọn. Sau đó bạn đặt con trỏ vào ô Find What và chọn Manual Line Break từ menu tùy chọn được thả xuống. Giống như hình dưới:

Bước 3: Sẽ có ký tự ^l trong ô Find What và chọn Replace All. Tại đây tất cả các ngắt dòng thủ công đã bị xóa cùng một lúc.

Cách 2: Xóa tất cả các dòng trắng bằng VBA.

Ngoài cách dùng Find and Replace như trên bạn còn có thể dùng macro để xóa tất cả các dòng trống. Cách làm rất đơn giản, bạn thực hiện các thao tác như hướng dẫn dưới đây:

Bước 1: Nhấn tổ hợp phím Alt và F11 để mở cửa sổ Microsoft Visual Basic. Nếu phím tắt của bạn không hoạt động thì bạn chọn Tab Developer, tiếp theo chọn Visual Basic. Như vậy cũng sẽ xuất hiện cửa sổ Microsoft Visual Basic.

Bước 2: Chọn Insert, chọn Module. Sau đó sao chép và dán đoạn mã VBA dưới đây vào cửa sổ.

Sub Deleemptylines()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^l"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Bước 3: Nhấn nút Run (là nút tam giác màu xanh lá cây trên thanh công cụ) hoặc nhấn F5 để chạy mã VBA.
 

Tới đây tất cả các dòng trắng đã được xóa đi.