Thay thế hàng loạt từ trong nhiều file word !

[Loan Châu]

Kính thưa quý anh chị !
Hiện em đang có 1 khó khăn rất mong quý anh chị giúp đỡ cho em với ạ . Đó là em có rất nhiều file Word, giờ em muốn thay thế các cụm từ cho nhiều file word, mà giờ em phải mở từng file thay thế rất lâu.
Vị dụ: em có 100 file word, có cụm từ " Cơ quan kiểm tra" giờ em muốn thay thế thanh " Đơn vị kiểm tra"
Quý anh chị ơi,
Cái khó khăn của em như vậy có cách làm không ạ?
em cảm ơn quý anh chị trước nhiều ạ !
Trân trọng,
em gái Loan Châu

 

[Loan Châu]

B thử file này xem,

anh ơi, code này em sữa như thế nào thì sữa được cho tất cả các file excel vậy anh.
em cảm ơn anh nhiều trước nhé!

 

[darknightno007]

Sub Replace(Linkfilemau As String)
    Dim oword As Object
    Dim TenFile As String
    Set WD = CreateObject("Word.Application")
    WD.Visible = True
    Set MauXLVB = WD.Documents.Open(Linkfilemau)
    For i = 2 To Application.ActiveSheet.Range("B100").End(xlUp).Row
        With WD.ActiveDocument
        Set myRange = .Content
        With myRange.Find
            .Execute FindText:=Sheets("Sheet1").Cells(i, 2).Value, ReplaceWith:=Sheets("Sheet1").Cells(i, 3).Value, Replace:=2
        End With
    End With
    Next i
   MauXLVB.Save ' As Linkfilemau & ".doc"
   MauXLVB.Close
   WD.Quit

End Sub

anh ơi, code này em sữa như thế nào thì sữa được cho tất cả các file excel vậy anh.
em cảm ơn anh nhiều trước nhé!

Sửa trong hàm này nè. Đối tượng đang là word, giờ đổi lại thành exce.

 

[Loan Châu]

Sub Replace(Linkfilemau As String)
    Dim oword As Object
    Dim TenFile As String
    Set WD = CreateObject("Word.Application")
    WD.Visible = True
    Set MauXLVB = WD.Documents.Open(Linkfilemau)
    For i = 2 To Application.ActiveSheet.Range("B100").End(xlUp).Row
        With WD.ActiveDocument
        Set myRange = .Content
        With myRange.Find
            .Execute FindText:=Sheets("Sheet1").Cells(i, 2).Value, ReplaceWith:=Sheets("Sheet1").Cells(i, 3).Value, Replace:=2
        End With
    End With
    Next i
   MauXLVB.Save ' As Linkfilemau & ".doc"
   MauXLVB.Close
   WD.Quit

End Sub

Sửa trong hàm này nè. Đối tượng đang là word, giờ đổi lại thành exce.

em sửa dòng này Set WD = CreateObject("excel.Application") rồi mà nó không chạy anh à.

 

[darknightno007]

em sửa dòng này Set WD = CreateObject("excel.Application") rồi mà nó không chạy anh à.

Nhưng mà phương thức Replace trong excel có phải giống word không. cú pháp nó khác thì sao.

 

[Loan Châu]

Nhưng mà phương thức Replace trong excel có phải giống word không. cú pháp nó khác thì sao.

cảm ơn bạn darknightno007,
tại mình không hiểu nhiều về code nên mình mới lên đây hỏi quý anh chị mà'

 

[darknightno007]

cảm ơn bạn darknightno007,
tại mình không hiểu nhiều về code nên mình mới lên đây hỏi quý anh chị mà'

Có 1 cách để học code, là dùng record macro. làm cái mình muốn. xong xem máy nó ghi lại thế nào, rồi từ đó sửa lại code và dùng. sau này hiểu hơn thì có thể tự viết code được. mình cũng hay xài cách này.

 

[lenhi96]

B thử file này xem,

Attachments

• Book2.xlsm
  20 KBViews: 79

hic, mình cũng đang cần dùng cái này, mà chạy thử code của anh thì ko đc nữa, ai giúp em với đc không ạ??

 

[batman1]

hic, mình cũng đang cần dùng cái này, mà chạy thử code của anh thì ko đc nữa, ai giúp em với đc không ạ??

Giúp bằng niềm tin?

 

[lenhi96]

là sao ạ bạn? hôm qua mình thử dùng cái file của anh kia, nhưng ko được, nên mới nhờ giúp ạ.

File của anh ý up trên kia rồi mà

 

[cuabacang]

tks ciu

 

[doredore1988]

Bạn có thể thử xem bài viết

https://www.giaiphapexcel.com/diendan/threads/chia-s%E1%BA%BB-d%C3%B9ng-vba-tr%E1%BB%99n-d%E1%BB%AF-li%E1%BB%87u-excel-sang-file-word-m%E1%BA%ABu-t%C6%B0%C6%A1ng-t%E1%BB%B1-ch%E1%BB%A9c-n%C4%83ng-mail-merge.155954/page-6#post-1071532

mình thấy có chức năng trộn nhiều file word