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

Chào các bác ạ. Em hiện tại là bác sĩ.
Ở bv em có sử dụng phần mềm quản lý bv. Từ phần mềm thì có thể trích xuất ra được các kết quả xét nghiệm ra word, Excel. Theo yêu cầu của BHYT thì bs lại phải sao lại các kết quả này vào 1 chỗ khác.
Tuy nhiên trích xuất từ phần mềm thì nhanh, gọn, đầy đủ, không phải mất thời gian lật hồ sơ giấy, chờ giấy kết quả về (nhanh hơn khoảng 1 buổi) nhưng lại có quá nhiều từ thừa.
VD: RBC (số lượng hồng cầu): 4.5 T/l thì khi sao lại cho BHYT thì phải bỏ "số lượng hồng cầu'" đi. Và cứ phải loại bỏ như vậy cho hàng chục xét nghiệm mỗi ngày.
Vì vậy em lên đây làm phiền các bác có thể chỉ cách lập trình để loại bỏ các từ thừa ấy không ạ?
Kiểu mình copy vào 1 phần mềm xong ấn chạy là nó xóa hết các từ thừa rồi ấy ạ.
Chân thành cảm ơn các bác nhiều ạ
Đoạn mã em làm đây ạ
Sub FindAndReplaceMultipleWordsInDocument()
Dim strFind As String, strReplace As String
Dim strFindArr, strReplaceArr
Dim i As Long
Application.ScreenUpdating = False
strFind = InputBox("Enter words to find separated by a comma ", "Enter words to find")
strReplace = InputBox("Enter the new replacement words separated by a comma.", "Enter Replacing Words")
strFindArr = Split(strFind, ",")
strReplaceArr = Split(strReplace, ",")
If UBound(strFindArr) <> UBound(strReplaceArr) Then
MsgBox "find and Replace words must be equal.", vbInformation, "Find Replace"
Exit Sub
End If
For i = 0 To UBound(strFindArr)
Selection.HomeKey Unit:=wdStory, Extend:=wdMove
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = strFindArr(i)
.Replacement.Text = strReplaceArr(i)
.MatchWholeWord = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next
Application.ScreenUpdating = True
End Sub

Update1: Đã chạy thực tế. Xuất hiện vấn đề là copy các từ cần thay thế thì lại bị lỗi font tiếng việt. Nên khi chạy thì không có thay đổi gì các bác ạ
Em có link file em thử làm ạ. Đoạn chữ màu đỏ là các từ cần bỏ. Đoạn văn bản phía dưới là đoạn cần chỉnh sửa ạ.


https://drive.google.com/file/d/1QjmyeJixRySm4OCDdb3t0DZyHxmQyX7D/view?usp=sharing
 
Last edited:
Thiết kế 1 phần để nhập các từ thừa càng tốt bác ạ. Các bs chỉ cần nhập thêm các từ thừa khác nếu có thay đổi trong tương lai.
 
trích ra excel, dùng hàm replace ấy
Hàm replace có xóa 1 lúc được nhiều từ không bác? Các từ này không liền nhau đâu bác ạ.
VD RBC (xvjrviohb): 5, WBC (hitvjeobf): 6....
Em muốn xóa các cụm từ trong ngoặc đó ạ
 
lập thành 1 cái file mấy từ cần replace ấy
rồi copy từng cái vào replace all trong excel
Vậy thì vẫn lâu bác ạ. Có cách nào copy 1 lần vào ô replace được ko ạ?
Vd: replace ("xykbgj","jbjodbu","......")
 

Thích Màu Hường

Tôi là bê đê
Chào các bác ạ. Em hiện tại là bác sĩ.
Ở bv em có sử dụng phần mềm quản lý bv. Từ phần mềm thì có thể trích xuất ra được các kết quả xét nghiệm ra word, Excel. Theo yêu cầu của BHYT thì bs lại phải sao lại các kết quả này vào 1 chỗ khác.
Tuy nhiên trích xuất từ phần mềm thì nhanh, gọn, đầy đủ, không phải mất thời gian lật hồ sơ giấy, chờ giấy kết quả về (nhanh hơn khoảng 1 buổi) nhưng lại có quá nhiều từ thừa.
VD: RBC (số lượng hồng cầu): 4.5 T/l thì khi sao lại cho BHYT thì phải bỏ "số lượng hồng cầu'" đi. Và cứ phải loại bỏ như vậy cho hàng chục xét nghiệm mỗi ngày.
Vì vậy em lên đây làm phiền các bác có thể chỉ cách lập trình để loại bỏ các từ thừa ấy không ạ?
Kiểu mình copy vào 1 phần mềm xong ấn chạy là nó xóa hết các từ thừa rồi ấy ạ.
Chân thành cảm ơn các bác nhiều ạ
Ý tưởng là: Lưu hết tất cả các từ thừa muốn xoá vào 1 file text (*.txt). Dùng macro trong Word/Excel để đọc từng dòng của file text rồi Replace từ muốn xoá với empty text ( "").
 
Chân thành cảm ơn các bác.
Em đã dùng VBA để làm được như ý muốn rồi ạ.
Thật ra em cũng làm theo hướng dẫn trên mạng thôi.
Cái file word này giúp em làm nhanh hơn khoảng 5-10 lần so với cách thủ công. (Mất khoảng 5 phút ban đều để tạo danh sách từ thừa ban đầu)
 

thang1812

Junior Member
Chân thành cảm ơn các bác.
Em đã dùng VBA để làm được như ý muốn rồi ạ.
Thật ra em cũng làm theo hướng dẫn trên mạng thôi.
Cái file word này giúp em làm nhanh hơn khoảng 5-10 lần so với cách thủ công. (Mất khoảng 5 phút ban đều để tạo danh sách từ thừa ban đầu)
bro làm ở đâu thế, nếu ở HN mà cần support thì ới e
 
Đã chạy thực tế. Xuất hiện vấn đề là copy các từ cần thay thế thì lại bị lỗi font tiếng việt. Nên khi chạy thì không có thay đổi gì các bác ạ
 
Chọn vài dòng + bỏ mấy cái quan trọng như tên tuổi rồi vứt lên đi, ông mò lâu lắm
Còn cái vụ lỗi là do vba ko hiện unicode hết phải đổi mấy cái dấu tiếng việt về charcode mới đúng đc
https://docs.microsoft.com/en-us/office/vba/Language/Reference/User-Interface-Help/chr-function
cái file em đưa lên là có cả đoạn mẫu cần sửa và các từ phải bỏ đó bác (các từ màu đỏ,phân cách bởi dấu ",")

https://drive.google.com/file/d/1QjmyeJixRySm4OCDdb3t0DZyHxmQyX7D/view?usp=sharing
 
vào link bấm run xem kết quả đúng không,
thích thì edit trên web cũng được, không thì build ra exe rồi chạy thôi
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 ạ
 
Top