Làm thế nào để tìm và thay thế nhiều từ cùng một lúc trong tài liệu Word?

Posted on by mtoplistChuyên mục:Top List

Làm thế nào để tìm và thay thế nhiều từ cùng một lúc trong tài liệu Word?

Word cung cấp chức năng Tìm và Thay thế để tìm tất cả các trường hợp của một từ hoặc cụm từ và thay thế chúng bằng một từ mới cùng một lúc. Nhưng nếu bạn muốn tìm và thay thế các từ khác nhau cùng lúc, chức năng tích hợp này không thể giúp được. Trong bài viết này, chúng ta đang nói về một phương pháp VBA để tìm và thay thế nhiều từ khác nhau cùng một lúc trong tài liệu Word.

Tìm và thay thế nhiều từ cùng lúc trong Word bằng mã VBA
Dễ dàng tìm và thay thế nhiều từ cùng lúc trong Word với một tính năng tuyệt vời

Tìm và thay thế nhiều từ cùng lúc trong Word bằng mã VBA

Vui lòng thực hiện như sau để tìm và thay thế nhiều từ cùng một lúc trong tài liệu Word.

1. Mở tài liệu Word bạn muốn tìm và thay thế nhiều từ cùng một lúc, sau đó nhấn 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 > Module. Sau đó sao chép mã VBA bên dưới vào cửa sổ Mô-đun.

Mã VBA: Tìm và thay thế nhiều từ cùng một lúc trong Word

Sub FindAndReplaceMultiItems()
'Update by ExtendOffice 2018/10/25
    Dim xFind As String
    Dim xReplace As String
    Dim xFindArr, xReplaceArr
    Dim I As Long
    Application.ScreenUpdating = False
    xFind = InputBox("Enter items to be found here,seperated by comma: ", "Kutools for Word")
    xReplace = InputBox("Enter new items here, seperated by comma: ", "Kutools for Word")
    xFindArr = Split(xFind, ",")
    xReplaceArr = Split(xReplace, ",")
    If UBound(xFindArr) <> UBound(xReplaceArr) Then
        MsgBox "Find and replace characters must be equal.", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    For I = 0 To UBound(xFindArr)
        Selection.HomeKey Unit:=wdStory
        With Selection.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Text = xFindArr(I)
            .Replacement.Text = xReplaceArr(I)
            .Format = False
            .MatchWholeWord = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
    Next
    Application.ScreenUpdating = True
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 nhiều từ bạn sẽ tìm và thay thế vào hộp văn bản và phân tách chúng bằng dấu phẩy, sau đó nhấp vào OK cái nút. Xem ảnh chụp màn hình:

5. Trong giây Kutools cho Word hộp thoại, nhập các từ mới mà bạn sẽ thay thế bằng (các từ này cũng cần được phân tách bằng dấu phẩy), rồi bấm vào OK .

Lưu ý: Trong trường hợp này, tất cả “KTE” trong tài liệu này sẽ được thay thế bằng “Mới”, và “KTO” và “KTW” sẽ được thay thế bằng “Kiểm tra” và “Hoàn thành”. Vui lòng thay đổi chúng theo nhu cầu của bạn.

Dễ dàng tìm và thay thế nhiều từ cùng lúc trong Word với một tính năng tuyệt vời

Mô hình Tìm và thay thế hàng loạt tính năng của Kutools cho Word có thể giúp dễ dàng tìm và thay thế các văn bản khác nhau trong một tài liệu hoặc trên nhiều tài liệu cùng một lúc.

Trước khi áp dụng tính năng này, vui lòng dành vài phút để tải xuống và cài đặt nó trước tiên.

1. Khởi chạy ứng dụng Microsoft Word, nhấp vào Kutools Plus > Tìm và thay thế hàng loạt.

2. bên trong Tìm và thay thế hàng loạt cửa sổ, vui lòng cấu hình như sau.

  • 2.1 nhấp vào nút> Thêm tập tin or Thêm thư mục để thêm một hoặc nhiều tài liệu mà bạn sẽ tìm và thay thế nhiều từ.
  • 2.2 Nhấp vào Thêm dòng để chèn các trường tìm và thay thế. Nếu bạn muốn tìm và thay thế ba văn bản khác nhau cùng một lúc, hãy tạo ba hàng.
  • 2.3 Trong mỗi hàng, hãy nhập các từ hiện có mà bạn sẽ thay thế bằng từ mới trong Tìm kiếm và sau đó nhập các từ mới vào Thay thế cột.
  • 2.4 Chỉ định Loại tìm kiếm Cho mỗi hàng.
  • 2.5 Trong Tìm trong , chọn nơi áp dụng tìm và thay thế. Nó bao gồm Tài liệu chính, Tiêu đề và Footer trong phần này. Bạn có thể chọn một trong số chúng, hai trong số chúng hoặc tất cả chúng dựa trên nhu cầu của bạn.
  • 2.6. Nhấp vào Thay thế nút để bắt đầu hoạt động. Xem ảnh chụp màn hình:

Sau đó các từ cụ thể được thay thế trong các tài liệu đã chọn cùng một lúc.

Mẹo: Bạn có thể đánh dấu kết quả bằng màu nền bằng cách chỉ định màu nhất định trong Đánh dấu cột cho một hàng.

  Nếu bạn muốn dùng thử miễn phí (60 ngày) tiện ích này, vui lòng nhấp để tải xuống, và sau đó đi đến áp dụng hoạt động theo các bước trên.

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

mtoplist