Đỗ Thúy Quỳnh
Đỗ Thúy Quỳnh
Thảo luận 0 thảo luận
Vỗ tay 0 vỗ tay
Lượt xem 2875 lượt xem

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

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é.

Cùng tham gia cộng đồng hỏi đáp về chủ đề Tin học văn phòng

Thảo luận 0 câu trả lời
Lượt xem 2875 lượt xem
Vỗ tay vỗ tay

0 Bình luận

@ 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