Find and Replace: Tìm nhiều nội dung sau đó thay thế từng nội dung tương ứng

[ithow]

Mong mọi người giúp tôi vấn đề này với:

Ví dụ tôi có nội dung văn bản như sau:
ABC
zzzzz
XYZ
zzzzzz
DEF
zzzz
MNP
zzzzzzz

Bây giờ làm sao tôi có TÌM VÀ THAY THẾ 1 LẦN DUY NHẤT mà chỉ còn lại nội dung như thế này:
1
zzzzz
2
zzzzzz
3
zzzz
4
zzzzzzz



Tôi xin chân thành cảm ơn

P/s: Tôi dùng Word 2010

 

[DOSNET]

Hàm tìm và thay thế chỉ làm việc tốt khi đồng nhất dữ liệu, với trường hợp nhiều nội dung khác nhau, có thể lập bảng và dùng công thức. Tuy nhiên với dữ liệu bạn đưa ra, chưa thật sự tổng quát, bạn nói rõ để được trợ giúp tốt hơn.Thân!

 

[ithow]

Hàm tìm và thay thế chỉ làm việc tốt khi đồng nhất dữ liệu, với trường hợp nhiều nội dung khác nhau, có thể lập bảng và dùng công thức. Tuy nhiên với dữ liệu bạn đưa ra, chưa thật sự tổng quát, bạn nói rõ để được trợ giúp tốt hơn.Thân!

Vâng ạ, tôi xin được trình bày lại như thế này:
Tôi có một nội dung Word dài 300 trang, trong đó tôi muốn tìm và thay thế rất nhiều nội dung, mà mỗi một nội dung lại không giống nhau. Vấn đề là để tìm và thay thế theo cách thủ công thì tôi phải thực hiện rất nhiều lần, nên giờ tôi muốn chỉ thục hiện nó với 1 lần mà thôi.
Tôi xin gửi bức ảnh dưới đây làm ví dụ:





Theo cách hiểu của tôi thì:
[FONT=&quot]Tương ứng với nội dung “ABC” tôi sẽ thay bằng số “1”
Tương ứng với nội dung “XYZ” tôi sẽ thay bằng số “2
Tương ứng với nội dung “DEF” tôi sẽ thay bằng số “3”
Tương ứng với nội dung “MNP” tôi sẽ thay bằng số “4”[/FONT]
Nhưng không được
Ngoài ra tôi cũng đã đọc bài về Find and Replace nâng cao tại trang của Microsoft cũng như đã tìm trên Google nhưng vẫn không ăn thua.
Mong mọi người giúp tôi

 

[ithow]

Tôi nghĩ cái này có liên quan nhưng chưa biết sử dụng thế nào, mọi người tham khảo giúp với ạ
http://stackoverflow.com/questions/711753/a-better-way-to-replace-many-strings-obfuscation-in-c

 

[ptm0412]

Nhấn Ctrl A chọn toàn bộ văn bản.
Nhấn Alt + F11, Chép đoạn code sau vào cửa sổ VBA:

Sub Macro1()
Dim Strs
Strs = Array("abc", "def", "ghi")
For Each Strt In Strs
    i = i + 1
    With Selection.Find
        .Text = Strt
        .Replacement.Text = i
        .Forward = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
Next
End Sub

Rồi chạy code.

 

[ithow]

Trước tiên xin cảm ơn thầy rất nhiều
Ở ví dụ trên em replace 1,2,3,4 như vậy cho nó nhanh thôi
Chứ ý của em là muốn thay thế bằng một chuỗi bất kì do mình qui định thầy ạ

Ví dụ:
Tương ứng với nội dung “ABC” thay bằng “cảm”
Tương ứng với nội dung “XYZ” thay bằng “ơn"
Tương ứng với nội dung “DEF” thay bằng “thầy”
Tương ứng với nội dung “MNP” thay bằng “Mỹ”

Mong thầy giúp đỡ!

 

[ptm0412]

Sub Macro1()
Dim Strs(1 To 4, 1 To 2)
Strs(1, 1) = "abc": Strs(1, 2) = "chỉ"
Strs(2, 1) = "def": Strs(2, 2) = "cần"
Strs(3, 1) = "ghi": Strs(3, 2) = "nhấn"
Strs(4, 1) = "mno": Strs(4, 2) = "thanks"

For i =1 To 4
    With Selection.Find
        .Text = Strs(i, 1)
        .Replacement.Text = Strs(i, 2)
        .Forward = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
Next
End Sub

 

[ithow]

Có lỗi xảy ra rồi thầy ơi, thầy xem lại giúp em với ạ
Sau khi làm theo các bước thầy hướng dẫn em có hình 1 dưới đây
Sau đó em xem lại file word thì chỉ có string đầu tiên được thay thế như hình 2 dưới đây

Mong thầy xem lại giúp với ạ, nếu được thầy save giúp em thành 1 file Word luôn ạ!

 

[ptm0412]

Mới chạy thì có lỗi đó, sau đó thì lại hết! Chả biết sao nữa. File này thì lại chạy ngon.
Chọn hết văn bản hoặc để dấu nháy trên đầu văn bản mới thay được hết. Nó thay từ vị trí con trỏ xuống dưới.

 

[ithow]

File của thầy chạy rất tốt nhưng giờ lại phát sinh vấn đề từ phía em
Thầy xem hình trước rồi em giải thích sau nhé (em cũng gửi luôn file Word đính kèm ở cuối bài)

Nói chung là tìm và thay thế đúng như những gì mình muốn, phân biệt chữ hoa, chữ thường đó thầy

 

[ptm0412]

Chỉ cần thêm 1 câu lệnh:

    With Selection.Find
        .Text = Strs(i, 1)
        .Replacement.Text = Strs(i, 2)
        .Forward = True
        [COLOR="red"][B].MatchCase = True[/B][/COLOR]
    End With

 

[ndu96081631]

Sub Macro1()
Dim Strs(1 To 4, 1 To 2)
Strs(1, 1) = "abc": Strs(1, 2) = "chỉ"
Strs(2, 1) = "def": Strs(2, 2) = "cần"
Strs(3, 1) = "ghi": Strs(3, 2) = "nhấn"
Strs(4, 1) = "mno": Strs(4, 2) = "thanks"

For i =1 To 4
    With Selection.Find
        .Text = Strs(i, 1)
        .Replacement.Text = Strs(i, 2)
        .Forward = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
Next
End Sub

Em đang nghĩ sao không rút gọn thế này nhỉ?

Sub Macro1()
  Dim Strs(1 To 4, 1 To 2)
  Strs(1, 1) = "abc": Strs(1, 2) = "Xin"
  Strs(2, 1) = "DEF": Strs(2, 2) = "cam"
  Strs(3, 1) = "Ghi": Strs(3, 2) = "on"
  Strs(4, 1) = "jkL": Strs(4, 2) = "thay"
  For i = 1 To 4
    Selection.Find.Execute Strs(i, 1), True, , , , , , , , Strs(i, 2), 2
  Next
End Sub

 

[ptm0412]

Em đang nghĩ sao không rút gọn thế này nhỉ?

    Selection.Find.Execute Strs(i, 1), True, , , , , , , , Strs(i, 2), 2
End Sub

Hì, lần đầu tiên trong đời đụng vào VBA for Word, đành phải record macro, mới ra nông nỗi thế. May mà đã xóa bớt rồi đây.

 

[ithow]

Vậy là vấn đề của em đã được giải quyết. Xin chân thành cảm ơn hai thầy ptm0412 và ndu96081631 rất nhiều ạ!