Change Case Word (Word), Change Case Text (Excel) - Font Unicode

[nguyentuhp]

Sửa giáo án cho bà xã thấy có nhiều lỗi quá, thay đổi Font chữ Hoa, thường, Hoa đầu mỗi từ, Hoa đầu câu, sau dấu “.”, … , liên tục mà không có tiện ích nào vừa ý. Anh chàng Vietkey thì khi chọn nhiều dòng bị mất định dạng Bullets - Numberings, anh chàng Unikey thì ngon nhưng thao tác quá nhiều. Mày mò viết code cho nó mãi cuối tạm ổn.
Tiện thể sửa luôn Change Case Text cho Excel.

Mời các bạn download dùng thử!

 

[phamduylong]

Sửa giáo án cho bà xã thấy có nhiều lỗi quá, thay đổi Font chữ Hoa, thường, Hoa đầu mỗi từ, Hoa đầu câu, sau dấu “.”, … , liên tục mà không có tiện ích nào vừa ý. Anh chàng Vietkey thì khi chọn nhiều dòng bị mất định dạng Bullets - Numberings, anh chàng Unikey thì ngon nhưng thao tác quá nhiều. Mày mò viết code cho nó mãi cuối tạm ổn.
Tiện thể sửa luôn Change Case Text cho Excel.

Mời các bạn download dùng thử!

Bạn kiểm tra lại trường hợp Sentence case. - Chữ hoa đầu câu
Từ câu MOI BAN GHE THAM WWW.GIAIPHAPEXCEL.COM! lại đổi thành Moi ban ghe tham www.gIaiphapexcel.cOm!

 

[nguyentuhp]

Vâng tôi kiểm tra lại thấy còn nhiều lỗi vì do tự định nghĩa 1 câu kết thúc bằng dấu ".", và cấu tiếp theo cùng paragraphs là "space" nên trường hợp này bị sai. Và còn nhiều chỗ cần phải sửa nữa ví dụ: chèn các ký tự đặc biệt font symbol khi dùng hàm chuyển đổi font sẽ mất các ký tự này.
Hướng của tôi là:
- Về kết cấu từ, câu theo mặc định của Word, nó làm sao thì mình cố xử lý theo cách của nó
- Không thể sử dụng hàm Ucase, Lcase để chuyển một chuỗi selection.text được mà phải xứ lý từng ký tự trong văn bản.
Có hướng giải quyết rồi một vài ngày chắc sẽ xử lý được các lỗi.

Cảm ơn bạn nhiều.

 

[nguyentuhp]

Update

Sau thời gian nghiên cứu tiếp tôi thấy phương án chuyển 1 chuỗi Text để xử lý thì vướng mắc ở Symbol font (các ký hiệu đặc biệt), chuyển sang phương án xử lý từng Character trực tiếp trên Word vướng mắc là các dòng chữ đặc biệt ví dụ www.giaiphapexcel.com (có link) Word không cho thay thế ký tự w đầu tiên - (Trường hợp chữ hoa đầu từ) đành phải nhờ Change Case của Word thực hiện trước sau đó mình xử lý những ký tự mà Word chưa xử lý được. (Đối với Word chỉ xử lý được các loại Character code < 255, còn lại Character code Việt Nam sử dụng thêm từ 7840- 7829).

Kết quả đạt được như ý nhưng chạy chậm hơn rất nhiều.

Test thử các trường hợp tôi thấy xử lý từng Character trong Selection.Characters chậm hơn (gần 2 lần) xử lý Character trong từng Words.Character vì thế Tôi gộp tất cả các trường hợp về xử lý Character của mỗi từ (word).

Mời các bạn Test thử.

 

[nguyentuhp]

Convert font và Change Case - Excel Update!

Update!
1. Hàm 9 trong 1: Một hàm duy nhất chuyển đổi giữa 3 loại font (Unicode, TCVN3, UNI Windows) và mỗi loại sang Font Latin không có dấu.
2. Công cụ Convert Font to Font và có hoặc không chọn Change Case
3. Công cụ Change Case có hoặc không chọn Convert

Đặc biệt Change Case cho cả Font TCVN3 (ABC)

Mời các bạn Download! Free and Free Code!

(file Kèm theo dữ liệu lập hàm chuyển đổi giữa 4 loại font trên)

 

[binhkyen]

Mong được các bác trong diễn đàn chỉ giúp, khi em dùng các Addin trong Ơffice 2007 thì luôn bị báo lỗi
"This workbook has lost its VBA project, ActiveX controls and any other programmability-related features."
Em không biết sử lý thế nào, mong được các bác chỉ dùm.

 

[catngochoang]

cảm ơn bạn rất nhiều
Mình tìm cái tool này lâu lắm rùi mà chưa có cao thủ nào giúp hết
Bữa nay gặp được cái tool này cảu bạn, mình mừng quá. Để mình dùng thử ngay xem sao

 

[danbac]

Minh van chua ro cach dung chagecaseexcel, ban co the noi ro cach dung hon ko, cam on ban rat nhieu

 

[nguyentuhp]

Minh van chua ro cach dung chagecaseexcel, ban co the noi ro cach dung hon ko, cam on ban rat nhieu

- Bạn download về, giải nén.
- Mở file đó ra, tạo sheet mới. Xoá các sheet cũ đi, Save as thành đuôi *.xla hoặc *.xlam để tạo addin.
- Office Button, Excel Options, Add-Ins, Go, Browse, chọn tên file mà bạn save as ở bước 2, OK
- Đóng Excel và mở lại
- Khi sử dụng bạn chọn vùng cần thay đổi, nháy phải chuột, Change Font, hiện form để bạn lựa chọn.
Thân!