Em cảm ơn Bác đã hỗ trợ giúp em. Em có làm như Bác nói có lỗi như hình. View attachment 278233
em có gửi file đính kèm em chạy sub VniUnicode thì có lỗi như hình.
Sau khi đổi tên 2 sub (lúc đâu sub kia tên là VniToUnicode còn sub có dòng vàng tên là test) tôi quên không sửa lại code. Chỗ vàng phải là (lẽ ra bạn phải đoán được) VniSelectedToUnicode
Sau khi đổi tên 2 sub (lúc đâu sub kia tên là VniToUnicode còn sub có dòng vàng tên là test) tôi quên không sửa lại code. Chỗ vàng phải là (lẽ ra bạn phải đoán được) VniSelectedToUnicode
em chạy dòng lệnh Sub VniSelectedToUnicode thì có lỗi như hình.
Trong file em có phát hiện có thêm 1 font cambria em có đánh dấu màu đỏ. Nhờ Bác có cách nào convert như ý Bác nói về 1 font chữ Time New Roman.
em chạy dòng lệnh Sub VniSelectedToUnicode thì có lỗi như hình.
Trong file em có phát hiện có thêm 1 font cambria em có đánh dấu màu đỏ. Nhờ Bác có cách nào convert như ý Bác nói về 1 font chữ Time New Roman.
Tôi quên khai báo biến kytu2 (nơi tôi "cắt" ra thì module không có Option Explicit nên không bị thông báo lỗi).
Bạn sửa trong Function SourceToDest
Mã:
Dim s As String, temp As String
thành
Mã:
Dim s As String, temp As String, kytu2 As String
Tôi đã thêm khai báo và sửa lại như bài #5 trong tập tin đính kèm ở bài #3
--------------
Chỗ mầu đỏ cũng dùng VNI-Times. Trong từ Hoặc thì "Ho" đang dùng VNI-Times (bôi đen "Ho" sẽ thấy).
Có rất nhiều câu bị một nửa dùng VNI-Times, nửa còn lại dùng Times New Roman. Vd.
Trong BỘ CÔNG THƯƠNG thì "BỘ CÔNG TH" dùng VNI-Times, còn ƯƠNG dùng Times New Roman.
Trong HỢP ĐỒNG SỬA CHỮA thì "HỢP ĐỒNG " dùng VNI-Times, còn "SỬA CHỮA" dùng Times New Roman
Không tin thì bạn kiểm tra.
Chạy code thì Ho sẽ được convert từ VNI về unicode và Times New Roman được chọn cho nó. Còn "ặc" vẫn dùng phông chữ Cambria.
Nếu bạn muốn chọn phông chữ (tôi nhắc lại, không phải convert vì convert là chuyển bảng mã) Times New Roman thay cho Cambria để hiển thị thì chạy code
Mã:
Sub Cambria2Times()
' chon phong chu Times New Roman cho nhung doan van ban dang dung phong chu Cambria
' De chon Times New Roman cho nhung doan van ban dang dung phong chu khac thi cung tuong tu - Thay "Cambria" bang ten phong chu do.
Selection.End = 0
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Font.Name = "Cambria"
Do While Selection.Find.Execute
Selection.Font.Name = "Times New Roman"
Loop
End Sub
Tôi quên khai báo biến kytu2 (nơi tôi "cắt" ra thì module không có Option Explicit nên không bị thông báo lỗi).
Bạn sửa trong Function SourceToDest
Mã:
Dim s As String, temp As String
thành
Mã:
Dim s As String, temp As String, kytu2 As String
Tôi đã thêm khai báo và sửa lại như bài #5 trong tập tin đính kèm ở bài #3
--------------
Chỗ mầu đỏ cũng dùng VNI-Times. Trong từ Hoặc thì "Ho" đang dùng VNI-Times (bôi đen "Ho" sẽ thấy).
Có rất nhiều câu bị một nửa dùng VNI-Times, nửa còn lại dùng Times New Roman. Vd.
Trong BỘ CÔNG THƯƠNG thì "BỘ CÔNG TH" dùng VNI-Times, còn ƯƠNG dùng Times New Roman.
Trong HỢP ĐỒNG SỬA CHỮA thì "HỢP ĐỒNG " dùng VNI-Times, còn "SỬA CHỮA" dùng Times New Roman
Không tin thì bạn kiểm tra.
Chạy code thì Ho sẽ được convert từ VNI về unicode và Times New Roman được chọn cho nó. Còn "ặc" vẫn dùng phông chữ Cambria.
Nếu bạn muốn chọn phông chữ (tôi nhắc lại, không phải convert vì convert là chuyển bảng mã) Times New Roman thay cho Cambria để hiển thị thì chạy code
Mã:
Sub Cambria2Times()
' chon phong chu Times New Roman cho nhung doan van ban dang dung phong chu Cambria
' De chon Times New Roman cho nhung doan van ban dang dung phong chu khac thi cung tuong tu - Thay "Cambria" bang ten phong chu do.
Selection.End = 0
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Font.Name = "Cambria"
Do While Selection.Find.Execute
Selection.Font.Name = "Times New Roman"
Loop
End Sub
Em cảm ơn Bác thật nhiều!
Hiện tại khi em chạy code thì thấy có sự thay đổi các định dạng trong file.
làm thế nào khi chạy code có thể vẫn giữ định dạng của nó không Bác?
Em cảm ơn Bác thật nhiều!
Hiện tại khi em chạy code thì thấy có sự thay đổi các định dạng trong file.
làm thế nào khi chạy code có thể vẫn giữ định dạng của nó không Bác?
File chuẩn file 1:
File thứ 2 khi chạy code:
Em gửi Bác xem!