Trong bài viết này, chúng tôi sẽ tập trung vào việc hướng dẫn bạn cách xóa nhiều trang trong tài liệu Word thông qua VBA.
Soạn thảo tài liệu đòi hỏi phải điều chỉnh liên tục. Và việc xóa nội dung các trang cũng cần thiết như những chỉnh sửa khác. Xóa văn bản không cần thiết rất dễ dàng. Hầu hết mọi người chọn cách chọn một đoạn văn bản rồi nhấn phím “Delete” hoặc “Backspace” để hoàn thành công việc.
Điều này chắc chắn sẽ giúp bạn có được những gì bạn muốn. Nhưng có một cách nhanh hơn để làm như vậy. Hơn nữa, bạn bỏ qua bước lựa chọn và xóa nhiều trang cùng một lúc. Cách tiếp cận hấp dẫn là chạy macro Word.
Xóa trang hiện tại
Đối với những người ghét phải lựa chọn nhiều loại văn bản, đây có thể là điều may mắn cho bạn. Trước tiên hãy chỉ cho bạn cách xóa trang hiện tại qua VBA.
- Để bắt đầu, hãy đặt con trỏ vào trang bạn muốn xóa.
- Mở trình soạn thảo VBA trong Word bằng cách nhấp vào tab “Nhà phát triển” rồi nhấp vào “Visual Basic”. Nếu tab “Nhà phát triển” chưa có sẵn trong Dải băng, thay vào đó hãy nhấn “Alt + F11”.
- Thứ hai, nhấp vào “Bình thường”.
- Sau đó nhấp vào “Chèn” và chọn “Mô-đun” trên menu đó.
- Mở mô-đun mới bằng cách nhấp đúp.
- Và dán các mã sau vào đó:
Sub DeleteCurrentPage()
Dim objDoc As Document
' Initialize
Set objDoc = ActiveDocument
' Delete current page.
objDoc.Bookmarks("\Page").Range.Delete
End Sub
- Cuối cùng, nhấp vào nút “Run” hoặc nhấn “F5”.
Xóa nhiều trang
- Làm theo các bước ở trên để cài đặt và chạy macro.
- Thay thế macro bằng cái này:
Sub DeletePagesInDoc()
Dim objRange As Range
Dim strPage As String
Dim objDoc As Document
Dim nSplitItem As Long
Application.ScreenUpdating = False
' Initialize and enter page numbers of pages to be deleted.
Set objDoc = ActiveDocument
strPage = InputBox("Enter the page numbers of pages to be deleted: " & vbNewLine & _
"use comma to separate numbers", "Delete Pages", "For example: 1,3")
nSplitItem = UBound(Split(strPage, ","))
' Find specified pages and highlight their contents.
For nSplitItem = nSplitItem To 0 Step -1
With ActiveDocument
Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=Split(strPage, ",")(nSplitItem)
Set objRange = .Bookmarks("\Page").Range
objRange.Delete
End With
Next nSplitItem
Application.ScreenUpdating = True
End Sub
- Chạy macro sẽ kích hoạt hộp nhập liệu. Nhập số trang của các trang cần xóa và sử dụng dấu phẩy để phân tách chúng. Không nhập dấu cách sau dấu phẩy.
- Sau đó nhấp vào “OK” để tiếp tục.
Tất nhiên, bạn có thể sử dụng macro này để xóa trang hiện tại. Chỉ cần nhập số trang.
Đừng để tham nhũng ngăn cản bạn
Khi xảy ra sự cố mất dữ liệu, chắc chắn công việc hàng ngày của bạn sẽ bị chậm lại và bạn cũng phải chịu thêm chi phí phát sinh. Để đảm bảo dữ liệu của bạn được an toàn, tốt hơn hết bạn nên tìm một dịch vụ sao lưu dự phòng chuyên nghiệp. tài liệu thiệt hại công cụ sửa chữa.
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 sửa excel 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