4 phương pháp hữu ích để tìm và thay thế văn bản trong một phần tài liệu Word

Lời giải Tháng Chín 28, 2025

Trong tài liệu này, chúng tôi vui mừng giới thiệu cho bạn 4 phương pháp hữu ích để tìm và thay thế văn bản trong một phần tài liệu Word.

Thông thường, khi chúng ta thực hiện “Tìm và Thay thế” trong Word, hiệu ứng sẽ mang tính tổng thể. Vì vậy, hôm nay chúng tôi muốn cung cấp cho bạn các cách để tìm và thay thế văn bản trong một phần của tài liệu, chẳng hạn như trong vùng chọn, một trang hoặc một phần cụ thể.

Phương pháp 1: Sử dụng tính năng “Tìm và thay thế” trong vùng chọn

Đầu tiên, hãy chọn tarnhận văn bản.
Thứ hai, nhấn “Ctrl + H” để mở hộp “Tìm và Thay thế”.
Tiếp theo, nhập văn bản tìm kiếm vào hộp văn bản “Tìm gì” và văn bản thay thế vào hộp “Thay thế bằng”.
Sau đó nhấp vào nút "Thay thế tất cả".
Một hộp sẽ bật lên hỏi bạn có muốn tiếp tục tìm kiếm phần còn lại của tài liệu hay không. Đảm bảo bạn nhấp vào “Không”.

Phương pháp 2: Chạy mã VBA để tìm và thay thế văn bản trong vùng chọn

Trước hết, chọn một loạt nội dung tài liệu.
Tiếp theo kích hoạt trình soạn thảo VBA bằng cách nhấn “Alt+ F11”.
Sau đó nhấp vào “Bình thường” và nhấp vào “Chèn”.
Chọn “Mô-đun” trên menu.
Bây giờ hãy mở mô-đun bằng cách nhấp đúp.
Sao chép và dán các mã sau vào đó:

Sub FindAndReplaceInSelection()
  Dim strFindText As String
  Dim strReplaceText As String
 
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")

  With Selection.Find
    .Text = strFindText
    .Replacement.Text = strReplaceText
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Tiếp theo nhấn “F5”.
Sẽ có hai hộp nhập liệu nhắc nhở. Nhập văn bản tìm và thay thế tương ứng vào hai hộp.
Nhấp vào “OK” để tiếp tục.

Bạn sẽ đạt được hiệu quả tương tự như trong phương pháp 1.

Phương pháp 3: Chạy Macro Word để tìm và thay thế văn bản trên trang được chỉ định

Macro theo dõi cho phép bạn tìm và thay thế văn bản trên một trang cụ thể.

Trước tiên, hãy cài đặt và chạy macro theo các bước trong phương pháp 2.
Sau đó thay thế macro đó bằng cái này:

Sub FindAndReplaceInSpecificPage()
  Dim strFindText As String
  Dim strReplaceText As String
  Dim strPageNum As String
  Dim nPageNum As Integer
 
  strPageNum = InputBox("Enter a page number: ")
  nPageNum = Int(strPageNum)
 
  Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=nPageNum
  ActiveDocument.Bookmarks("\page").Range.Select
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")

  With Selection.Find
    .Text = strFindText
    .Replacement.Text = strReplaceText
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Sau khi chạy các mã này sẽ có 3 ô nhập liệu. Nhập số trang vào hộp đầu tiên, nhập văn bản tìm kiếm vào hộp thứ hai và nhập văn bản thay thế vào hộp thứ ba.
Hãy nhớ nhấp vào “OK” để tiếp tục.

Phương pháp 4: Chạy Macro Word để Tìm và Thay thế Văn bản trong Phần

Tương tự, thực hiện các bước tương tự trong phương pháp 2 để cài đặt và chạy macro.
Chỉ lần này sử dụng macro này thay thế:

Sub FindAndReplaceInSection()
  Dim strFindText As String
  Dim strReplaceText As String
  Dim strSectionNum As String
  Dim nSectionNum As Integer
 
  strSectionNum = InputBox("Enter a section number: ")
  nSectionNum = Int(strSectionNum)
 
  Selection.GoTo What:=wdGoToSection, Which:=wdGoToFirst, Count:=1, Name:=nSectionNum
  ActiveDocument.Sections(nSectionNum).Range.Select
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")

  With Selection.Find
    .Text = strFindText
    .Replacement.Text = strReplaceText
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Hãy nhớ nhập số phần vào ô đầu tiên. Và nhập văn bản tìm và thay thế vào hai ô sau.
Tuy nhiên, hãy nhấp vào “OK” để tiếp tục.

Đối phó với các vấn đề về Word

Có thể có nhiều loại vấn đề xảy ra trong tài liệu của bạn. Một số dễ xử lý, trong khi một số khác nghiêm trọng hơn có thể dẫn đến từ tham nhũng. Trong trường hợp như vậy, bạn phải có một công cụ sửa chữa càng sớm càng tốt để cứu dữ liệu của mình.

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 lỗi 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