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

thientai12

Senior Member
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
Click to expand...


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.
 
Usernem said:
trích ra excel, dùng hàm replace ấy
Click to expand...

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 đó ạ
 
thientai12 said:
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 ạ
Click to expand...

Ý 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)
 
thientai12 said:
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)
Click to expand...
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 ạ
 
Usernem said:
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
Click to expand...
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
 
thientai12 said:
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
Click to expand...
bỏ trong () đó hả, vậy như này là ra rồi
1598797338391.png
 
vuongbaoremix said:
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
Click to expand...

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 ạ
 

Similar threads

chimen2021
[Nhờ vả] Nhờ anh em chỉ giúp cách tìm và thay thế văn bản nâng cao trong Word
Replies
5
Views
463
Bocochi
Bocochi
NguyenDang95
khoe [Office VBA] Chia sẻ với mọi người thư viện giúp viết macro VBA tương tác với Google Drive
Replies
6
Views
1K
sieudubi
sieudubi
NguyenDang95
kiến thức [Word VBA] Một số mẹo khi xử lý văn bản
Replies
12
Views
2K
NguyenDang95
NguyenDang95

Share this page

Back
Top