Chẳng là mình đang cần tìm phần mềm có chức năng thay thế một loạt từ, kiểu như nhập vô từ a thay bằng b, c thay bằng d... rồi khi mở văn bản ra nó thay hết, mấy cái notepad với word chỉ thay một cái một rất bất tiện :D. Có ai biết không ạ?
Printable View
Chẳng là mình đang cần tìm phần mềm có chức năng thay thế một loạt từ, kiểu như nhập vô từ a thay bằng b, c thay bằng d... rồi khi mở văn bản ra nó thay hết, mấy cái notepad với word chỉ thay một cái một rất bất tiện :D. Có ai biết không ạ?
mình nghĩ bạn có thể sử dụng word để làm điều này.Ví dụ :
Trước đó là như thế này:
http://www.mediafire.com/convkey/f67...mrroqez4zg.jpg
Bạn muốn thay toàn bộ từ khóa "A" bằng từ khóa "thay the"
1_Bấm vào replace
2_Điền "A" vào ô Find What
3_Điền "thay the" vào ô Replace With
4_Bấm vào Replace All
Kết quả sẽ ra như thế này:
http://www.mediafire.com/convkey/793...sy1k5f7lzg.jpg
Subtitle edit.
theo em hiểu thì ý bác @nhungong là cùng 1 lúc replace nhiều từ, ví dụ như cùng 1 lúc thay a --> b, c-->d
chứ không phải làm 2 lần, 1 lần a-->b, lần 2 c-->d
còn nếu không thì như trên là chuẩn rồi :v
Trong word cũng có khu định dạng đc bọn soạn thảo dùng nhiều.
Cái kiểu gõ tắt mà hiện cả cụm từ đó. Ko biết áp dụng cái này vào đc ko nữa. :-?
Mấy cái gõ tắt với auto correction chỉ thay khi gõ thôi còn gõ rồi nó không nhận đâu :D.
Ngỗng @nhungong thử cái macro này trong word nhé
Thay cái a,b,c,d và A,B,C,D vào nhé.Code:Sub MultiReplace()
Dim OldStr As String, NewStr As String
Dim RangeFind As Range, RangeText As Range, i As Long
OldStr = "a,b,c,d"
NewStr = "A,B,C,D"
Set RangeText = Selection.Range
For i = 0 To UBound(Split(OldStr, ","))
Set RangeFind = RangeText.Duplicate
With RangeFind.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = Split(OldStr, ",")(i)
.Replacement.Text = Split(NewStr, ",")(i)
.Format = False
.MatchWholeWord = True
.MatchAllWordForms = False
.MatchWildcards = False
.Execute Replace:=wdReplaceAll
End With
Next
End Sub
Hết trùm nhậu giờ chuyển qua làm trùm ma cô. :v