Ai biết xin chỉ giùm.

[nhungong]

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 . Có ai biết không ạ?

[nero13]

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 . Có ai biết không ạ?

thế thì căng

[hoaitrung]

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:


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:

[Gemini]

Subtitle edit.

[nero13]

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

[angel_of_dead]

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.

[cdx2000]

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 . Có ai biết không ạ?

Con ngỗng còm cần find and replace mấy từ để viết cho cái macro. Còn phần mềm thì viết cũng được nhưng hơi tốn thời gian hơn làm phát macro trong word.

[nhungong]

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 .

[cdx2000]

Ngỗng @nhungong thử cái macro này trong word nhé

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

Thay cái a,b,c,d và A,B,C,D vào nhé.

[davidseanghia]

Hết trùm nhậu giờ chuyển qua làm trùm ma cô.