Hướng dẫn cách tìm kiếm và thay thế trên nhiều tệp Word cùng một lúc

Đỗ Thúy Quỳnh
Đỗ Thúy Quỳnh
Aug 17 2020

Nếu bạn có vài chục tệp Word chứa cùng một nội dung (ví dụ như đầu trang, chân trang, một số từ hoặc số đặc biệt) và bạn muốn thay thế tất cả chúng cùng một lúc trên toàn bộ số tệp Word đó. Hẳn bạn sẽ tự hỏi có cách nào nhanh chóng hơn để thực hiện cùng một lúc. Chắc chắn bạn có thể mở từng tệp và thay thế cùng một nội dung nhưng như vậy sẽ rất mất thời gian và rắc rối. Trong bài này Gitiho.com sẽ hướng dẫn các bạn cách để thay thế cùng một nội dung trong nhiều file Word cùng một lúc. Cùng theo dõi nhé.


Tìm và thay thế văn bản trên nhiều file Word cùng một lúc bằng mã VBA

Bước 1: Nhấn Alt và F11 để mở cửa sổ Microsoft Visual Basic for Applications. Hoặc nếu phím tắt của máy bạn không hoạt động để xuất hiện cửa sổ thì bạn có thể chọn tay: Chọn tab Developer. Chọn tiếp visual basic. Như hình dưới.

huong-dan-cach-tim-kiem-va-thay-the-tren-nhieu-tep-word-cung-mot-luc

Cửa sổ sẽ lập tức xuất hiện

Bước 2: Trong cửa sổ này, chọn Insert, chọn Module.

huong-dan-cach-tim-kiem-va-thay-the-tren-nhieu-tep-word-cung-mot-luc

Sau đó copy đoạn mã VBA dưới đây vào cửa sổ:

Sub CommandButton1_Click()

'Updated by Extendoffice 20180625

Dim xFileDialog As FileDialog, GetStr(1 To 100) As String '100 files is the maximum applying this code

Dim xFindStr As String

Dim xReplaceStr As String

Dim xDoc As Document

On Error Resume Next

Set xFileDialog = Application.FileDialog(msoFileDialogFilePicker)

With xFileDialog

    .Filters.Clear

    .Filters.Add "All WORD File ", "*.docx", 1

    .AllowMultiSelect = True

    i = 1

    If .Show = -1 Then

        For Each stiSelectedItem In .SelectedItems

            GetStr(i) = stiSelectedItem

            i = i + 1

        Next

        i = i - 1

    End If

    Application.ScreenUpdating = False

    xFindStr = InputBox("Find what:", "Kutools for Word", xFindStr)

    xReplaceStr = InputBox("Replace with:", "Kutools for Word", xReplaceStr)

    For j = 1 To i Step 1

        Set xDoc = Documents.Open(FileName:=GetStr(j), Visible:=True)

        Windows(GetStr(j)).Activate

        Selection.Find.ClearFormatting

        Selection.Find.Replacement.ClearFormatting

        With Selection.Find

            .Text = xFindStr  'Find What

            .Replacement.Text = xReplaceStr  'Replace With

            .Forward = True

            .Wrap = wdFindAsk

            .Format = False

            .MatchCase = False

            .MatchWholeWord = False

            .MatchByte = True

            .MatchWildcards = False

            .MatchSoundsLike = False

            .MatchAllWordForms = False

        End With

        Selection.Find.Execute Replace:=wdReplaceAll

        Application.Run macroname:="NEWMACROS"

        ActiveDocument.Save

        ActiveWindow.Close

    Next

    Application.ScreenUpdating = True

End With

MsgBox "Operation end, please view", vbInformation

End Sub


huong-dan-cach-tim-kiem-va-thay-the-tren-nhieu-tep-word-cung-mot-luc

Bước 3: Nhấn F5 để chạy Code. Hoặc bạn cũng có thể nhấn vào hình tam giác màu xanh trên thanh công cụ của cửa sổ để chạy code.

huong-dan-cach-tim-kiem-va-thay-the-tren-nhieu-tep-word-cung-mot-luc

Bước 4: Trong cửa sổ mở file, bạn hãy tìm các file word bạn cần thay thế văn bản, sau đó nhấn nút OK.

huong-dan-cach-tim-kiem-va-thay-the-tren-nhieu-tep-word-cung-mot-luc

Bạn nhập từ cần thay thế vào hộp thoại mới xuất hiện

huong-dan-cach-tim-kiem-va-thay-the-tren-nhieu-tep-word-cung-mot-luc

Nhập tiếp từ thay thế từ trên vào hộp thoại Replace with. huong-dan-cach-tim-kiem-va-thay-the-tren-nhieu-tep-word-cung-mot-luc

Cuối cùng là ấn OK.

Và như vậy Microsoft Word sẽ tự động tìm và thay thế cho ta. Đến đây sẽ có một hộp thoại thông báo thành công xuất hiện như hình 

huong-dan-cach-tim-kiem-va-thay-the-tren-nhieu-tep-word-cung-mot-luc

-----------------------------------------------------------
Nhiều người nhầm tưởng, dùng Word soạn thảo ra được một tài liệu tương đối dễ nhìn thì được coi là thành thạo. Tuy nhiên kỹ năng dùng Word lại nhiều hơn bạn tưởng, kể cả chiều sâu lẫn rộng. Để trở thành chuyên gia dùng Word và tự tin trước mọi thứ liên quan đến Word hãy sở hữu ngay cho mình trọn bộ kiến thức: Chinh phục MOS Word 2013 cùng NimbusTuyệt đỉnh Microsoft Word - Chuyên gia soạn thảo văn bản nhé.

0/5 - (0 bình chọn)

0/5 - (0 bình chọn)

Bài viết liên quan

Hướng dẫn cách tìm và thay thế định dạng trong Word

Hướng dẫn cách tìm và thay thế định dạng trong Word

Hướng dẫn cách di chuyển hình ảnh trong Word chi tiết nhất

Hướng dẫn cách di chuyển hình ảnh trong Word chi tiết nhất

Hướng dẫn cách đánh số trang từ trang bất kỳ trong Word

Hướng dẫn cách đánh số trang từ trang bất kỳ trong Word

Hướng dẫn cách đánh số trang từ trang bất kỳ trong Word

Hướng dẫn cách đánh số trang từ trang bất kỳ trong Word

Hướng dẫn cách tạo mục lục tự động trong Word đơn giản nhất

Hướng dẫn cách tạo mục lục tự động trong Word đơn giản nhất

Hướng dẫn cách tạo mục lục tự động trong Word đơn giản nhất

Hướng dẫn cách tạo mục lục tự động trong Word đơn giản nhất

@ 2020 - Bản quyền của Công ty cổ phần công nghệ giáo dục Gitiho Việt Nam
Giấy chứng nhận Đăng ký doanh nghiệp số: 0109077145, cấp bởi Sở kế hoạch và đầu tư TP. Hà Nội