Note: The other languages of the website are Google-translated. Back to English

Làm cách nào để chọn hoặc xóa văn bản giữa hai dấu trang trong tài liệu Word?

Bạn có biết cách chọn hoặc xóa nội dung giữa hai dấu trang trong tài liệu Word không? Bài viết này sẽ chỉ cho bạn các phương pháp để đối phó với nó.

Chọn / xóa văn bản giữa hai dấu trang bằng VBA


Chọn / xóa văn bản giữa hai dấu trang bằng VBA

Giả sử có hai dấu trang trong tài liệu của bạn như hình minh họa bên dưới, bạn có thể chọn hoặc xóa tất cả nội dung giữa hai dấu trang này bằng mã VBA sau.

1. Trong tài liệu, bấm Khác + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. bên trong Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp Chèn > Mô-đun, sau đó sao chép mã bên dưới vào cửa sổ Mô-đun.

Để chọn hoặc xóa văn bản giữa hai dấu trang, vui lòng sử dụng mã này:

Mã VBA: Chọn văn bản giữa hai dấu trang được chỉ định trong Word:

Sub SelectBetweenBookmarks()
    Dim xRange As Range
    Dim xBMone, xBMtwo As Bookmark
Dim xBookMarkOne, xBookMarkTwo As String
On Error Resume Next
    Set xRange = ActiveDocument.Content
    xBookMarkOne = InputBox("Please enter the start bookmark:", "Kutools for Word")
    xBookMarkTwo = InputBox("Please enter the end bookmark:", "Kutools for Word")
    Set xBMone = ActiveDocument.Bookmarks(xBookMarkOne)
    Set xBMtwo = ActiveDocument.Bookmarks(xBookMarkTwo)
    If xBMone Is Nothing Or xBMtwo Is Nothing Then
        MsgBox "Please enter the correct bookmark name", vbInformation, "KuTools for Word"
        Exit Sub
    End If
    xRange.Start = xBMone.Range.End
    xRange.End = xBMtwo.Range.Start
    xRange.Select
End Sub

Mã VBA: Xóa văn bản giữa hai dấu trang được chỉ định trong Word:

Sub DeleteBetweenBookmarks ()
    Dim xRange As Range
    Dim xBMone, xBMtwo As Bookmark
Dim xBookMarkOne, xBookMarkTwo As String
On Error Resume Next
    Set xRange = ActiveDocument.Content
    xBookMarkOne = InputBox("Please enter the start bookmark:", "Kutools for Word")
    xBookMarkTwo = InputBox("Please enter the end bookmark:", "Kutools for Word")
    Set xBMone = ActiveDocument.Bookmarks(xBookMarkOne)
    Set xBMtwo = ActiveDocument.Bookmarks(xBookMarkTwo)
    If xBMone Is Nothing Or xBMtwo Is Nothing Then
        MsgBox " Please enter the correct bookmark name ", vbInformation, "KuTools for Word"
        Exit Sub
    End If
    xRange.Start = xBMone.Range.End
    xRange.End = xBMtwo.Range.Start
    xRange.Delete
End Sub

3. Nhấn nút F5 phím để chạy mã.

4. Trong lần đầu tiên Kutools cho Word hộp thoại, nhập tên dấu trang bắt đầu vào hộp văn bản và nhấp vào OK.

5. Trong giây Kutools cho Word hộp thoại, nhập dấu trang kết thúc và nhấp vào OK. Xem ảnh chụp màn hình:

Chú thích: Nếu tên dấu trang bạn đã nhập không tồn tại trong tài liệu, một hộp thoại Kutools cho Word khác sẽ bật lên để nhắc bạn nhập đúng tên.

Sau đó, tất cả nội dung giữa các dấu trang được chỉ định sẽ được chọn hoặc xóa ngay lập tức. Xem ảnh chụp màn hình.

Chọn văn bản giữa hai dấu trang:

Xóa văn bản giữa hai dấu trang.


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.
Nhận xét (0)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Không có bình luận nào được đăng ở đây
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL