Trong bài viết này, chúng tôi muốn chia sẻ với các bạn 3 cách để xóa nhanh tất cả dấu ngắt phần trong tài liệu Word.
Ngắt phần rất hữu ích trong việc tạo nhiều phần trong tài liệu Word. Vì vậy, bạn có thể định dạng các phần khác nhau theo các phong cách đặc biệt. Và đây là bài viết trước của chúng tôi để bạn có thể nhanh chóng chèn dấu ngắt phần trong tài liệu: 3 cách để nhanh chóng chèn các phần ngắt vào tài liệu Word của bạn
Tuy nhiên, việc sửa đổi một tài liệu là khá phổ biến, chẳng hạn như thay đổi kiểu, chia lại các phần, v.v. Đặc biệt, nếu có một sự điều chỉnh lớn cần thực hiện, bạn có thể sẽ cần phải loại bỏ tất cả các ngắt phần. Sau đây là 3 phương pháp bạn có thể sử dụng để xóa hàng loạt phần ngắt.
Phương pháp 1: Tìm tất cả các ngắt phần trong tài liệu
- Trước hết, nhấn “Ctrl + H” để mở hộp “Tìm và thay thế” trong Word.
- Tiếp theo, đặt con trỏ bên trong hộp văn bản “Tìm gì”.
- Nhấp vào nút "Thêm" để có thêm tùy chọn.
- Sau đó nhấp vào “Đặc biệt” và chọn “Ngắt phần” trên menu của nó. Sau đó, bạn sẽ thấy “^ b” trong hộp văn bản “Tìm gì”. Vì vậy, một cách khác là nhập “^ b” ngay sau bước 2.
- Cuối cùng, để trống hộp “Thay thế bằng” và nhấp vào “Thay thế tất cả”. Nhấp vào “OK” trên hộp xác nhận.
Phương pháp 2: Chạy Macro để xóa tất cả các ngắt phần trong một tài liệu
Đây là cách tự động để bạn loại bỏ tất cả các ngắt phần không mong muốn.
- Để bắt đầu, hãy mở trình soạn thảo VBA trong Word bằng cách nhấn “Alt + F11”.
- Sau đó, tạo một mô-đun mới bằng cách nhấp vào “Bình thường”.
- Tiếp theo nhấp vào “Chèn” và chọn “Mô-đun”.
- Bây giờ mở mô-đun bằng cách nhấp đúp.
- Trong không gian mã hóa ở phía bên phải, hãy dán các mã sau:
Sub DeleteAllSectionsInOneDoc()
With Selection
.HomeKey Unit:=wdStory
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "^b"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End With
End Sub
- Cuối cùng, nhấp vào “Chạy”.
Bạn sẽ không tìm thấy tất cả các phần ngắt trong một giây.
Phương pháp 3: Xóa tất cả các dấu ngắt phần trong nhiều tài liệu
Tương tự, chúng ta phải chạy một macro nếu chúng ta muốn thực hiện nó một cách nhanh chóng và dễ dàng.
- Trước hết, hãy đặt tất cả các tài liệu đích vào một thư mục.
- Sau đó, cài đặt macro với các bước trong phương pháp 2.
- Chạy macro này thay thế:
Sub DeleteAllSectionBreaksInMultiDoc()
Dim StrFolder As String
Dim strFile As String
Dim objDoc As Document
Dim dlgFile As FileDialog
Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
With dlgFile
If .Show = -1 Then
StrFolder = .SelectedItems(1) & "\"
Else
MsgBox "No folder is selected! Please select the target folder."
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 = "^b"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End With
objDoc.Save
objDoc.Close
strFile = Dir()
Wend
End Sub
- Tiếp theo trong cửa sổ “Duyệt qua” mở ra, hãy chọn thư mục mà bạn lưu tài liệu.
- Cuối cùng nhưng không kém phần quan trọng, hãy nhấp vào “OK”.
Chuẩn bị cho việc mất dữ liệu
Thông thường, với thói quen sử dụng tốt, may mắn và mọi điều tốt lành, bạn có thể đạt được nhiều thành tựu trong Word. Nhưng sự cố có thể xảy ra bất cứ lúc nào. Vì vậy, việc sao lưu tài liệu thường xuyên là vô cùng quan trọng. Với bản sao lưu trong tay, bạn sẽ tự tin hơn trước khi bắt đầu công việc. sửa lỗi docx.
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 xls 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




