Làm cách nào để xóa nhiều trang cụ thể trong tài liệu Word?

Trong tài liệu Word, bạn có thể chọn nội dung trang hiện tại, sau đó nhấn phím Delete để xóa trang hiện tại một cách dễ dàng. Tuy nhiên, nếu bạn cần xóa nhiều trang khỏi một tệp Word lớn, làm thế nào bạn có thể giải quyết nhanh chóng?

Xóa một loạt các trang trong tài liệu Word với tính năng Đi tới

Xóa nhiều trang cụ thể trong tài liệu Word bằng mã VBA

Xóa một loạt các trang trong tài liệu Word với tính năng Đi tới

Nếu bạn muốn xóa một loạt các trang liên tiếp khỏi tài liệu Word, tính năng Go To có thể giúp bạn.

1. Khởi chạy tài liệu Word mà bạn muốn xóa các trang.

2. Sau đó nhấn F5 chìa khóa để mở Tìm và Thay thế hộp thoại, bên dưới Go To tab, nhấp vào Trang trong Đi đến cái gì hộp danh sách, sau đó nhập số trang bắt đầu bạn muốn xóa và nhấn đăng ký hạng mục thi phím để chuyển đến trang cụ thể, xem ảnh chụp màn hình:

2. Sau đó, đóng cái này Tìm và Thay thế hộp thoại và nhấn F8 để bật Mở rộng chế độ.

3. Tiếp tục nhấn F5 chìa khóa để mở Tìm và Thay thế , lần này, hãy nhập số trang kết thúc mà bạn muốn xóa, rồi nhấn đăng ký hạng mục thi Chìa khóa. Tất cả các trang từ 15 đến 20 đã được chọn cùng một lúc. Xem ảnh chụp màn hình:

4. Cuối cùng, nhấn Xóa bỏ trực tiếp để xóa các trang này cùng một lúc.

Xóa nhiều trang cụ thể trong tài liệu Word bằng mã VBA

Để xóa nhiều trang cụ thể trong tệp Word không liên tiếp, mã VBA sau đây có thể giúp bạn.

1. Giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Cửa sổ mô-đun.

Mã VBA: Xóa nhiều trang cụ thể trong tệp Word:

Sub DeletePagesInDoc()
    Dim xRange As Range
    Dim xPage As String
    Dim xDoc As Document
    Dim xArr
    Dim I, xSplitCount As Long
    Application.ScreenUpdating = False
    Set xDoc = ActiveDocument
    xPage = InputBox("Enter the page numbers of pages to be deleted: " & vbNewLine & _
            "use comma to separate numbers", "KuTools for Word", "")
    xArr = Split(xPage, ",")
    xPageCount = UBound(xArr)
    For I = xPageCount To 0 Step -1
        Selection.GoTo wdGoToPage, wdGoToAbsolute, xArr(I)
        xDoc.Bookmarks("\Page").Range.Delete
    Next
    Application.ScreenUpdating = True
End Sub

3. Sau đó nhấn F5 để chạy mã này và một hộp nhắc xuất hiện để nhắc bạn nhập số trang mà bạn muốn xóa, vui lòng phân tách các số trang bằng dấu phẩy, xem ảnh chụp màn hình:

4. Và sau đó, nhấp vào OK , tất cả các trang bạn chỉ định đã bị xóa cùng một lúc.

---

Công cụ năng suất Word được đề xuất

 

Kutools cho Word - Hơn 100 tính năng nâng cao cho Word, tiết kiệm 50% thời gian của bạn

• Các hoạt động phức tạp và lặp đi lặp lại có thể được thực hiện xử lý một lần trong vài giây.
• Chèn nhiều hình ảnh trên các thư mục vào tài liệu Word cùng một lúc.
• Hợp nhất và kết hợp nhiều tệp Word trên các thư mục thành một với thứ tự mong muốn của bạn.
• Chia tài liệu hiện tại thành các tài liệu riêng biệt theo tiêu đề, ngắt phần hoặc các tiêu chí khác.
• Chuyển đổi tệp giữa Doc và Docx, Docx và PDF, bộ sưu tập các công cụ để chuyển đổi và lựa chọn phổ biến, v.v.

Tìm hiểu thêm Tải xuống Ngay Mua