Thay thế hàng loạt từ trong nhiều file word ! (1 người xem)

Loan Châu · 13/9/17

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

befaint · 13/9/17

Loan Châu đã viết:
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

Làm được. Bạn gửi một vài file minh học lên cho mọi người xem... tìm cách...

Loan Châu · 13/9/17

Em cảm ơn anh nhiều trước anh nhé!
em có để các file word vào file nguồn là file sẽ thay thế các cụm từ. Còn các cụm từ em muốn được thay thế em đã bôi vàng ở file BBKTCL01 02 thư mục,
Mong anh giúp cho em với a nhé !

befaint · 13/9/17

Loan Châu đã viết:
Em cảm ơn anh nhiều trước anh nhé!
em có để các file word vào file nguồn là file sẽ thay thế các cụm từ. Còn các cụm từ em muốn được thay thế em đã bôi vàng ở file BBKTCL01 02 thư mục,
Mong anh giúp cho em với a nhé !

Hình như râu ông nọ cắm... chỗ khác.
Ở dưới cuối văn bản, chỗ ký tên hai bên đó... có thay thế luôn không?
Bạn lập vào một bảng trên Excel.
Cột 1: Tên tập tin word
Cột 2: Chuỗi cần thay thế (trước khi thay thế)
Cột 3: Chuỗi thay mới.
Rồi gửi kèm tập tin word tương tứng với bản vừa lập lên coi...

----------
Phương án khác:
Chuyển 3 biểu mẫu đã có sang 3 sheets của một file excel (chịu khó một chút là làm xong ngay).
Tạo sheet nữa trên file excel đó, lập một danh sách thông tin cần điền, rồi dùng hàm vlookup() điền vào 3 sheets vừa làm ở trên.
Thêm một đoạn macro in hàng loạt là xong.

Loan Châu · 13/9/17

anh ơi,
em làm theo phương án 1 anh nhé! tại em có nhiều file lắm nên em gởi kèm anh file excel thống kê anh nhé!

befaint · 13/9/17

Loan Châu đã viết:
anh ơi,
em làm theo phương án 1 anh nhé! tại em có nhiều file lắm nên em gởi kèm anh file excel thống kê anh nhé!

Bảng kê trong file excel sao không giống với file kết quả đính kèm ở bài #3?
Còn vài mục nữa bạn có thay thế không?
Sao không nêu chi tiết, cụ thể, đầy đủ ngay để tìm cách...

Loan Châu · 13/9/17

dạ, anh trong file có rất nhiều cụm từ cần thay em nêu mấy cái làm ví dụ anh à. Mấy cái anh đưa lên đều cần thay đổi hết anh à.

Loan Châu · 13/9/17

anh ơi, em gởi lại file có đầy đủ file nguồn và file kết quả trong đó em đã bôi vàng những cụm từ cần thay thế rồi anh à. em cảm ơn anh trước rất nhiều anh nhé!

Loan Châu · 13/9/17

anh ơi, em gởi lại danh mục các cụm từ cần chỉnh sửa trong file rồi anh à.

befaint · 13/9/17

Loan Châu đã viết:
dạ, anh trong file có rất nhiều cụm từ cần thay em nêu mấy cái làm ví dụ anh à. Mấy cái anh đưa lên đều cần thay đổi hết anh à.

Loằng nhoằng nhỉ? Mình đã gợi ý là lập thành một bảng á. Rõ ràng, cụ thể và đầy đủ!!!
Mình có cái tật... nếu đã gửi phương án trả lời lên là không trả lời tiếp (nhưng mà... nếu... là chạy xa lắm rồi).

Điền tiếp vào file đính kèm xem, thêm cột nếu cần...

Loan Châu · 13/9/17

em mới gởi danh mục cho em đó anh à. anh giúp em với anh ! em cảm ơn anh trước nhiều !

befaint · 13/9/17

Loan Châu đã viết:
em mới gởi danh mục cho em đó anh à. anh giúp em với anh ! em cảm ơn anh trước nhiều !

Chuẩn bị chạy rồi đó...
Cho bạn một bài nữa để nêu lại đề bài. (Trình bày đẹp đẹp, xinh xắn chút... sao trông như bản nháp vậy?)

Loan Châu · 13/9/17

anh đừng chạy, huhu. em nhập lại các chuổi cần thay thế vào file ví dụ của anh rồi anh à.
em cảm ơn anh nhiều nhé!

befaint · 14/9/17

Loan Châu đã viết:
anh đừng chạy, huhu. em nhập lại các chuổi cần thay thế vào file ví dụ của anh rồi anh à.
em cảm ơn anh nhiều nhé!

Loan Châu · 14/9/17

em cảm ơn anh rất nhiều anh nhé! em chúc anh luôn vui khỏe mỗi ngày ! Nhưng anh ơi, em không biết đưa các file cần thây thế chuổi làm sao anh à. anh chỉ giúp em với anh nhé!

be_09 · 14/9/17

Loan Châu đã viết:
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

Tôi thấy kiểu làm của bạn chưa khoa học, vì mấy vấn đề sau:
1/ File theo dõi Biên bản phải lưu riêng theo từng năm.
2/ Nếu trên máy lưu Biên bản nhiều quá sẽ chiếm dung lượng ổ dĩa vô ích.
3/ Cần tổng hợp công trình nào kiểm tra bao nhiêu lần thì rất khó khăn.

Giải pháp:
1/ Thiết kế 1 mẫu Biên bản duy nhất trên Excel, sau khi in biên bản xong thì lưu vào sheet theo dõi, cần sửa Biên bản thì truy vấn Biên bản đó lại (hoặc muốn lưu thành File Word thì dùng mẫu Biên bản này để lưu).
2/ Thiết kế 1 sheet để lưu và theo dõi biên bản, dựa vào sheet này để truy vấn lại Biên bản (vì vậy thì chẳng cần lưu từng biên bản).

Loan Châu · 14/9/17

em cảm ơn anh về góp ý của anh nhưng em chỉ cần thay thế các chuổi đồng loạt cho nhiều file Word thôi anh à

be_09 · 14/9/17

Loan Châu đã viết:
em cảm ơn anh về góp ý của anh nhưng em chỉ cần thay thế các chuổi đồng loạt cho nhiều file Word thôi anh à

Tôi góp ý để bạn thấy theo dõi như thế nào là hợp lý và tiện lợi, 100 File của bạn chỉ cần chứa 100 dòng ở sheet theo dõi là đủ tất cả 100 biên bản, muốn tìm biên bản nào với nội dung gì thì chỉ việc Ctrl+F rồi tra là có ngay cái biên bản đó (không cần vào Folder chứa nó để tìm).

Loan Châu · 14/9/17

dạ, em cảm ơn anh !

be_09 · 14/9/17

Loan Châu đã viết:
dạ, em cảm ơn anh !

Bạn có thể tham khảo cách làm như nội dung tôi góp ý ở bài viết sau:
http://www.giaiphapexcel.com/dienda...ruy-vấn-đơn-thuốc-nơi-phòng-khám-bệnh.126073/

Loan Châu · 14/9/17

anh Befaint ơi, a chạy rồi à. huhu

thuhuonglee · 14/9/17

befaint đã viết:
Loằng nhoằng nhỉ? Mình đã gợi ý là lập thành một bảng á. Rõ ràng, cụ thể và đầy đủ!!!
Mình có cái tật... nếu đã gửi phương án trả lời lên là không trả lời tiếp (nhưng mà... nếu... là chạy xa lắm rồi).

Điền tiếp vào file đính kèm xem, thêm cột nếu cần...

Anh hùng hình như ...đang qua ải...

PacificPR · 14/9/17

Loan Châu đã viết:
anh Befaint ơi, a chạy rồi à. huhu

Anh ấy đi cắt cỏ rồi. Tối mới trở lại cơ bạn à

quocgiacan · 14/9/17

thuhuonglee đã viết:
Anh hùng hình như ...đang qua ải...

Câu này là đối với 'tui' thì có thể là đúng, chứ ông em @befaint của 'tui' thì không hề!
Cỡ 'người đẹp' như @PacificPR hay @huonglien1901 còn chưa dụ được anh ta nữa là!

Chúc anh em ngày thiệt vui.
p/s: bởi 'tui' như dzậy nên hễ chỗ nào có người đẹp @PacificPR là có 'tui' nhào dzô. Khà khà khà

be_09 · 14/9/17

quocgiacan đã viết:
Câu này là đối với 'tui' thì có thể là đúng, chứ ông em @befaint của 'tui' thì không hề!
Cỡ 'người đẹp' như @PacificPR hay @huonglien1901 còn chưa dụ được anh ta nữa là!

Chúc anh em ngày thiệt vui.
p/s: bởi 'tui' như dzậy nên hễ chỗ nào có người đẹp @PacificPR là có 'tui' nhào dzô. Khà khà khà

Vậy thì coi chừng có ngày sẽ trở thành Thái giám.

be_09 · 14/9/17

Loan Châu đã viết:
anh Befaint ơi, a chạy rồi à. huhu

Không phải chạy mà làm kiểu em sẽ còn phát sinh dài dài nên anh ấy thấy em là trốn trước cho chắc ăn.

VetMini · 14/9/17

quocgiacan đã viết:
p/s: bởi 'tui' như dzậy nên hễ chỗ nào có người đẹp @PacificPR là có 'tui' nhào dzô. Khà khà khà

Ủa cái nhơn vật này là ngừoi đẹp hở. Vậy là lâu nay mình lỡ dịp ga lăng rồi.

VetMini · 14/9/17

Loan Châu đã viết:
anh Befaint ơi, a chạy rồi à. huhu

thuhuonglee đã viết:
Anh hùng hình như ...đang qua ải...

PacificPR đã viết:
Anh ấy đi cắt cỏ rồi. Tối mới trở lại cơ bạn à

Vậy là suy ra, tui biết hắn ta hồi trưa này ăn nhằm bún thiu.

Loan Châu · 15/9/17

Mấy anh chị vui tính quá nhưng anh Befain chạy that rồi. huhu

thuhuonglee · 15/9/17

Loan Châu đã viết:
anh Befaint ơi, a chạy rồi à. huhu

Chạy cho xa để lấy đà chạy tới! _+)(9

batman1 · 15/9/17

Loan Châu đã viết:
Mấy anh chị vui tính quá nhưng anh Befain chạy that rồi. huhu

Bạn tự ngẫm thì sẽ hiểu là tại sao. Với cách trình bầy như thế thì có ai hiểu được đâu mà giúp?

quykh · 15/9/17

Thầy batman1 cũng chạy luôn em rồi...huhu.....huhu....!!!!
Mong Thầy giúp em với.

thinhpb · 15/9/17

Loan Châu đã viết:
em cảm ơn anh rất nhiều anh nhé! em chúc anh luôn vui khỏe mỗi ngày ! Nhưng anh ơi, em không biết đưa các file cần thây thế chuổi làm sao anh à. anh chỉ giúp em với anh nhé!

Bạn xem lại mẫu anh BeFaint gửi ở #10
Bạn để file vào cùng thư mục có file của anh ý và list danh sách tên file word ên ô E1, E2l

thinhpb · 15/9/17

B thử file này xem,

Loan Châu · 16/9/17

thinhpb đã viết:
B thử file này xem,

dạ em cảm ơn anh nhiều, em thử đã có gì không hiểu em hỏi anh anh nhé!

Loan Châu · 24/11/17

thinhpb đã viết:
B thử file này xem,

Anh ui, code của anh thật tuyệt. Code rất hay cho những bạn nào hay phải thay đổi nhiều cụm từ trong nhiều file word.
Một lần nữa em rất cảm ơn anh !
Quý anh chị trên diễn đàn thật nhiệt tình. em chúc quý anh chị luôn vui khỏe mỗi ngày ! hihi

Loan Châu · 24/11/17

Nhờ anh Van Thịnh mà em hiểu code của anh rồi, Một lần nữa em rất cảm ơn anh !

nguyendinhtutw · 25/11/17

thinhpb đã viết:
B thử file này xem,

Bác ơi, file của bác có thể áp dụng cho mọi loại file word khác không ạ? điều kiện để chạy file là gì vậy?
Vì áp dụng thử vào file của em thì không được

Loan Châu · 25/11/17

befaint đã viết:
Loằng nhoằng nhỉ? Mình đã gợi ý là lập thành một bảng á. Rõ ràng, cụ thể và đầy đủ!!!
Mình có cái tật... nếu đã gửi phương án trả lời lên là không trả lời tiếp (nhưng mà... nếu... là chạy xa lắm rồi).

Điền tiếp vào file đính kèm xem, thêm cột nếu cần...

Nhờ anh Van Thịnh mà em hiểu code của anh rồi, Một lần nữa em rất cảm ơn anh !

Loan Châu · 25/11/17

nguyendinhtutw đã viết:
Bác ơi, file của bác có thể áp dụng cho mọi loại file word khác không ạ? điều kiện để chạy file là gì vậy?
Vì áp dụng thử vào file của em thì không được

Chào bạn nguyendinhtutw !
Bạn lên mấy bài trên lấy file của mình mà thử, chứ mình thấy code chạy hay và thông minh lắm.

Loan Châu · 6/12/17

thinhpb đã viết:
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 · 6/12/17

PHP:

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

Loan Châu đã viết:
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 · 6/12/17

darknightno007 đã viết:

PHP:

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 · 7/12/17

Loan Châu đã viết:
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 · 7/12/17

darknightno007 đã viết:
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 · 8/12/17

Loan Châu đã viết:
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 · 26/3/20

befaint đã viết:
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 · 26/3/20

lenhi96 đã viết:
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 ạ??

Giúp bằng niềm tin?

lenhi96 · 26/3/20

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 · 28/5/22

tks ciu

doredore1988 · 29/5/22

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

Thay thế hàng loạt từ trong nhiều file word ! (1 người xem)

Người dùng đang xem chủ đề này

Thành viên hoạt động

|||||||||||||

Thành viên hoạt động

File đính kèm

|||||||||||||

Thành viên hoạt động

File đính kèm

|||||||||||||

Thành viên hoạt động

Thành viên hoạt động

File đính kèm

Thành viên hoạt động

File đính kèm

|||||||||||||

File đính kèm

Thành viên hoạt động

|||||||||||||

Thành viên hoạt động

File đính kèm

|||||||||||||

File đính kèm

Thành viên hoạt động

File đính kèm

Biên Hòa, Đồng Nai

Thành viên hoạt động

Biên Hòa, Đồng Nai

Thành viên hoạt động

Biên Hòa, Đồng Nai

Thành viên hoạt động

Thành viên hoạt động

Thành viên mới

-⍟-

Biên Hòa, Đồng Nai

Biên Hòa, Đồng Nai

Đang đi tìm hòn đá

Đang đi tìm hòn đá

Thành viên hoạt động

Thành viên hoạt động

Thành viên gạo cội

Chim non

Thành viên mới

Thành viên mới

File đính kèm

Thành viên hoạt động

Thành viên hoạt động

Thành viên hoạt động

Thành viên chính thức

Thành viên hoạt động

Thành viên hoạt động

Thành viên hoạt động

Thành viên hoạt động

Thành viên hoạt động

Thành viên hoạt động

Thành viên hoạt động

Thành viên hoạt động

Thành viên mới

Thành viên gạo cội

Thành viên mới

Thành viên mới

Thành viên hoạt động

Thời gian đếm ngược.