Hướng dẫn cách xóa toàn bộ ngắt cột trong Word

Xóa ngắt cột trong Word rất dễ dàng tuy nhiên không phải ai cũng biết cách xóa nhanh tất cả ngắt cột cùng lúc. Trong bài này gitiho.com sẽ hướng dẫn bạn cách xóa nhanh tất cả các ngắt cột cùng một lúc trong tài liệu Word.

Cách 1: Xóa thủ công ngắt cột thủ công

Bước 1: Để hiển thị tất cả các dấu ngắt cột trong tài liệu, bạn hãy vào tab Home, chọn biểu tượng Show/Hide Editing Marks như hình bên dưới.

Bước 2: Chọn ngắt cột mà bạn muốn xóa.

Bước 3: Nhấn nút Delete trên bàn phím.

Giữ phím Ctrl để chọn lần lượt tất cả các ngắt cột và nhấn phím Delete. Việc chọn xóa thủ công thế này sẽ đơn giản nếu chỉ vài trang word, tuy nhiên sẽ rất tốn thời gian nếu tài liệu có hàng trăm trang. Do đó bạn hãy xem tiếp 2 cách dưới đây để lựa chọn cách phù hợp với mình nhé.

Cách 2: Dùng tính năng Find and Replace để xóa toàn bộ các ngắt cột trong tài liệu Word.

Các thao tác như sau:

Bước 1: Chọn Home. Chọn Replace để bật tính năng này.

Bước 2: Kích chuột vào More để mở rộng thêm nhiều tùy chọn. Giống như hình dưới.

Bước 3: Đặt con trỏ chuột vào ô Find What, và nhìn dưới nút Special chọn nó. Lập tức hiện ra một danh sách tùy chọn được thả xuống. Nhấn chọn Column Break.

Bước 4: Sẽ tự động xuất hiện ký tự ^n trong ô Find What.Và cuối cùng bạn chỉ cần chọn Replace All.

Cách 3: Xóa toàn bộ các ngắt cột bằng VBA

Ngoài 2 cách trên, bạn có thể sử dụng macro để xóa tất cả các dòng trống bằng mã VBA và bạn có thể làm theo các bước đơn giản sau đây:

Bước 1: Nhấn tổ hợp phím Alt và F11 để mở cửa sổ Microsoft Visual Basic for Application. Nếu phím tắt của bạn không hoạt động, hãy chọn tab Developer trên thanh công cụ, chọn Visual Basic. Lúc này cửa sổ Microsoft Visual Basic for Application cũng sẽ lập tức xuất hiện.

Bước 2: Chọn Insert, chọn Module. Một cửa sổ mới hiện ra, bạn chỉ cần sao chép và dán mã VBA dưới đây vào cửa sổ này.

Sub Delecolumnbreaks()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^n"
.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 Run (nút tam giác màu xanh lá cây trên thanh công cụ) hoặc nhấn nút F5 để chạy mã VBA.

Chú ý: Nếu đang bật chức năng Track Changes của tài liệu thì mã VBA này sẽ không xóa được các ngắt cột. Bạn cần tắt chức năng đó đi.