4 phương pháp nhanh chóng để loại bỏ các ngắt trang không mong muốn trong tài liệu Word của bạn

Chia sẻ ngay bây giờ:

Trong bài viết này, chúng ta sẽ tập trung giới thiệu 4 phương pháp nhanh chóng để loại bỏ các ngắt trang không mong muốn trong tài liệu Word của bạn.

Word tự động chèn ngắt trang khi chuyển từ trang này sang trang khác. Ngoài ra, bạn có thể chèn ngắt trang thủ công sau khi kết thúc một đoạn văn bản. Khi đó, văn bản sẽ bắt đầu ở đầu trang tiếp theo. Để biết cách chèn ngắt trang thủ công, bạn có thể tham khảo bài viết này: 5 cách để nhanh chóng chèn ngắt trang vào tài liệu Word của bạn

Tuy nhiên, bạn nên hiểu rằng việc ngắt trang tự động là vô hình và do đó không thể xóa theo cách thủ công. Nhưng việc ngắt trang thủ công được chèn vào thì có. Vì vậy, bài viết của chúng tôi chủ yếu sẽ cung cấp cho bạn những phương pháp hữu ích để loại bỏ các ngắt trang thủ công không mong muốn trong tài liệu Word.   Xóa các ngắt trang không mong muốn trong tài liệu Word của bạn

Phương pháp 1: Xóa ngắt trang theo cách thủ công

  1. Trước hết, bạn phải nhấp vào lệnh “Hiển thị/Ẩn” trong tab “Trang chủ” để hiển thị tất cả các dấu và ký hiệu ẩn trong tài liệu để bạn có thể xem ngắt trang.
  2. Tiếp theo, chọn ngắt trang và nhấn “Xóa” để loại bỏ nó.
  3. Hoặc bạn có thể nhấp vào bên trái ngắt trang rồi nhấn “Xóa”.Chọn Ngắt trang -> Nhấn "Xóa"

Cách 2: Sử dụng tính năng “Tìm và Thay thế”

  1. Để bắt đầu, hãy nhấn “Ctrl + H” để kích hoạt hộp “Tìm và Thay thế”.
  2. Sau đó đặt con trỏ vào hộp văn bản “Tìm gì” và nhấp vào tab “Thêm”.
  3. Tiếp theo nhấp vào “Đặc biệt” và chọn “Ngắt trang thủ công” trên menu đó.Nhấp vào "Đặc biệt"->Chọn "Ngắt trang thủ công"
  4. Cuối cùng, để trống hộp “Thay thế bằng” và nhấp vào “Thay thế tất cả” để xóa từng ngắt trang trong tài liệu.

Phương pháp 3: Chạy Macro để xóa tất cả ngắt trang trong tài liệu

  1. Trước hết, hãy kích hoạt trình soạn thảo VBA trong Word bằng cách nhấn “Alt + F11”.
  2. Tiếp theo, nhấp vào dự án "Bình thường" ở cột bên trái.
  3. Sau đó nhấp vào “Chèn” trên thanh menu và chọn “Mô-đun”.Nhấp vào "Bình thường" -> Nhấp vào "Chèn" -> Nhấp vào "Mô-đun"
  4. Mở mô-đun bằng cách nhấp đúp và dán các mã sau vào đó:
Sub DeleteAllPageBreaksInOneDoc()
  Application.ScreenUpdating = False
 
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Text = "^m"
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      .Execute Replace:=wdReplaceAll
    End With
  End With
  MsgBox ("All manual page breaks in the document have been removed!")
 
  Application.ScreenUpdating = True
End Sub
  1. Cuối cùng nhấn “F5” để thực thi mã.Dán mã-> Nhấp vào "Chạy"

Phương pháp 4: Xóa tất cả ngắt trang trong tất cả tài liệu trong một thư mục

Để xóa tất cả ngắt trang trong tất cả tài liệu trong một thư mục, bạn có thể sử dụng phương pháp này.

  1. Để cài đặt và chạy macro, bạn có thể tham khảo các bước trong phương pháp 3.
  2. Và nhớ thay thế bằng macro này bên dưới nhé:
Sub DeleteAllPageBreaksInAFolder()
  Dim StrFolder As String
  Dim strFile As String
  Dim objDoc As Document
  Dim dlgFile As FileDialog
 
  Application.ScreenUpdating = False
 
  Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
 
  With dlgFile
    If .Show = -1 Then
      StrFolder = .SelectedItems(1) & "\"
    Else
      MsgBox "Select a folder first!"
      Exit Sub
    End If
  End With
 
  strFile = Dir(StrFolder & "*.docx", vbNormal)
 
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=StrFolder & strFile)
 
    With Selection
      .HomeKey Unit:=wdStory
      With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = "^m"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=wdReplaceAll
      End With
    End With
    objDoc.Save
    objDoc.Close
    strFile = Dir()
  Wend
  Application.ScreenUpdating = True
End Sub

Macro này sẽ kích hoạt cửa sổ “Browse”. Chọn thư mục chứa các tài liệu cần tìm và nhấp vào “OK” để tiếp tục.

Chuẩn bị cho thảm họa dữ liệu

Nhiều bạn đã nhận thức được tính ngẫu nhiên của việc mất dữ liệu. Đối với người dùng Word, bạn cũng nên chuẩn bị tốt cho mọi thảm họa dữ liệu. Và một trong những cách tốt nhất là có được một sửa chữa docx công cụ trước.

Giới thiệu tác giả:

Vera Chen là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm phục hồi xlsx và pdf sửa chữa các sản phẩm phần mềm. Để biết thêm thông tin, hãy truy cập www.datanumennăm

Chia sẻ ngay bây giờ:

Được đóng lại.