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

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ả “KT” trong tài liệu này sẽ được thay thế bằng "Mới",“KT”“KTW” sẽ được thay thế bằng "Kiểm tra""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 đề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.
Nhận xét (21)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Toto jsem hledal, jen potřebuji pro hledaný văn bản přidat nějaké formátování. Jak toho dosáhnu?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
cái này có hoạt động trong Office Excel 365 không
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Bất kỳ cách nào để làm cho trường hợp này nhạy cảm?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Điều này hoạt động tốt với các Từ tiếng Anh. Bây giờ tôi đang làm một tài liệu mà tôi dịch tiếng Anh sang tiếng Gujarati. Vì vậy, khi tôi áp dụng điều này, (Tìm các từ tiếng Anh) và (Thay thế bằng các từ Gujarati), nó thay đổi nhưng nó xuất hiện giống như "???". Không hiển thị từ Gujarati mà chỉ có dấu chấm hỏi? Bất kỳ sự trợ giúp nào nữa? Làm hài lòng.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Shailesh, đang gặp phải vấn đề tương tự. Bạn đã tìm thấy một giải pháp cho nó. Tôi cũng đang cố gắng tìm cách chuyển từ tiếng Trung sang tiếng Anh.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cách tìm và chọn nhiều từ cùng một lúc
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào,
Sau khi chạy mã, một hộp thoại Kutools cho Excel sẽ bật lên, vui lòng nhập các từ khóa bạn sẽ tìm thấy và phân tách chúng bằng dấu phẩy.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, làm cách nào để macro này có thể được sửa đổi để có nhiều từ khóa hơn? Tôi có khoảng 170 từ muốn tìm và thay thế
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào JM,
Sau khi chạy mã, một hộp thoại Kutools cho Excel sẽ bật lên, vui lòng nhập các từ khóa bạn sẽ tìm thấy và phân tách chúng bằng dấu phẩy.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào! Đầu tiên, xin chúc mừng cho công việc của bạn: macro này rất hữu ích và thú vị! Tôi không bao giờ muốn, bạn giúp tôi một điều. Tôi là người hiệu đính và muốn các bản thay thế sẽ được tô đậm bằng màu xanh lá cây hoặc màu đỏ. Tôi có thể làm cái này như thế nào? Có dòng mã nào tôi có thể sử dụng không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Tính năng Tìm và Thay thế Hàng loạt của Kutools cho Word có thể giải quyết vấn đề của bạn một cách hoàn hảo, bạn có thể thử.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Sau khi nhấn Replace it, bạn chỉ cần chuyển đến Preview và không làm gì thêm.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Ajs, Tất cả các từ bắt buộc đã được thay thế thành công ngay lập tức sau khi nhấn nút Replace. Nó chuyển đến tab Xem trước để giúp bạn biết có bao nhiêu từ đã được thay thế thành công. Sau đó, đóng hộp thoại.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Điều gì sẽ xảy ra nếu tôi đang cố gắng thay thế dấu phẩy?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Mã VBA không thể giúp thay thế dấu phẩy. Bạn có thể áp dụng Kutools để đạt được.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Trong hướng dẫn đầu tiên (Tìm và thay thế nhiều từ cùng lúc trong Word bằng mã VBA), nó không tìm thấy các trường hợp mà từ cần thay thế nằm ở giữa một từ (Ví dụ: .com theo sau tên trang web) . Điều này có thể được sửa đổi để làm như vậy?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn vì dự án, Bạn có thể làm cho nó theo cách mà chúng tôi cũng có thể thay thế các chữ cái trong từ. Ví dụ: nếu tôi muốn thay đổi Dollar thành DoLLar, nó không hoạt động.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào bạn! cụm từ target is not? rất cám ơn bạn.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào Nguyễn Phúc Lâm!
Tôi khuyên bạn nên áp dụng tính năng Tìm và Thay thế Hàng loạt của Kutools cho Word (phương pháp thứ hai trong bài đăng này) để giải quyết vấn đề này.
Trong hộp thoại Tìm và Thay thế, sau khi tạo hai cột bạn cần, bạn có thể lưu cài đặt hiện tại làm kịch bản để sử dụng trong tương lai.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/find_and_replace.png
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin cảm ơn Crystal, this way to be used with a number of small cluster from, if with the number of the cluster from big (hơn 1000, hơn 10000 .. cluster from), thì rất khó để có thể nhập thủ công. Bạn có cách nào khác không bạn? Thank you you have reply
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào Nguyễn Phúc Lâm!
Tạm thời không thể giải quyết vấn đề này với mã VBA vì nó hơi phức tạp. Tính năng này sẽ được xem xét nâng cấp trong bản phát hành tiếp theo. Xin lỗi vì sự bất tiện.
Không có bình luận nào được đăng ở đây

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