thảo luận Nhờ cách lập trình để loại bỏ các từ thừa trong văn bản word

thientai12 said:

Chạy oke bác ạ. Cứ để trên link bác rồi dùng cũng được ạ? Nhưng sợ lỡ tay bấm thay đổi lại hỏng mất bác ạ

Click to expand...

file build sẵn trong folder EXE

vuongbaoremix said:

file build sẵn trong folder EXE
View attachment 174512

Click to expand...

Hay quá. Chán thành cảm ơn bác nhiều ạ.

cần gì file exe, record cái macro là xong, tôi chỉ làm ví dụ 2 chuỗi

Sub Macro1()
'
' Macro1 Macro
'
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "(S" & ChrW(7889) & " l" & ChrW(432) & ChrW(7907) & "ng ti" & _
ChrW(7875) & "u c" & ChrW(7847) & "u)"
.Replacement.Text = " "
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "(S" & ChrW(7889) & " l" & ChrW(432) & ChrW(7907) & "ng ti" & _
ChrW(7875) & "u c" & ChrW(7847) & "u)"
.Replacement.Text = " "
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Copy
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "(S" & ChrW(7889) & " l" & ChrW(432) & ChrW(7907) & "ng ti" & _
ChrW(7875) & "u c" & ChrW(7847) & "u)"
.Replacement.Text = " "
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "(S" & ChrW(7889) & " l" & ChrW(432) & ChrW(7907) & "ng b" & _
ChrW(7841) & "ch c" & ChrW(7847) & "u)"
.Replacement.Text = " "
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

vuongbaoremix said:

file build sẵn trong folder EXE
View attachment 174512

Click to expand...

Chào bác ạ. Sau một thời gian thu thập các từ thừa thì em có bộ các từ cần bỏ như sau:
Làm phiền bác có thể ấn định các từ thừa này vào phần mềm luôn được không ạ (Không cần copy lại mỗi khi mở phần mềm bác ạ) ? Hoặc bác chỉ cách làm cho em cũng được ạ
Chân thành cảm ơn bác nhiều ạ

(Số lượng tiểu cầu),(Số lượng bạch cầu),(Số lượng hồng cầu),Đo hoạt độ,(Gama Glutamyl Transferase),[Máu],Định lượng,Tỷ lệ,Thời gian,Thời gian,Ab miễn dịch bán tự động,Định nhóm máu,(Kỹ thuật phiến đá),(GOT),(GPT),test nhanh,(SD BIOLINE),(Hematocrit),(Huyết sắc tố),(Isozym MB of Creatine kinase),(Creatine kinase),(High density lipoprotein Cholesterol),(Low density lipoprotein Cholesterol),(máu),(Adrenocorticotropic hormone),Nghiệm pháp,Điện giải đồ,Prothrombin (PTrothrombin time) bằng máy tự động,(Alpha Fetoproteine),(cancer antigen 125),(Carbohydrate Antigen 19-9),(Cancer Antigen 72- 4),(Carcino Embryonic Antigen)

Click to expand...

Chân thành cảm ơn bác rất rất nhiều ạ

Macro VBA nha, hàng nhà Microsoft trồng đc, thân thiện miễn phí.