LanAnh
06-10-2002, 05:54
Trên mạng có đưa thông tin một macro của OFFICE XP (Và chỉ có ở XP) để chuyển văn bản đang xem từ font ABC (TCVN cũ) sang font UNICODE như sau:
(Copy từ tệp Help)
Sub ConvertToVietCodePage()
ActiveDocument.ConvertVietDoc CodePageOrigin:=5
End Sub
Chính vì vậy bạn nào muốn chuyển tự động những văn bản dùng font ABC trước đây sang UNICODE mà đang sử dụng OFFICE XP, ta có thể làm các bước như sau (Ví dụ cho Winword):
Bước 1: Mở WinWord.
Bước 2. Alt + F11 để vào Visual Basic.
Bước 3. Ctrl + R để hiện Project Explore
Bước 4. Click vào dấu + của Microsoft Object nếu nó chưa hiện chế độ xem chi tiết.
Bước 5. Click vào ThisDocument
Bước 6. Copy đoạn mã sau dán vào để thành:
Private Sub Document_Open()
Set myRange = ActiveDocument.Paragraphs(1).Range
If Left(myRange.Font.Name, 3) = ".Vn" Then
ActiveDocument.ConvertVietDoc CodePageOrigin:=5
End If
End Sub
Bước 7. Cất vào đĩa. Alt + F11 để về cửa sổ Winword.
Bây giờ bạn mở bất cứ một tệp văn bản bất kỳ font ABC, sẽ thấy văn bản tự chuyển sang mã UNICODE.
(Lưu ý trong văn bản này chỉ dùng mỗi font ABC)
(Copy từ tệp Help)
Sub ConvertToVietCodePage()
ActiveDocument.ConvertVietDoc CodePageOrigin:=5
End Sub
Chính vì vậy bạn nào muốn chuyển tự động những văn bản dùng font ABC trước đây sang UNICODE mà đang sử dụng OFFICE XP, ta có thể làm các bước như sau (Ví dụ cho Winword):
Bước 1: Mở WinWord.
Bước 2. Alt + F11 để vào Visual Basic.
Bước 3. Ctrl + R để hiện Project Explore
Bước 4. Click vào dấu + của Microsoft Object nếu nó chưa hiện chế độ xem chi tiết.
Bước 5. Click vào ThisDocument
Bước 6. Copy đoạn mã sau dán vào để thành:
Private Sub Document_Open()
Set myRange = ActiveDocument.Paragraphs(1).Range
If Left(myRange.Font.Name, 3) = ".Vn" Then
ActiveDocument.ConvertVietDoc CodePageOrigin:=5
End If
End Sub
Bước 7. Cất vào đĩa. Alt + F11 để về cửa sổ Winword.
Bây giờ bạn mở bất cứ một tệp văn bản bất kỳ font ABC, sẽ thấy văn bản tự chuyển sang mã UNICODE.
(Lưu ý trong văn bản này chỉ dùng mỗi font ABC)