Tìm kiếm và thay thế một đoạn văn bản trong Word từ Excel.

Với thao tác mở file Word và thực hiện thay thế nội dung bạn có thể làm một chương trình mô phỏng Mail Merge của Word từ Excel.

1. Thêm thư viện Word

   Truy cập Tools> References > Microsoft Office x.x Object Library
   
   x.x là phiên bản Office tương ứng với máy của bạn

2. Khởi tạo đối tượng Word

   Set wd = CreateObject("word.application")

3. Thủ  tục mở file template.docx trong ổ C:\ và cho hiển thị trên desktop

   wd.Documents.Add ("C:\template.docx")
   wd.Visible = True

4. Thực hiện thao tác tìm kiếm và thay thế. Đoạn mã sau sẽ tìm tất cả nội dung là Xin chào để thay thế thành Hi

   With wd.Selection.Find
           .Text = "Xin chào"
           .Replacement.Text = "Hi"
           .Forward = True
           .Wrap = wdFindContinue
           
   End With
   wd.Selection.Find.Execute Replace:=2

Comments

comments