text:
Bộ Giáo dục
Đào tạo
Chương trình dạy học
của Intel tại Việt Nam
Tài liệu
Hướng dẫn Kỹ năng
Viện Nghiên cứu Giáo dục
ĐH Sư Phạm TP. HCM
Intel Teach Elements
Blogs
Recent Entries
Best Entries
Best Blogs
Blog List
Search Blogs
DạyhọcIntel.net
>
Góc nghiệp vụ sư phạm
>
Công tác chuyên môn
>
Khối Mầm non
giáo án KPKH chủ điểm bản thân
Bí danh
Ghi nhớ tôi?
Mật mã
Đăng ký
Tập ảnh
Blogs
Hỏi đáp
Lịch
Tìm
Bài viết hôm nay
Đã đọc các diễn đàn
Công cụ chủ đề
Kiểu hiển thị
08-07-2008, 19:52
#
1
ÚT TỊCH
Lớp mầm
Gia nhập: 06-2008
Đơn vị: trường mầm non dạ lan hương
Bài viết: 2
Cảm ơn: 1
Được cảm ơn 0 lần trong 0 bài
giáo án KPKH chủ điểm bản thân
Mìmh cần một giáo án KPKH về chủ điểm bản thân. Bạn nào có xin trợ giúp cho mình.
ÚT TỊCH
Xem hồ sơ
Gởi tin nhắn cho ÚT TỊCH
Tìm những bài khác của ÚT TỊCH
Give Away Points
«
Chủ đề trước
|
Chủ đề sau
»
Những người đang xem chủ đề này: 1
(0 thành viên và 1 khách)
Công cụ chủ đề
Xem phiên bản in
Email trang này
Kiểu hiển thị
Kiểu tuần tự
Chuyển qua Hybrid Mode
Chuyển qua Threaded Mode
Quyền đăng bài
Bạn
không thể
đăng chủ đề mới
Bạn
không thể
đăng bài trả lời
Bạn
không thể
đính kèm
Bạn
không thể
sửa bài viết của bạn
BB code
is
On
Smilies
are
On
[IMG]
code is
On
HTML code is
Off
Forum Rules
Nhảy đến diễn đàn
Bảng cá nhân
Tin nhắn
Subscriptions
Ai trực tuyến
Tìm trong diễn đàn
Forums Home
Thông tin chung
Thông báo
Họp mặt
Hướng đến cộng đồng
Các cuộc thi
Thiết kế Logo & Slogan 20.11.2008
Tin tức - Sự kiện
Tin tức giáo dục
Các chương trình hội thảo, đào tạo
Hội thảo
Đào tạo
Kỹ năng giao tiếp
Điểm báo
Thắc mắc - Góp ý
Hướng dẫn sử dụng
Xây dựng diễn đàn
Các chương trình Giáo dục của Intel tại Việt Nam
Tổng quan về Chương trình Giáo dục Intel
Tin tức, sự kiện về Chương trình Giáo dục Intel
Các văn bản
Chương trình ITGS (Intel Teach Getting Started Course)
Thảo luận nội dung tập huấn
Mô-đun 1
Mô-đun 2
Mô-đun 3
Mô-đun 4
Mô-đun 5
Mô-đun 6
Mô-đun 7
Mô-đun 8
Mô-đun 9
Mô-đun 10
Mô-đun 11
Mô-đun 12
Phụ lục A
Phụ lục B
Sách hướng dẫn kỹ năng
Phụ lục C
Thay đổi trong ITGS 2.0
Phụ lục cho MT
Việt hóa tài liệu ITGS 2.0
Các lớp tập huấn
Các lớp MT
TP. Hồ Chí Minh
Lớp MT đợt 3
MT-Đ3-A1
MT-Đ3-A2
MT-Đ3-A3
MT-Đ3-A4
MT-Đ3-A5
MT-Đ3-A6
MT-Đ3-A7
MT-Đ3-B1
MT-Đ3-B2
MT-Đ3-B3
MT-Đ3-B4
MT-Đ3-B5
MT-Đ3-B6
MT-Đ3-C1
MT-Đ3-C2
MT-Đ3-C3
MT-Đ3-C4
MT-Đ3-C5
MT-Đ3-C6
MT-Đ3-C7
MT-Đ3-D1
MT-Đ3-D2
MT-Đ3-D3
MT-Đ3-D4
MT-Đ3-D5
Các lớp Cán bộ quản lý
Lớp CBQL-A1
Lớp CBQL-A2
Lớp CBQL-A3
Lớp CBQL-A4
Lớp CBQL-A5
Lớp CBQL-A6
Lớp CBQL-B1
Lớp CBQL-B2
Lớp CBQL-B3
Lớp CBQL-B4
Lớp CBQL-B5
Lớp CBQL-B6
Lớp CBQL-B7
Lớp CBQL-B8
Lớp CBQL-B9
Lớp CBQL-C1
Lớp CBQL-C2
Lớp CBQL-C3
Lớp CBQL-C4
Lớp CBQL-C5
Lớp CBQL-D1
Lớp CBQL-D2
Lớp CBQL-D3
Trường CĐ SP MG TW
Lớp MT - A
Lớp MT - B
Lớp MT - C
Lâm Đồng
Lớp CBQL (THPT)
Lớp CBQL-A
Lớp CBQL-B
Lớp CBQL-C
Lớp CBQL-D
Lớp CBQL-E
Lớp CBQL-F
Lớp CBQL-G
Lớp CBQL (THCS - TH)
CBQL-A
CBQL-B
CBQL-C
CBQL-D
CBQL-E
CBQL-F
CBQL-G
Lớp CĐSP & CĐKTKT
Lớp 1
Lớp 2
Lớp 3
Lớp 4
Ôn tập 29-6
Đà Nẵng
Các lớp CBQL 1
CBQL-A
CBQL-B
CBQL-C
CBQL-D
CBQL-E
CBQL-F
CBQL-G
CBQL-H
Các lớp CBQL 2
Lớp A
Lớp B
Lớp C
Lớp D
Lớp E
Lớp F
Các lớp MT đợt 3
CBQL-A
CBQL-B
CBQL-C
MT-D
MT-E
Huế
Lớp CBQL A
Lớp CBQL B
Lớp MT C
Lớp MT D
Lớp MT E
Lớp MT F
Đợt từ 22-24.8.2009
Đợt từ 28-30.8.2009
Đợt 3 - 5.12.2009
Đợt từ 10 - 12.8.2010
Đợt từ 13 - 15.8.2010
CĐ SP Huế từ 12 - 14/8/2011
Đợt từ 5 - 7/12/2011
Đợt từ 8 - 10/12/2011
Đợt từ 20 - 22.5.2013
Đợt từ 23 - 25.5.2013
Tây Ninh
Lớp 1B
Lớp 1A
Lớp 2A
Lớp 2B
Hà Nội
Lớp MT A
Lớp MT B
Ba Đình 7-9.8.2008
Đống Đa 16-18.7.2009
Hoàng Mai 20-22.7.2009
Đợt từ 24-26.9.2009
Ba Đình 13 - 15.11.2009
Ba Đình 4 - 6.12.2009
Đợt từ 11 - 13.3.2010
Long Biên 13 - 15.5.2010
Tây Hồ 23 - 25.5.2012
Đợt từ 12 - 14.3.2012 (ĐH Ngoại ngữ & SGD Hà Nội)
Quảng Trị
Lớp MT A
Lớp MT B
Lớp CBQL A
Lớp CBQL B
Đợt 15 - 17/4
Đợt từ 6 - 8.7.2010
Lớp A
Lớp B
Lớp C
Đợt từ 21 - 23.3.2011
Đợt từ 24 - 26.3.2011
Hải Dương
Đợt 27 - 29.11.2009
Kiên Giang
Đợt từ 2 - 4.8.2012
Tiền Giang
Đợt từ 16 - 18.8.2012
Cà Mau
Đợt từ 24 - 26.7.2013
Vĩnh Phúc
Đợt từ 13 - 15.8.2013
Điện Biên
Đợt từ 10 - 12.10.2013
Cần Thơ
Đợt từ 23 - 24.10.2013
Nghệ An
Đợt từ 12 - 14.12.2014
Các lớp PT
TP. Hồ Chí Minh
Quận 1
Quận 2
Quận 3
Quận 6
Quận 7
Quận 8
Quận 9
Quận 10
Quận 11
Quận 12
Q Bình Thạnh
Q Bình Tân
Q Phú Nhuận
H Bình Chánh
H Củ Chi
Tây Ninh
THPT Lê Quý Đôn
Thừa Thiên Huế
TP Huế
H Phong Điền
H Hương Thủy
H Hương Trà
H Phú Vang
H A Lưới
H Quảng Điền
H Phú Lộc
Đà Nẵng
Q. Hải Châu
Q. Thanh Khê
Q. Ngũ Hành Sơn
Q. Sơn Trà
Q. Cẩm Lệ
Q. Liên Chiểu
H. Hòa Vang
Khối THPT
Đợt từ 25-27.9.2009
Lâm Đồng
Khối THPT
Khối THCS
Khối Tiểu học
Hà Nội
Q Ba Đình
Q Hoàng Mai
Q Đống Đa
Q Long Biên
Q Tây Hồ
Quảng Trị
TP. Đông Hà
H. Gio Linh
H. Triệu Phong
H. ĐakRông
H. Hướng Hóa
H. Hải Lăng
TX Quảng Trị
H. Cam Lộ
H. Vĩnh Linh
Các trường THPT
Trường CĐSP Quảng Trị
Các Trung Tâm GDTX
Sản phẩm
Kế hoạch hành động
Giáo án - Bài giảng
Chương trình Elements
Các khóa học và tài liệu tham khảo
Thảo luận nội dung tập huấn
Các lớp tập huấn
Quảng Trị
Lớp MT 9/2012
Sản phẩm
Chương trình ITE (Intel Teach Essentials)
Thảo luận nội dung tập huấn
Các lớp tập huấn
Sản phẩm
Hội thi Intel ISEF (Hội thi Khoa học Kỹ thuật Quốc tế của Intel)
Tài liệu tham khảo
Bản tin của Hiệp hội Khoa học và Cộng đồng
Thảo luận về Intel ISEF
Chương trình Phổ cập Tin học Cộng đồng – Intel® Easy Steps
Các lớp tập huấn
Thái Nguyên
Đợt ngày 6 - 7.6.2013
Những cảm xúc và kỷ niệm về Chương trình Giáo dục Intel
Góc nghiệp vụ sư phạm
Tài liệu giảng dạy
Bài trình chiếu
Sản phẩm hỗ trợ
Thảo luận về phương pháp giảng dạy
Tình huống sư phạm
Công tác chuyên môn
Công Nghệ
Địa Lý
Giáo Dục Công Dân
Hóa Học
Lịch Sử
Ngữ Văn
Sinh Học
Thể Dục
Tiếng Anh
Tin Học
Toán Học
Vật Lý
Tự Chọn
Chủ Nhiệm
Ngoài Giờ Lên Lớp
Hướng Nghiệp
Mỹ thuật
Âm nhạc
Khối Tiểu học
Khối Mầm non
Công tác quản lý giáo dục
Xếp TKB
Góc khuyến học
Góc tin học - công nghệ
Phần mềm
Văn phòng
Microsoft Word
Microsoft Access
Microsoft Excel
Công thức mảng
Microsoft PowerPoint
Hệ thống
Nhạc - Phim
Mạng máy tính
Tiện ích
Trị vi-rút
Đồ họa
Flash
Photoshop
Corel Draw
Lập trình
SREM
Phần cứng
Internet
Thư điện tử
Web hay
Blog
Thiết kế web
Kiến thức cơ bản
HTML cơ bản
Quản lý nội dung
Joomla
phpNuke
NukeViệt
Diễn đàn
phpBB
SMF
vBulletin
Góc thư giãn
Đọc và suy ngẫm
Mỗi ngày 1 chuyện
Lời hay ý đẹp
Sách hay
Câu chuyện giáo dục
Góc cười
Cái gì đây?
Tự sáng tác
Góc trò chuyện
Tự giới thiệu
Những lời chúc mừng
Lễ hội
Sinh nhật
Hiến kế
Thế giới quanh ta
Trường tôi
Khu vực dành cho khách
Thắc mắc - Góp ý
Các bài viết của khách
Điều em muốn nói
Tất cả giờ đều quy về GMT +7. Bây giờ là
11:51
.
Sơ đồ website
-
Đầu trang
Powered by vBulletin® Version 3.8.3
Copyright ©2000 - 2015, Jelsoft Enterprises Ltd.
Thuộc quyền sở hữu của DạyhọcIntel.net

markdown:
|
|
|
|![]()
|
|
![]()
|
|![]()
|
||
|
|
|![]()
|
|![]()
|
|![]()
|
|![]()
![]()
![]()
|
|![]()
|
|![]()
|Những người đang xem chủ đề này: 1 (0 thành viên và 1 khách)|
|Công cụ chủ đề
|
|Kiểu hiển thị
|
|
|![]()
Kiểu tuần tự
|
|
Bạn
không thể đăng chủ đề mới
Bạn
không thể đăng bài trả lời
Bạn
không thể đính kèm
Bạn
không thể sửa bài viết của bạn On On On
HTML code is
Off |
|

Pragma: private

Set-Cookie: bblastactivity=0; expires=Sat, 30-Jan-2016 04:51:03 GMT; path=/


text:
Hiển thị kết quả từ 1 đến 9 / 9
-
07-06-2007 17:40 #1Registered User
- Tham gia
- 16-05-2007
- Bài viết
- 16
- Like
- 0
- Thanked 0 Times in 0 Posts
Đổi chữ hoa sang chữ thường trong word.
Tôi có 02 câu hỏi trong word nhờ các bạn giúp:
1- Chuyển chữ in hoa sang chữ thường bằng cách nào?
2- Thường chữ cuối cùng của một dòng sẽ tự xuống dòng nếu không đủ chỗ, nhưng máy của tôi lại không xuống dòng cả chữ mà lại tách chữ đó thành hai phần và nửa ở dòng trên nối với nửa chữ ở dòng dưới bằng gạch ngang.
Xin chân thành cám ơn
-
07-06-2007 17:50 #2
1- Còn tùy bạn dùng bộ gõ và bộ font nào, nếu dùng font VNI thì bôi đen vùng cần chuyển và nhấn Shift + F3. Còn nếu dùng font Unicode thì dùng bộ Toolkit, sau khi Unikey đã ở dưới khay hệ thống thì click chuột phải vào, chọn "Công cụ..." và theo các lựa chọn trong đó.
Còn câu 2 thì ko nhớ nữa, lâu quá rồi nên quên mất.
-
07-06-2007 21:27 #3
bạn mới cài lại office hả? vào tools-->AutoCorrect option
tai thẻ Autocorrect bạn tắt hết đi ( để lại "SHow AUtoCorrect.. và "Correct accienden...)
thẻ AutoFormat AS You Type : chỉ để lại hai dòng gần cuối.
AUtoFormat : để lại 2 dòng cuối
chắc là xong hết roài đó. không đcj thì mình cũng bó tay
-
07-06-2007 23:11 #4Registered User
- Tham gia
- 03-06-2007
- Bài viết
- 6
- Like
- 0
- Thanked 0 Times in 0 Posts
Cách chuyển đổi chuyển đổi từ font VNI sang font unicode?
-
08-06-2007 10:42 #51- Chuyển chữ in hoa sang chữ thường bằng cách nào?
- Có thể chuyển dễ dàng với các bảng mã sử dụng font 2-byte (vd VNI, VietwareX).
- Còn với các bảng mã sử dụng font 1-byte (vd TCVN3) thì tất nhiên là không thể chuyển thành công (tại sao? ), giải pháp là đổi font sang dạng hoa (vd đổi .VNArial thành .VNArialH).
- Với bảng mã Unicode, do định nghĩa ký cặp ký tự hoa-thường chưa chuẩn, nên việc chuyển đổi này cũng không hoàn chỉnh. Giải pháp: cứ chuyển như thường, các ký tự không chuyển được dùng chức năng Add and Replace để thay thế (có thể viết Macro cho chuyên nghiệp).
2- Thường chữ cuối cùng của một dòng sẽ tự xuống dòng nếu không đủ chỗ, nhưng máy của tôi lại không xuống dòng cả chữ mà lại tách chữ đó thành hai phần và nửa ở dòng trên nối với nửa chữ ở dòng dưới bằng gạch ngang.
-
19-07-2007 09:26 #6Registered User
- Tham gia
- 16-01-2007
- Bài viết
- 1
- Like
- 0
- Thanked 0 Times in 0 Posts
Câu 1 dễ lắm, bạn theo cách này:
1. Bôi đen chữ hoặc đoạn văn bản cần chuyển, sau đó trên giao diện của word vào format-change case- lowercase (hoặc sentence case) là OK
2. Câu hỏi là do bạn để chế độ ghi tiếng Anh: bạn vào Vietkey đánh dấu vào ô tiếng Việt là được.
-
21-11-2007 17:15 #7Registered User
- Tham gia
- 24-01-2006
- Bài viết
- 1
- Like
- 0
- Thanked 0 Times in 0 Posts
Bài này hôm nay em mới dùng đến. Cám ơn các anh nha.
-
27-11-2007 00:03 #8
Để chuyển chữ hoa sang chữ thường trong Word, bạn có thể viết Macro. Bạn gõ Alt + F11, copy đoạn lập trình Macro vào. Sau đó vào Customize để đặt vào phím tắt, ví dụ phím F11. Khi nào cần thì bôi đen, nhấn F11 sẽ chuyển phần bôi đen thành hoa, hay thường.
Code module đây:
Code:
'Xu ly tieng Viet UNICODE 'Nguoi lap trinh: Nguyen Anh Cuong 'Website: http://khkt.net 'Email: trungtamtinhocabc@yahoo.com 'Mobile: 0988.529 310 'Ngay viet 8/5/2001 'Co tham khao cach giai quyet van de cua thay giao Le Duc Hong tren http://vivosoft.com 'Ngay sua chua gan nhat 6/10/06 Option Explicit Public ABC As String Public UNI_Co_Dau As String ' API de truy nhap VB6 String thong qua vi tri va thu tu cua no trong bo nho Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long) Enum coEncoding coANSI = 0 coUnicode = 1 coUTF8 = 2 End Enum Public Sub InitUnicode() Dim ChuoiKQua As String ' Khoi tao danh sach cac ky tu tieng Viet co dau (UNI_Co_Daus), 67 ky tu co dau la chu thuong va 67 ky tu co dau la chu hoa ' Nen nho la dung cac ham Function chrW, ky tu &HE1 Unicode duoc chua ben trong danh sach nay ' nhu &HE100 cho 1 chuoiABC ky tu ChuoiKQua = ChuoiKQua & ChrW(&HE1) & ChrW(&HE0) & ChrW(&H1EA3) & ChrW(&HE3) & ChrW(&H1EA1) & ChrW(&H103) & ChrW(&H1EAF) & ChrW(&H1EB1) & ChrW(&H1EB3) & ChrW(&H1EB5) & ChrW(&H1EB7) & ChrW(&HE2) & ChrW(&H1EA5) & ChrW(&H1EA7) & ChrW(&H1EA9) & ChrW(&H1EAB) & ChrW(&H1EAD) & ChrW(&HE9) & ChrW(&HE8) & ChrW(&H1EBB) ChuoiKQua = ChuoiKQua & ChrW(&H1EBD) & ChrW(&H1EB9) & ChrW(&HEA) & ChrW(&H1EBF) & ChrW(&H1EC1) & ChrW(&H1EC3) & ChrW(&H1EC5) & ChrW(&H1EC7) & ChrW(&HED) & ChrW(&HEC) & ChrW(&H1EC9) & ChrW(&H129) & ChrW(&H1ECB) & ChrW(&HF3) & ChrW(&HF2) & ChrW(&H1ECF) & ChrW(&HF5) & ChrW(&H1ECD) & ChrW(&HF4) & ChrW(&H1ED1) ChuoiKQua = ChuoiKQua & ChrW(&H1ED3) & ChrW(&H1ED5) & ChrW(&H1ED7) & ChrW(&H1ED9) & ChrW(&H1A1) & ChrW(&H1EDB) & ChrW(&H1EDD) & ChrW(&H1EDF) & ChrW(&H1EE1) & ChrW(&H1EE3) & ChrW(&HFA) & ChrW(&HF9) & ChrW(&H1EE7) & ChrW(&H169) & ChrW(&H1EE5) & ChrW(&H1B0) & ChrW(&H1EE9) & ChrW(&H1EEB) & ChrW(&H1EED) & ChrW(&H1EEF) ChuoiKQua = ChuoiKQua & ChrW(&H1EF1) & ChrW(&HFD) & ChrW(&H1EF3) & ChrW(&H1EF7) & ChrW(&H1EF9) & ChrW(&H1EF5) & ChrW(&H111) & ChrW(&HC1) & ChrW(&HC0) & ChrW(&H1EA2) & ChrW(&HC3) & ChrW(&H1EA0) & ChrW(&H102) & ChrW(&H1EAE) & ChrW(&H1EB0) & ChrW(&H1EB2) & ChrW(&H1EB4) & ChrW(&H1EB6) & ChrW(&HC2) & ChrW(&H1EA4) ChuoiKQua = ChuoiKQua & ChrW(&H1EA6) & ChrW(&H1EA8) & ChrW(&H1EAA) & ChrW(&H1EAC) & ChrW(&HC9) & ChrW(&HC8) & ChrW(&H1EBA) & ChrW(&H1EBC) & ChrW(&H1EB8) & ChrW(&HCA) & ChrW(&H1EBE) & ChrW(&H1EC0) & ChrW(&H1EC2) & ChrW(&H1EC4) & ChrW(&H1EC6) & ChrW(&HCD) & ChrW(&HCC) & ChrW(&H1EC8) & ChrW(&H128) & ChrW(&H1ECA) ChuoiKQua = ChuoiKQua & ChrW(&HD3) & ChrW(&HD2) & ChrW(&H1ECE) & ChrW(&HD5) & ChrW(&H1ECC) & ChrW(&HD4) & ChrW(&H1ED0) & ChrW(&H1ED2) & ChrW(&H1ED4) & ChrW(&H1ED6) & ChrW(&H1ED8) & ChrW(&H1A0) & ChrW(&H1EDA) & ChrW(&H1EDC) & ChrW(&H1EDE) & ChrW(&H1EE0) & ChrW(&H1EE2) & ChrW(&HDA) & ChrW(&HD9) & ChrW(&H1EE6) ChuoiKQua = ChuoiKQua & ChrW(&H168) & ChrW(&H1EE4) & ChrW(&H1AF) & ChrW(&H1EE8) & ChrW(&H1EEA) & ChrW(&H1EEC) & ChrW(&H1EEE) & ChrW(&H1EF0) & ChrW(&HDD) & ChrW(&H1EF2) & ChrW(&H1EF6) & ChrW(&H1EF8) & ChrW(&H1EF4) & ChrW(&H110) UNI_Co_Dau = ChuoiKQua ' Gan vao danh sach UNI_Co_Dau Dim ChuoiABC ChuoiABC = ChuoiABC & ChrW(184) & ChrW(181) & ChrW(182) & ChrW(183) & ChrW(185) & ChrW(168) & ChrW(190) & ChrW(187) & ChrW(188) & ChrW(189) & ChrW(198) & ChrW(169) & ChrW(202) & ChrW(199) & ChrW(200) & ChrW(201) & ChrW(203) & ChrW(208) & ChrW(204) & ChrW(206) & ChrW(207) & ChrW(209) & ChrW(170) & ChrW(213) & ChrW(210) & ChrW(211) & ChrW(212) & ChrW(214) & ChrW(221) & ChrW(215) ChuoiABC = ChuoiABC & ChrW(216) & ChrW(220) & ChrW(222) & ChrW(227) & ChrW(223) & ChrW(225) & ChrW(226) & ChrW(228) & ChrW(171) & ChrW(232) & ChrW(229) & ChrW(230) & ChrW(231) & ChrW(233) & ChrW(172) & ChrW(237) & ChrW(234) & ChrW(235) & ChrW(236) & ChrW(238) & ChrW(243) & ChrW(239) & ChrW(241) & ChrW(242) & ChrW(244) & ChrW(173) & ChrW(248) & ChrW(245) & ChrW(246) & ChrW(247) & ChrW(249) & ChrW(253) & ChrW(250) & ChrW(251) & ChrW(252) & ChrW(254) & ChrW(174) & ChrW(184) ChuoiABC = ChuoiABC & ChrW(181) & ChrW(182) & ChrW(183) & ChrW(185) & ChrW(161) & ChrW(190) & ChrW(187) & ChrW(188) & ChrW(189) & ChrW(198) & ChrW(162) & ChrW(202) & ChrW(199) & ChrW(200) & ChrW(201) & ChrW(203) & ChrW(208) & ChrW(204) & ChrW(206) & ChrW(207) & ChrW(209) & ChrW(163) & ChrW(213) & ChrW(210) & ChrW(211) & ChrW(212) & ChrW(214) & ChrW(221) & ChrW(215) & ChrW(216) ChuoiABC = ChuoiABC & ChrW(220) & ChrW(222) & ChrW(227) & ChrW(223) & ChrW(225) & ChrW(226) & ChrW(228) & ChrW(164) & ChrW(232) & ChrW(229) & ChrW(230) & ChrW(231) & ChrW(233) & ChrW(165) & ChrW(237) & ChrW(234) & ChrW(235) & ChrW(236) & ChrW(238) & ChrW(243) & ChrW(239) & ChrW(241) & ChrW(242) & ChrW(244) & ChrW(166) & ChrW(248) & ChrW(245) & ChrW(246) & ChrW(247) & ChrW(249) ChuoiABC = ChuoiABC & ChrW(253) & ChrW(250) & ChrW(251) & ChrW(252) & ChrW(254) & ChrW(167) ABC = ChuoiABC End Sub Function LaChuThuongCoDau(Ch) As Boolean ' Tra ve True neu Ch thuoc UNI_Co_Dau hoac dd, DD LaChuThuongCoDau = (InStr(UNI_Co_Dau, Ch) > 0) End Function Function LaChuHoaCoDau(Ch) As Boolean ' Tra ve True neu Ch thuoc chua hoa cua Uppercase UNI_Co_Dau hoac DD LaChuHoaCoDau = (InStr(UNI_Co_Dau, Ch) > 67) End Function Function Hoa1KyTu(Ch) As String ' Hoa 1 ky tu co dau neu no co trong danh sach vowel hoac dd Dim ViTri ' Vi tri cua ky tu nay trong danh sach UNI_Co_Dau ' Co dinh ky tu trong danh sach UNI_Co_Daus ViTri = InStr(UNI_Co_Dau, Ch) If (ViTri > 67) Then Hoa1KyTu = Ch ' No la ky tu hoa rui, thi giu nguyen no ElseIf (ViTri > 0) Then ' Neu no la ky tu thuong, chon anh xa cua chu hoa tuong ung Uppercase vowel Hoa1KyTu = Mid(UNI_Co_Dau, ViTri + 67, 1) Else ' Neu no chi la ky tu ANSI (Chu k0 dau) Hoa1KyTu = UCase(Ch) End If End Function Function Thuong1KyTu(Ch) As String ' Tra ve chu thuong ky tu thuoc danh sach vowel hoac DD Dim ViTri ' Vi tri cua ky tu nay trong danh sach UNI_Co_Dau ' Co dinh ky tu trong danh sach UNI_Co_Daus ViTri = InStr(UNI_Co_Dau, Ch) If ViTri > 67 Then ' Neu no la ky tu hoa, chon anh xa cua chu thuong tuong ung trong danh sach vowel Thuong1KyTu = Mid(UNI_Co_Dau, ViTri - 67, 1) ElseIf ViTri > 0 Then Thuong1KyTu = Ch ' No la chu thuong, giu nguyen no Else ' Neu no chi la ky tu ANSI (Chu k0 dau) Thuong1KyTu = LCase(Ch) End If End Function Function Hoa1Xau(ChuoiNguon) As String ' Chuyen 1 chuoi Unicode string thanh hoa Dim I, DoDaiChuoi, ChuoiKQua ChuoiKQua = "" ' Khoi tao chuoi ket qua DoDaiChuoi = Len(ChuoiNguon) ' Nhan do dai chuoi Unicode string If DoDaiChuoi > 0 Then ' Kiem tra va xu ly tung ky tu trong Unicode string For I = 1 To DoDaiChuoi ' Chuyen tung ky tu mot thanh hoa ChuoiKQua = ChuoiKQua & Hoa1KyTu(Mid(ChuoiNguon, I, 1)) Next End If Hoa1Xau = ChuoiKQua ' Tra lai chuoiABC ket qua End Function Function Thuong1Xau(ChuoiNguon) As String ' Chuyen 1 chuoi Unicode string thanh chu thuong Dim I, DoDaiChuoi, ChuoiKQua ChuoiKQua = "" ' Khoi tao chuoi ket qua DoDaiChuoi = Len(ChuoiNguon) ' Nhan do dai chuoi Unicode string If DoDaiChuoi > 0 Then ' Kiem tra va xu ly tung ky tu trong Unicode string For I = 1 To DoDaiChuoi ' Chuyen tung ky tu mot thanh hoa ChuoiKQua = ChuoiKQua & Thuong1KyTu(Mid(ChuoiNguon, I, 1)) Next End If Thuong1Xau = ChuoiKQua 'Tra lai chuoiABC ket qua End Function Sub HoaUNI() Static DaHoa As Boolean If Left(Selection.Font.Name, 1) <> "." Then With Selection Dim DongViet As String DongViet = .Text If DaHoa = True Then DongViet = Hoa1Xau(DongViet) Else DongViet = Thuong1Xau(DongViet) End If DaHoa = Not DaHoa Selection.Text = DongViet End With Else Call HoaThuong End If End Sub Sub HoaDaucauUNI() Dim DongViet As String Dim ChuanBiHoa As Boolean Dim KyTu, DoDaiChuoi, I, kq As String DongViet = Selection.Text DoDaiChuoi = Len(DongViet) If DoDaiChuoi > 0 Then For I = 1 To DoDaiChuoi KyTu = Mid(DongViet, I, 1) If ChuanBiHoa = False Then ChuanBiHoa = (KyTu = ".") Or (KyTu = ChrW(13)) Or (KyTu = "!") Or (KyTu = ":") Or (KyTu = "?") Or (KyTu = ";") Or (KyTu = "!") ChuanBiHoa = ChuanBiHoa Or (KyTu = "(") Or (KyTu = "+") ElseIf ChuanBiHoa And (KyTu <> " ") And (KyTu <> "-") And (KyTu <> "*") And (KyTu <> "+") And (KyTu <> ChrW(13)) And (KyTu <> ".") Then KyTu = Hoa1KyTu(KyTu) ChuanBiHoa = False End If kq = kq + KyTu Next End If Selection.Text = kq End Sub Sub HoaDauTu() Dim DongViet As String Dim ChuanBiHoa As Boolean Dim KyTu, DoDaiChuoi, I, kq As String DongViet = Selection.Text DoDaiChuoi = Len(DongViet) If DoDaiChuoi > 0 Then kq = Hoa1KyTu(Left(DongViet, 1)) For I = 2 To DoDaiChuoi KyTu = Mid(DongViet, I, 1) If ChuanBiHoa = False Then ChuanBiHoa = (KyTu = ".") Or (KyTu = ChrW(13)) Or (KyTu = "!") Or (KyTu = ":") Or (KyTu = "?") Or (KyTu = ";") Or (KyTu = "!") ChuanBiHoa = ChuanBiHoa Or (KyTu = "(") Or (KyTu = "+") Or (KyTu = " ") ElseIf ChuanBiHoa And (KyTu <> " ") And (KyTu <> "-") And (KyTu <> "*") And (KyTu <> "+") And (KyTu <> ChrW(13)) And (KyTu <> ".") And (KyTu <> " ") Then KyTu = Hoa1KyTu(KyTu) ChuanBiHoa = False End If kq = kq + KyTu Next End If Selection.Text = kq End Sub Function StringToString(Vowel1, Vowel2, Optional Chu) As String Call InitUnicode ' Dich tung ky tu tu theo 2 ban do ky tu Dim ConChu As String Dim ChuoiGoc As String Dim ChuoiDich As String Dim I, ViTri ' Nap phan can dich If IsMissing(Chu) Then ChuoiGoc = Selection.Text Else ChuoiGoc = Chu End If ' Kiem tra tung ky tu mot For I = 1 To Len(ChuoiGoc) ConChu = Mid(ChuoiGoc, I, 1) ' Bo qua Carriage Return va Line Feed neu co If (ConChu = vbCr) Then ChuoiDich = ChuoiDich & vbCr ElseIf (ConChu = vbLf) Then ChuoiDich = ChuoiDich & vbLf Else ' Tim ky tu co dau trong danh sach ViTri = InStr(Vowel1, ConChu) If ViTri <= 0 Then ' Neu khong thay khong dung ban do ChuoiDich = ChuoiDich & ConChu Else ' Tim thay thi thay anh xa cua ky tu tuong ung ChuoiDich = ChuoiDich & Mid(Vowel2, ViTri, 1) End If End If Next StringToString = ChuoiDich End Function Sub ABC2UNI() Dim PhanChon As String Application.ScreenUpdating = False PhanChon = Selection.Text Selection.Text = StringToString(ABC, UNI_Co_Dau) Selection.Font.Name = "Arial" Application.ScreenUpdating = True End Sub Sub UNI2ABC() Dim PhanChon As String Application.ScreenUpdating = False PhanChon = Selection.Text Selection.Text = StringToString(UNI_Co_Dau, ABC) Selection.Font.Name = ".VnArial" Application.ScreenUpdating = True End Sub '==== VNI Function Function UnicodeToMultichar(XauUNI) As String Call InitUnicode Dim ConChu As String Dim ChuoiGoc As String Dim ChuoiDich As String Dim I, ViTri, MangVNI MangVNI = Array("aù", "aø", "aû", "aõ", "aï", "aê", "aé", "aè", "aú", "aü", "aë", "aâ", "aá", "aà", "aå", "aã", "aä", "eù", "eø", "eû", "eõ", "eï", "eâ", "eá", "eà", "eå", "eã", "eä", "í", "ì", "æ", "ó", "ò", "où", "oø", "oû", "oõ", "oï", "oâ", "oá", "oà", "oå", "oã", "oä", "ô", "ôù", "ôø", "ôû", "ôõ", "ôï", "uù", "uø", "uû", "uõ", "uï", "ö", "öù", "öø", "öû", "öõ", "öï", "yù", "yø", "yû", "yõ", "î", "ñ", "AÙ", "AØ", "AÛ", "AÕ", "AÏ", "AÊ", "AÉ", "AÈ", "AÚ", "AÜ", "AË", "AÂ", "AÁ", "AÀ", "AÅ", "AÃ", "AÄ", "EÙ", "EØ", "EÛ", "EÕ", "EÏ", "EÂ", "EÁ", "EÀ", "EÅ", "EÃ", "EÄ", "Í", "Ì", "Æ", "Ó", "Ò", "OÙ", "OØ", "OÛ", "OÕ", "OÏ", "OÂ", "OÁ", "OÀ", "OÅ", "OÃ", "OÄ", "Ô", "ÔÙ", "ÔØ", "ÔÛ", "ÔÕ", "ÔÏ", "UÙ", "UØ", "UÛ", "UÕ", "UÏ", "Ö", "ÖÙ", "ÖØ", "ÖÛ", "ÖÕ", "ÖÏ", "YÙ", "YØ", "YÛ", "YÕ", "Î", "Ñ") 'Gan noi dung can chuyen vao ChuoiGoc ChuoiGoc = XauUNI 'Kiem tra lan luot tung ky tu trong xau For I = 1 To Len(ChuoiGoc) ' Nhan mot ky tu Unicode ConChu = Mid(ChuoiGoc, I, 1) 'Carriage return hoac LineFeedthi copy nguyen If (ConChu = vbCr) Then ChuoiDich = ChuoiDich & vbCr ElseIf (ConChu = vbLf) Then ChuoiDich = ChuoiDich & vbLf Else ' Kiem tra vi tri cua ky tu trong mang danh sach UNI co dau? ViTri = InStr(UNI_Co_Dau, ConChu) If ViTri <= 0 Then ' neu khong phai chu co dau, giu nguyen ChuoiDich = ChuoiDich & ConChu Else ' Neu phai thi chon ky tu thay the tuong ung ChuoiDich = ChuoiDich & MangVNI(ViTri - 1) End If End If Next 'Tra ve ket qua UnicodeToMultichar = ChuoiDich End Function Function MulticharToUnicode(XauUNI) As String ' Convert VNI sang UNICODE Call InitUnicode Dim ConChu As String Dim ChuoiGoc As String Dim ChuoiDich As String Dim I, ViTri, SoThay, DoDaiChuoi ' Gan noi dung truyen vao ChuoiGoc ChuoiGoc = XauUNI ' Thay the ky tu co dau trong ChuoiGoc voi mot xau dang 067 de xu ly ' thu tu 67th chu co dau ' Kiem tra tung ky tu co dau Dim MangVNI, MangSo MangVNI = Array("aù", "aø", "aû", "aõ", "aï", "aê", "aé", "aè", "aú", "aü", "aë", "aâ", "aá", "aà", "aå", "aã", "aä", "eù", "eø", "eû", "eõ", "eï", "eâ", "eá", "eà", "eå", "eã", "eä", "í", "ì", "æ", "ó", "ò", "où", "oø", "oû", "oõ", "oï", "oâ", "oá", "oà", "oå", "oã", "oä", "ô", "ôù", "ôø", "ôû", "ôõ", "ôï", "uù", "uø", "uû", "uõ", "uï", "ö", "öù", "öø", "öû", "öõ", "öï", "yù", "yø", "yû", "yõ", "î", "ñ", "AÙ", "AØ", "AÛ", "AÕ", "AÏ", "AÊ", "AÉ", "AÈ", "AÚ", "AÜ", "AË", "AÂ", "AÁ", "AÀ", "AÅ", "AÃ", "AÄ", "EÙ", "EØ", "EÛ", "EÕ", "EÏ", "EÂ", "EÁ", "EÀ", "EÅ", "EÃ", "EÄ", "Í", "Ì", "Æ", "Ó", "Ò", "OÙ", "OØ", "OÛ", "OÕ", "OÏ", "OÂ", "OÁ", "OÀ", "OÅ", "OÃ", "OÄ", "Ô", "ÔÙ", "ÔØ", "ÔÛ", "ÔÕ", "ÔÏ", "UÙ", "UØ", "UÛ", "UÕ", "UÏ", "Ö", "ÖÙ", "ÖØ", "ÖÛ", "ÖÕ", "ÖÏ", "YÙ", "YØ", "YÛ", "YÕ", "Î", "Ñ") For I = 1 To 133 ' Nhan tu danh sach ConChu = MangVNI(I) ' Tu mang VNI SoThay = "|" & Format(I, "000") ChuoiGoc = Replace(ChuoiGoc, ConChu, SoThay) ' thay the tuong ung Next ' Lam viec theo ban do tung ky tu I = 1 DoDaiChuoi = Len(ChuoiGoc) Do While I <= DoDaiChuoi ' Nhan mot ky tu ConChu = Mid(ChuoiGoc, I, 1) ' Bo qua cac ky tu dac biet If (ConChu = vbCr) Then ChuoiDich = ChuoiDich & vbCr I = I + 1 ElseIf (ConChu = vbLf) Then ChuoiDich = ChuoiDich & vbLf I = I + 1 Else ' Nhan vi tri trong chuoi goc ' de lam viec ViTri = Val(Mid(ChuoiGoc, I + 1, 3)) If ViTri = 0 Then ChuoiDich = ChuoiDich & ConChu I = I + 1 Else ' Xuat ra chuoi dich voi ky tu tuong ung ChuoiDich = ChuoiDich & Mid(UNI_Co_Dau, ViTri + 1, 1) I = I + 4 End If End If Loop ' Tra ve ket qua ChuoiDich = Replace(ChuoiDich, "aù", Mid(UNI_Co_Dau, 1, 1)) Dim MangThay, MangSai MangThay = Array(ChrW(7901), ChrW(7907), ChrW(7899), ChrW(7903), ChrW(7913), ChrW(7915), ChrW(7919), ChrW(7905), ChrW(7917), ChrW(7921), ChrW(7898), ChrW(7900), ChrW(7902), ChrW(7904), ChrW(7906), ChrW(7912), ChrW(7914), ChrW(7920), ChrW(7916), ChrW(7918), ChrW(7920)) MangSai = Array(ChrW(417) & "ø", ChrW(417) & "ï", ChrW(417) & "ù", ChrW(417) & "û", ChrW(432) & "ù", ChrW(432) & "ø", ChrW(432) & "õ", ChrW(417) & "õ", ChrW(432) & "û", ChrW(432) & "ï", ChrW(416) & "Ù", ChrW(416) & "Ø", ChrW(416) & "Û", ChrW(416) & "Õ", ChrW(416) & "Ï", ChrW(431) & "Ù", ChrW(431) & "Ø", ChrW(431) & "Ø", ChrW(431) & "Û", ChrW(431) & "Õ", ChrW(431) & "Ï") For I = 0 To 20 ChuoiDich = Replace(ChuoiDich, MangSai(I), MangThay(I)) Next MulticharToUnicode = ChuoiDich End Function Sub UNI2VNI() Selection.Text = UnicodeToMultichar(Selection.Text) Selection.Font.Name = "VNI-Times" End Sub Sub VNI2UNI() Selection.Text = MulticharToUnicode(Selection.Text) Selection.Font.Name = "Courier New" End Sub Function abc22uni(Chu) abc22uni = StringToString(ABC, UNI_Co_Dau, Chu) End Function Function uni22abc(Chu) uni22abc = StringToString(UNI_Co_Dau, ABC, Chu) End Function Function KhongDau1Xau(ChuoiNguon) As String ' Chuyen 1 chuoi Unicode string thanh ky tu khong dau hoa Dim I, DoDaiChuoi, ChuoiKQua ChuoiKQua = "" ' Khoi tao chuoi ket qua DoDaiChuoi = Len(ChuoiNguon) ' Nhan do dai chuoi Unicode string If DoDaiChuoi > 0 Then ' Kiem tra va xu ly tung ky tu trong Unicode string For I = 1 To DoDaiChuoi ' Chuyen tung ky tu mot thanh hoa ChuoiKQua = ChuoiKQua & KhongDau1KyTu(Mid(ChuoiNguon, I, 1)) Next End If KhongDau1Xau = ChuoiKQua ' Tra lai chuoiABC ket qua End Function Function KhongDau1KyTu(Ch) As String Dim ChuoiKQua As String, I ' Khoi tao danh sach cac ky tu tieng Viet co dau (UNI_Co_Daus), 67 ky tu co dau la chu thuong va 67 ky tu co dau la chu hoa ' Nen nho la dung cac ham Function chrW, ky tu &HE1 Unicode duoc chua ben trong danh sach nay ' nhu &HE100 cho 1 chuoiABC ky tu ChuoiKQua = ChuoiKQua & ChrW(&HE1) & ChrW(&HE0) & ChrW(&H1EA3) & ChrW(&HE3) & ChrW(&H1EA1) & ChrW(&H103) & ChrW(&H1EAF) & ChrW(&H1EB1) & ChrW(&H1EB3) & ChrW(&H1EB5) & ChrW(&H1EB7) & ChrW(&HE2) & ChrW(&H1EA5) & ChrW(&H1EA7) & ChrW(&H1EA9) & ChrW(&H1EAB) & ChrW(&H1EAD) & ChrW(&HE9) & ChrW(&HE8) & ChrW(&H1EBB) ChuoiKQua = ChuoiKQua & ChrW(&H1EBD) & ChrW(&H1EB9) & ChrW(&HEA) & ChrW(&H1EBF) & ChrW(&H1EC1) & ChrW(&H1EC3) & ChrW(&H1EC5) & ChrW(&H1EC7) & ChrW(&HED) & ChrW(&HEC) & ChrW(&H1EC9) & ChrW(&H129) & ChrW(&H1ECB) & ChrW(&HF3) & ChrW(&HF2) & ChrW(&H1ECF) & ChrW(&HF5) & ChrW(&H1ECD) & ChrW(&HF4) & ChrW(&H1ED1) ChuoiKQua = ChuoiKQua & ChrW(&H1ED3) & ChrW(&H1ED5) & ChrW(&H1ED7) & ChrW(&H1ED9) & ChrW(&H1A1) & ChrW(&H1EDB) & ChrW(&H1EDD) & ChrW(&H1EDF) & ChrW(&H1EE1) & ChrW(&H1EE3) & ChrW(&HFA) & ChrW(&HF9) & ChrW(&H1EE7) & ChrW(&H169) & ChrW(&H1EE5) & ChrW(&H1B0) & ChrW(&H1EE9) & ChrW(&H1EEB) & ChrW(&H1EED) & ChrW(&H1EEF) ChuoiKQua = ChuoiKQua & ChrW(&H1EF1) & ChrW(&HFD) & ChrW(&H1EF3) & ChrW(&H1EF7) & ChrW(&H1EF9) & ChrW(&H1EF5) & ChrW(&H111) & ChrW(&HC1) & ChrW(&HC0) & ChrW(&H1EA2) & ChrW(&HC3) & ChrW(&H1EA0) & ChrW(&H102) & ChrW(&H1EAE) & ChrW(&H1EB0) & ChrW(&H1EB2) & ChrW(&H1EB4) & ChrW(&H1EB6) & ChrW(&HC2) & ChrW(&H1EA4) ChuoiKQua = ChuoiKQua & ChrW(&H1EA6) & ChrW(&H1EA8) & ChrW(&H1EAA) & ChrW(&H1EAC) & ChrW(&HC9) & ChrW(&HC8) & ChrW(&H1EBA) & ChrW(&H1EBC) & ChrW(&H1EB8) & ChrW(&HCA) & ChrW(&H1EBE) & ChrW(&H1EC0) & ChrW(&H1EC2) & ChrW(&H1EC4) & ChrW(&H1EC6) & ChrW(&HCD) & ChrW(&HCC) & ChrW(&H1EC8) & ChrW(&H128) & ChrW(&H1ECA) ChuoiKQua = ChuoiKQua & ChrW(&HD3) & ChrW(&HD2) & ChrW(&H1ECE) & ChrW(&HD5) & ChrW(&H1ECC) & ChrW(&HD4) & ChrW(&H1ED0) & ChrW(&H1ED2) & ChrW(&H1ED4) & ChrW(&H1ED6) & ChrW(&H1ED8) & ChrW(&H1A0) & ChrW(&H1EDA) & ChrW(&H1EDC) & ChrW(&H1EDE) & ChrW(&H1EE0) & ChrW(&H1EE2) & ChrW(&HDA) & ChrW(&HD9) & ChrW(&H1EE6) ChuoiKQua = ChuoiKQua & ChrW(&H168) & ChrW(&H1EE4) & ChrW(&H1AF) & ChrW(&H1EE8) & ChrW(&H1EEA) & ChrW(&H1EEC) & ChrW(&H1EEE) & ChrW(&H1EF0) & ChrW(&HDD) & ChrW(&H1EF2) & ChrW(&H1EF6) & ChrW(&H1EF8) & ChrW(&H1EF4) & ChrW(&H110) UNI_Co_Dau = ChuoiKQua ' Gan vao danh sach UNI_Co_Dau Dim ChuKhongDau ChuKhongDau = Array("A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "E", "E", "E", "E", "E", "E", "E", "E", "E", "E", "E", "I", "I", "I", "I", "I", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "U", "U", "U", "U", "U", "U", "U", "U", "U", "U", "U", "Y", "Y", "Y", "Y", "Y", "D", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "E", "E", "E", "E", "E", "E", "E", "E", "E", "E", "E", "I", "I", "I", "I", "I", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "U", "U", "U", "U", "U", "U", "U", "U", "U", "U", "U", "Y", "Y", "Y", "Y", "Y", "D") ' Hoa 1 ky tu co dau neu no co trong danh sach vowel hoac dd Dim ViTri ' Vi tri cua ky tu nay trong danh sach UNI_Co_Dau ' Co dinh ky tu trong danh sach UNI_Co_Daus ViTri = InStr(UNI_Co_Dau, Ch) If (ViTri > 0) Then ' Neu no la ky tu thuong, chon anh xa cua chu hoa tuong ung Uppercase vowel KhongDau1KyTu = ChuKhongDau(ViTri) Else ' Neu no chi la ky tu ANSI (Chu k0 dau) KhongDau1KyTu = UCase(Ch) End If End Function Public Sub InUnicode() Dim ChuoiKQua As String, I ' Khoi tao danh sach cac ky tu tieng Viet co dau (UNI_Co_Daus), 67 ky tu co dau la chu thuong va 67 ky tu co dau la chu hoa ' Nen nho la dung cac ham Function chrW, ky tu &HE1 Unicode duoc chua ben trong danh sach nay ' nhu &HE100 cho 1 chuoiABC ky tu ChuoiKQua = ChuoiKQua & ChrW(&HE1) & ChrW(&HE0) & ChrW(&H1EA3) & ChrW(&HE3) & ChrW(&H1EA1) & ChrW(&H103) & ChrW(&H1EAF) & ChrW(&H1EB1) & ChrW(&H1EB3) & ChrW(&H1EB5) & ChrW(&H1EB7) & ChrW(&HE2) & ChrW(&H1EA5) & ChrW(&H1EA7) & ChrW(&H1EA9) & ChrW(&H1EAB) & ChrW(&H1EAD) & ChrW(&HE9) & ChrW(&HE8) & ChrW(&H1EBB) ChuoiKQua = ChuoiKQua & ChrW(&H1EBD) & ChrW(&H1EB9) & ChrW(&HEA) & ChrW(&H1EBF) & ChrW(&H1EC1) & ChrW(&H1EC3) & ChrW(&H1EC5) & ChrW(&H1EC7) & ChrW(&HED) & ChrW(&HEC) & ChrW(&H1EC9) & ChrW(&H129) & ChrW(&H1ECB) & ChrW(&HF3) & ChrW(&HF2) & ChrW(&H1ECF) & ChrW(&HF5) & ChrW(&H1ECD) & ChrW(&HF4) & ChrW(&H1ED1) ChuoiKQua = ChuoiKQua & ChrW(&H1ED3) & ChrW(&H1ED5) & ChrW(&H1ED7) & ChrW(&H1ED9) & ChrW(&H1A1) & ChrW(&H1EDB) & ChrW(&H1EDD) & ChrW(&H1EDF) & ChrW(&H1EE1) & ChrW(&H1EE3) & ChrW(&HFA) & ChrW(&HF9) & ChrW(&H1EE7) & ChrW(&H169) & ChrW(&H1EE5) & ChrW(&H1B0) & ChrW(&H1EE9) & ChrW(&H1EEB) & ChrW(&H1EED) & ChrW(&H1EEF) ChuoiKQua = ChuoiKQua & ChrW(&H1EF1) & ChrW(&HFD) & ChrW(&H1EF3) & ChrW(&H1EF7) & ChrW(&H1EF9) & ChrW(&H1EF5) & ChrW(&H111) & ChrW(&HC1) & ChrW(&HC0) & ChrW(&H1EA2) & ChrW(&HC3) & ChrW(&H1EA0) & ChrW(&H102) & ChrW(&H1EAE) & ChrW(&H1EB0) & ChrW(&H1EB2) & ChrW(&H1EB4) & ChrW(&H1EB6) & ChrW(&HC2) & ChrW(&H1EA4) ChuoiKQua = ChuoiKQua & ChrW(&H1EA6) & ChrW(&H1EA8) & ChrW(&H1EAA) & ChrW(&H1EAC) & ChrW(&HC9) & ChrW(&HC8) & ChrW(&H1EBA) & ChrW(&H1EBC) & ChrW(&H1EB8) & ChrW(&HCA) & ChrW(&H1EBE) & ChrW(&H1EC0) & ChrW(&H1EC2) & ChrW(&H1EC4) & ChrW(&H1EC6) & ChrW(&HCD) & ChrW(&HCC) & ChrW(&H1EC8) & ChrW(&H128) & ChrW(&H1ECA) ChuoiKQua = ChuoiKQua & ChrW(&HD3) & ChrW(&HD2) & ChrW(&H1ECE) & ChrW(&HD5) & ChrW(&H1ECC) & ChrW(&HD4) & ChrW(&H1ED0) & ChrW(&H1ED2) & ChrW(&H1ED4) & ChrW(&H1ED6) & ChrW(&H1ED8) & ChrW(&H1A0) & ChrW(&H1EDA) & ChrW(&H1EDC) & ChrW(&H1EDE) & ChrW(&H1EE0) & ChrW(&H1EE2) & ChrW(&HDA) & ChrW(&HD9) & ChrW(&H1EE6) ChuoiKQua = ChuoiKQua & ChrW(&H168) & ChrW(&H1EE4) & ChrW(&H1AF) & ChrW(&H1EE8) & ChrW(&H1EEA) & ChrW(&H1EEC) & ChrW(&H1EEE) & ChrW(&H1EF0) & ChrW(&HDD) & ChrW(&H1EF2) & ChrW(&H1EF6) & ChrW(&H1EF8) & ChrW(&H1EF4) & ChrW(&H110) UNI_Co_Dau = ChuoiKQua ' Gan vao danh sach UNI_Co_Dau Dim ChuKhongDau ChuKhongDau = Array("A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "E", "E", "E", "E", "E", "E", "E", "E", "E", "E", "E", "I", "I", "I", "I", "I", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "U", "U", "U", "U", "U", "U", "U", "U", "U", "U", "U", "Y", "Y", "Y", "Y", "Y", "D", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "E", "E", "E", "E", "E", "E", "E", "E", "E", "E", "E", "I", "I", "I", "I", "I", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "U", "U", "U", "U", "U", "U", "U", "U", "U", "U", "U", "Y", "Y", "Y", "Y", "Y", "D") End Sub Sub BoDau() Selection.Text = KhongDau1Xau(Selection.Text) End Sub Sub HoaThuong() Dim x As Integer x = Windows.Count If x = 0 Then Exit Sub End If With Selection.Font If Left(.Name, 1) = "." Then If Right(.Name, 1) = "H" Then .Name = Left(.Name, Len(.Name) - 1) StatusBar = "Thôi không dùng Font hoa." Else .Name = .Name + "H" StatusBar = "Sang Font hoa." End If Else Call HoaUNI End If End With End Sub
-
Thành viên Like bài viết này:
-
28-11-2007 14:48 #9
bạn có thể dùng tiện ích \Vkeyoffice có tính năng chuyển chữ hoa chữ thường đó
Bookmarks

markdown:
Hiển thị kết quả từ 1 đến 9 / 9
-
07-06-2007 17:40
[#1](showthread.php/123887-Đổi-chữ-hoa-sang-chữ-thường-trong-word?s=104156617523417bd6b531281fc39c2b&p=755186#post755186)
Registered User
- Tham gia
- 16-05-2007
- Bài viết
- 16
- Like
- 0
- Thanked 0 Times in 0 Posts
## Đổi chữ hoa sang chữ thường trong word.
Tôi có 02 câu hỏi trong word nhờ các bạn giúp:
1- Chuyển chữ in hoa sang chữ thường bằng cách nào?
2- Thường chữ cuối cùng của một dòng sẽ tự xuống dòng nếu không đủ chỗ, nhưng máy của tôi lại không xuống dòng cả chữ mà lại tách chữ đó thành hai phần và nửa ở dòng trên nối với nửa chữ ở dòng dưới bằng gạch ngang.
Xin chân thành cám ơn
-
07-06-2007 17:50
[#2](showthread.php/123887-Đổi-chữ-hoa-sang-chữ-thường-trong-word?s=104156617523417bd6b531281fc39c2b&p=755194#post755194)
1- Còn tùy bạn dùng bộ gõ và bộ font nào, nếu dùng font VNI thì bôi đen vùng cần chuyển và nhấn Shift + F3. Còn nếu dùng font Unicode thì dùng bộ Toolkit, sau khi Unikey đã ở dưới khay hệ thống thì click chuột phải vào, chọn "Công cụ..." và theo các lựa chọn trong đó.
Còn câu 2 thì ko nhớ nữa, lâu quá rồi nên quên mất.
-
07-06-2007 21:27
[#3](showthread.php/123887-Đổi-chữ-hoa-sang-chữ-thường-trong-word?s=104156617523417bd6b531281fc39c2b&p=755342#post755342)
bạn mới cài lại office hả? vào tools-->AutoCorrect option
tai thẻ Autocorrect bạn tắt hết đi ( để lại "SHow AUtoCorrect.. và "Correct accienden...)
thẻ AutoFormat AS You Type : chỉ để lại hai dòng gần cuối.
AUtoFormat : để lại 2 dòng cuối
chắc là xong hết roài đó. không đcj thì mình cũng bó tay
-
07-06-2007 23:11
[#4](showthread.php/123887-Đổi-chữ-hoa-sang-chữ-thường-trong-word?s=104156617523417bd6b531281fc39c2b&p=755457#post755457)
Registered User
- Tham gia
- 03-06-2007
- Bài viết
- 6
- Like
- 0
- Thanked 0 Times in 0 Posts
Cách chuyển đổi chuyển đổi từ font VNI sang font unicode?
-
08-06-2007 10:42
[#5](showthread.php/123887-Đổi-chữ-hoa-sang-chữ-thường-trong-word?s=104156617523417bd6b531281fc39c2b&p=755688#post755688)1- Chuyển chữ in hoa sang chữ thường bằng cách nào?
- Có thể chuyển dễ dàng với các bảng mã sử dụng font 2-byte (vd VNI, VietwareX).
- Còn với các bảng mã sử dụng font 1-byte (vd TCVN3) thì tất nhiên là không thể chuyển thành công (tại sao?
), giải pháp là đổi font sang dạng hoa (vd đổi .VNArial thành .VNArialH).
- Với bảng mã Unicode, do định nghĩa ký cặp ký tự hoa-thường chưa chuẩn, nên việc chuyển đổi này cũng không hoàn chỉnh. Giải pháp: cứ chuyển như thường, các ký tự không chuyển được dùng chức năng Add and Replace để thay thế (có thể viết Macro cho chuyên nghiệp).
2- Thường chữ cuối cùng của một dòng sẽ tự xuống dòng nếu không đủ chỗ, nhưng máy của tôi lại không xuống dòng cả chữ mà lại tách chữ đó thành hai phần và nửa ở dòng trên nối với nửa chữ ở dòng dưới bằng gạch ngang.
**Dudu9**đi. Tôi cũng không nhớ chính xác, nhưng bạn thử mày mò đi, chắc chắn là được!
-
19-07-2007 09:26
[#6](showthread.php/123887-Đổi-chữ-hoa-sang-chữ-thường-trong-word?s=104156617523417bd6b531281fc39c2b&p=792683#post792683)
Registered User
- Tham gia
- 16-01-2007
- Bài viết
- 1
- Like
- 0
- Thanked 0 Times in 0 Posts
Câu 1 dễ lắm, bạn theo cách này:
1. Bôi đen chữ hoặc đoạn văn bản cần chuyển, sau đó trên giao diện của word vào format-change case- lowercase (hoặc sentence case) là OK
2. Câu hỏi là do bạn để chế độ ghi tiếng Anh: bạn vào Vietkey đánh dấu vào ô tiếng Việt là được.
-
21-11-2007 17:15
[#7](showthread.php/123887-Đổi-chữ-hoa-sang-chữ-thường-trong-word?s=104156617523417bd6b531281fc39c2b&p=928459#post928459)
Registered User
- Tham gia
- 24-01-2006
- Bài viết
- 1
- Like
- 0
- Thanked 0 Times in 0 Posts
Bài này hôm nay em mới dùng đến. Cám ơn các anh nha.
-
27-11-2007 00:03
[#8](showthread.php/123887-Đổi-chữ-hoa-sang-chữ-thường-trong-word?s=104156617523417bd6b531281fc39c2b&p=935410#post935410)
Để chuyển chữ hoa sang chữ thường trong Word, bạn có thể viết Macro. Bạn gõ Alt + F11, copy đoạn lập trình Macro vào. Sau đó vào Customize để đặt vào phím tắt, ví dụ phím F11. Khi nào cần thì bôi đen, nhấn F11 sẽ chuyển phần bôi đen thành hoa, hay thường.
Code module đây:
Code:
'Xu ly tieng Viet UNICODE 'Nguoi lap trinh: Nguyen Anh Cuong 'Website: http://khkt.net 'Email: trungtamtinhocabc@yahoo.com 'Mobile: 0988.529 310 'Ngay viet 8/5/2001 'Co tham khao cach giai quyet van de cua thay giao Le Duc Hong tren http://vivosoft.com 'Ngay sua chua gan nhat 6/10/06 Option Explicit Public ABC As String Public UNI_Co_Dau As String ' API de truy nhap VB6 String thong qua vi tri va thu tu cua no trong bo nho Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long) Enum coEncoding coANSI = 0 coUnicode = 1 coUTF8 = 2 End Enum Public Sub InitUnicode() Dim ChuoiKQua As String ' Khoi tao danh sach cac ky tu tieng Viet co dau (UNI_Co_Daus), 67 ky tu co dau la chu thuong va 67 ky tu co dau la chu hoa ' Nen nho la dung cac ham Function chrW, ky tu &HE1 Unicode duoc chua ben trong danh sach nay ' nhu &HE100 cho 1 chuoiABC ky tu ChuoiKQua = ChuoiKQua & ChrW(&HE1) & ChrW(&HE0) & ChrW(&H1EA3) & ChrW(&HE3) & ChrW(&H1EA1) & ChrW(&H103) & ChrW(&H1EAF) & ChrW(&H1EB1) & ChrW(&H1EB3) & ChrW(&H1EB5) & ChrW(&H1EB7) & ChrW(&HE2) & ChrW(&H1EA5) & ChrW(&H1EA7) & ChrW(&H1EA9) & ChrW(&H1EAB) & ChrW(&H1EAD) & ChrW(&HE9) & ChrW(&HE8) & ChrW(&H1EBB) ChuoiKQua = ChuoiKQua & ChrW(&H1EBD) & ChrW(&H1EB9) & ChrW(&HEA) & ChrW(&H1EBF) & ChrW(&H1EC1) & ChrW(&H1EC3) & ChrW(&H1EC5) & ChrW(&H1EC7) & ChrW(&HED) & ChrW(&HEC) & ChrW(&H1EC9) & ChrW(&H129) & ChrW(&H1ECB) & ChrW(&HF3) & ChrW(&HF2) & ChrW(&H1ECF) & ChrW(&HF5) & ChrW(&H1ECD) & ChrW(&HF4) & ChrW(&H1ED1) ChuoiKQua = ChuoiKQua & ChrW(&H1ED3) & ChrW(&H1ED5) & ChrW(&H1ED7) & ChrW(&H1ED9) & ChrW(&H1A1) & ChrW(&H1EDB) & ChrW(&H1EDD) & ChrW(&H1EDF) & ChrW(&H1EE1) & ChrW(&H1EE3) & ChrW(&HFA) & ChrW(&HF9) & ChrW(&H1EE7) & ChrW(&H169) & ChrW(&H1EE5) & ChrW(&H1B0) & ChrW(&H1EE9) & ChrW(&H1EEB) & ChrW(&H1EED) & ChrW(&H1EEF) ChuoiKQua = ChuoiKQua & ChrW(&H1EF1) & ChrW(&HFD) & ChrW(&H1EF3) & ChrW(&H1EF7) & ChrW(&H1EF9) & ChrW(&H1EF5) & ChrW(&H111) & ChrW(&HC1) & ChrW(&HC0) & ChrW(&H1EA2) & ChrW(&HC3) & ChrW(&H1EA0) & ChrW(&H102) & ChrW(&H1EAE) & ChrW(&H1EB0) & ChrW(&H1EB2) & ChrW(&H1EB4) & ChrW(&H1EB6) & ChrW(&HC2) & ChrW(&H1EA4) ChuoiKQua = ChuoiKQua & ChrW(&H1EA6) & ChrW(&H1EA8) & ChrW(&H1EAA) & ChrW(&H1EAC) & ChrW(&HC9) & ChrW(&HC8) & ChrW(&H1EBA) & ChrW(&H1EBC) & ChrW(&H1EB8) & ChrW(&HCA) & ChrW(&H1EBE) & ChrW(&H1EC0) & ChrW(&H1EC2) & ChrW(&H1EC4) & ChrW(&H1EC6) & ChrW(&HCD) & ChrW(&HCC) & ChrW(&H1EC8) & ChrW(&H128) & ChrW(&H1ECA) ChuoiKQua = ChuoiKQua & ChrW(&HD3) & ChrW(&HD2) & ChrW(&H1ECE) & ChrW(&HD5) & ChrW(&H1ECC) & ChrW(&HD4) & ChrW(&H1ED0) & ChrW(&H1ED2) & ChrW(&H1ED4) & ChrW(&H1ED6) & ChrW(&H1ED8) & ChrW(&H1A0) & ChrW(&H1EDA) & ChrW(&H1EDC) & ChrW(&H1EDE) & ChrW(&H1EE0) & ChrW(&H1EE2) & ChrW(&HDA) & ChrW(&HD9) & ChrW(&H1EE6) ChuoiKQua = ChuoiKQua & ChrW(&H168) & ChrW(&H1EE4) & ChrW(&H1AF) & ChrW(&H1EE8) & ChrW(&H1EEA) & ChrW(&H1EEC) & ChrW(&H1EEE) & ChrW(&H1EF0) & ChrW(&HDD) & ChrW(&H1EF2) & ChrW(&H1EF6) & ChrW(&H1EF8) & ChrW(&H1EF4) & ChrW(&H110) UNI_Co_Dau = ChuoiKQua ' Gan vao danh sach UNI_Co_Dau Dim ChuoiABC ChuoiABC = ChuoiABC & ChrW(184) & ChrW(181) & ChrW(182) & ChrW(183) & ChrW(185) & ChrW(168) & ChrW(190) & ChrW(187) & ChrW(188) & ChrW(189) & ChrW(198) & ChrW(169) & ChrW(202) & ChrW(199) & ChrW(200) & ChrW(201) & ChrW(203) & ChrW(208) & ChrW(204) & ChrW(206) & ChrW(207) & ChrW(209) & ChrW(170) & ChrW(213) & ChrW(210) & ChrW(211) & ChrW(212) & ChrW(214) & ChrW(221) & ChrW(215) ChuoiABC = ChuoiABC & ChrW(216) & ChrW(220) & ChrW(222) & ChrW(227) & ChrW(223) & ChrW(225) & ChrW(226) & ChrW(228) & ChrW(171) & ChrW(232) & ChrW(229) & ChrW(230) & ChrW(231) & ChrW(233) & ChrW(172) & ChrW(237) & ChrW(234) & ChrW(235) & ChrW(236) & ChrW(238) & ChrW(243) & ChrW(239) & ChrW(241) & ChrW(242) & ChrW(244) & ChrW(173) & ChrW(248) & ChrW(245) & ChrW(246) & ChrW(247) & ChrW(249) & ChrW(253) & ChrW(250) & ChrW(251) & ChrW(252) & ChrW(254) & ChrW(174) & ChrW(184) ChuoiABC = ChuoiABC & ChrW(181) & ChrW(182) & ChrW(183) & ChrW(185) & ChrW(161) & ChrW(190) & ChrW(187) & ChrW(188) & ChrW(189) & ChrW(198) & ChrW(162) & ChrW(202) & ChrW(199) & ChrW(200) & ChrW(201) & ChrW(203) & ChrW(208) & ChrW(204) & ChrW(206) & ChrW(207) & ChrW(209) & ChrW(163) & ChrW(213) & ChrW(210) & ChrW(211) & ChrW(212) & ChrW(214) & ChrW(221) & ChrW(215) & ChrW(216) ChuoiABC = ChuoiABC & ChrW(220) & ChrW(222) & ChrW(227) & ChrW(223) & ChrW(225) & ChrW(226) & ChrW(228) & ChrW(164) & ChrW(232) & ChrW(229) & ChrW(230) & ChrW(231) & ChrW(233) & ChrW(165) & ChrW(237) & ChrW(234) & ChrW(235) & ChrW(236) & ChrW(238) & ChrW(243) & ChrW(239) & ChrW(241) & ChrW(242) & ChrW(244) & ChrW(166) & ChrW(248) & ChrW(245) & ChrW(246) & ChrW(247) & ChrW(249) ChuoiABC = ChuoiABC & ChrW(253) & ChrW(250) & ChrW(251) & ChrW(252) & ChrW(254) & ChrW(167) ABC = ChuoiABC End Sub Function LaChuThuongCoDau(Ch) As Boolean ' Tra ve True neu Ch thuoc UNI_Co_Dau hoac dd, DD LaChuThuongCoDau = (InStr(UNI_Co_Dau, Ch) > 0) End Function Function LaChuHoaCoDau(Ch) As Boolean ' Tra ve True neu Ch thuoc chua hoa cua Uppercase UNI_Co_Dau hoac DD LaChuHoaCoDau = (InStr(UNI_Co_Dau, Ch) > 67) End Function Function Hoa1KyTu(Ch) As String ' Hoa 1 ky tu co dau neu no co trong danh sach vowel hoac dd Dim ViTri ' Vi tri cua ky tu nay trong danh sach UNI_Co_Dau ' Co dinh ky tu trong danh sach UNI_Co_Daus ViTri = InStr(UNI_Co_Dau, Ch) If (ViTri > 67) Then Hoa1KyTu = Ch ' No la ky tu hoa rui, thi giu nguyen no ElseIf (ViTri > 0) Then ' Neu no la ky tu thuong, chon anh xa cua chu hoa tuong ung Uppercase vowel Hoa1KyTu = Mid(UNI_Co_Dau, ViTri + 67, 1) Else ' Neu no chi la ky tu ANSI (Chu k0 dau) Hoa1KyTu = UCase(Ch) End If End Function Function Thuong1KyTu(Ch) As String ' Tra ve chu thuong ky tu thuoc danh sach vowel hoac DD Dim ViTri ' Vi tri cua ky tu nay trong danh sach UNI_Co_Dau ' Co dinh ky tu trong danh sach UNI_Co_Daus ViTri = InStr(UNI_Co_Dau, Ch) If ViTri > 67 Then ' Neu no la ky tu hoa, chon anh xa cua chu thuong tuong ung trong danh sach vowel Thuong1KyTu = Mid(UNI_Co_Dau, ViTri - 67, 1) ElseIf ViTri > 0 Then Thuong1KyTu = Ch ' No la chu thuong, giu nguyen no Else ' Neu no chi la ky tu ANSI (Chu k0 dau) Thuong1KyTu = LCase(Ch) End If End Function Function Hoa1Xau(ChuoiNguon) As String ' Chuyen 1 chuoi Unicode string thanh hoa Dim I, DoDaiChuoi, ChuoiKQua ChuoiKQua = "" ' Khoi tao chuoi ket qua DoDaiChuoi = Len(ChuoiNguon) ' Nhan do dai chuoi Unicode string If DoDaiChuoi > 0 Then ' Kiem tra va xu ly tung ky tu trong Unicode string For I = 1 To DoDaiChuoi ' Chuyen tung ky tu mot thanh hoa ChuoiKQua = ChuoiKQua & Hoa1KyTu(Mid(ChuoiNguon, I, 1)) Next End If Hoa1Xau = ChuoiKQua ' Tra lai chuoiABC ket qua End Function Function Thuong1Xau(ChuoiNguon) As String ' Chuyen 1 chuoi Unicode string thanh chu thuong Dim I, DoDaiChuoi, ChuoiKQua ChuoiKQua = "" ' Khoi tao chuoi ket qua DoDaiChuoi = Len(ChuoiNguon) ' Nhan do dai chuoi Unicode string If DoDaiChuoi > 0 Then ' Kiem tra va xu ly tung ky tu trong Unicode string For I = 1 To DoDaiChuoi ' Chuyen tung ky tu mot thanh hoa ChuoiKQua = ChuoiKQua & Thuong1KyTu(Mid(ChuoiNguon, I, 1)) Next End If Thuong1Xau = ChuoiKQua 'Tra lai chuoiABC ket qua End Function Sub HoaUNI() Static DaHoa As Boolean If Left(Selection.Font.Name, 1) <> "." Then With Selection Dim DongViet As String DongViet = .Text If DaHoa = True Then DongViet = Hoa1Xau(DongViet) Else DongViet = Thuong1Xau(DongViet) End If DaHoa = Not DaHoa Selection.Text = DongViet End With Else Call HoaThuong End If End Sub Sub HoaDaucauUNI() Dim DongViet As String Dim ChuanBiHoa As Boolean Dim KyTu, DoDaiChuoi, I, kq As String DongViet = Selection.Text DoDaiChuoi = Len(DongViet) If DoDaiChuoi > 0 Then For I = 1 To DoDaiChuoi KyTu = Mid(DongViet, I, 1) If ChuanBiHoa = False Then ChuanBiHoa = (KyTu = ".") Or (KyTu = ChrW(13)) Or (KyTu = "!") Or (KyTu = ":") Or (KyTu = "?") Or (KyTu = ";") Or (KyTu = "!") ChuanBiHoa = ChuanBiHoa Or (KyTu = "(") Or (KyTu = "+") ElseIf ChuanBiHoa And (KyTu <> " ") And (KyTu <> "-") And (KyTu <> "*") And (KyTu <> "+") And (KyTu <> ChrW(13)) And (KyTu <> ".") Then KyTu = Hoa1KyTu(KyTu) ChuanBiHoa = False End If kq = kq + KyTu Next End If Selection.Text = kq End Sub Sub HoaDauTu() Dim DongViet As String Dim ChuanBiHoa As Boolean Dim KyTu, DoDaiChuoi, I, kq As String DongViet = Selection.Text DoDaiChuoi = Len(DongViet) If DoDaiChuoi > 0 Then kq = Hoa1KyTu(Left(DongViet, 1)) For I = 2 To DoDaiChuoi KyTu = Mid(DongViet, I, 1) If ChuanBiHoa = False Then ChuanBiHoa = (KyTu = ".") Or (KyTu = ChrW(13)) Or (KyTu = "!") Or (KyTu = ":") Or (KyTu = "?") Or (KyTu = ";") Or (KyTu = "!") ChuanBiHoa = ChuanBiHoa Or (KyTu = "(") Or (KyTu = "+") Or (KyTu = " ") ElseIf ChuanBiHoa And (KyTu <> " ") And (KyTu <> "-") And (KyTu <> "*") And (KyTu <> "+") And (KyTu <> ChrW(13)) And (KyTu <> ".") And (KyTu <> " ") Then KyTu = Hoa1KyTu(KyTu) ChuanBiHoa = False End If kq = kq + KyTu Next End If Selection.Text = kq End Sub Function StringToString(Vowel1, Vowel2, Optional Chu) As String Call InitUnicode ' Dich tung ky tu tu theo 2 ban do ky tu Dim ConChu As String Dim ChuoiGoc As String Dim ChuoiDich As String Dim I, ViTri ' Nap phan can dich If IsMissing(Chu) Then ChuoiGoc = Selection.Text Else ChuoiGoc = Chu End If ' Kiem tra tung ky tu mot For I = 1 To Len(ChuoiGoc) ConChu = Mid(ChuoiGoc, I, 1) ' Bo qua Carriage Return va Line Feed neu co If (ConChu = vbCr) Then ChuoiDich = ChuoiDich & vbCr ElseIf (ConChu = vbLf) Then ChuoiDich = ChuoiDich & vbLf Else ' Tim ky tu co dau trong danh sach ViTri = InStr(Vowel1, ConChu) If ViTri <= 0 Then ' Neu khong thay khong dung ban do ChuoiDich = ChuoiDich & ConChu Else ' Tim thay thi thay anh xa cua ky tu tuong ung ChuoiDich = ChuoiDich & Mid(Vowel2, ViTri, 1) End If End If Next StringToString = ChuoiDich End Function Sub ABC2UNI() Dim PhanChon As String Application.ScreenUpdating = False PhanChon = Selection.Text Selection.Text = StringToString(ABC, UNI_Co_Dau) Selection.Font.Name = "Arial" Application.ScreenUpdating = True End Sub Sub UNI2ABC() Dim PhanChon As String Application.ScreenUpdating = False PhanChon = Selection.Text Selection.Text = StringToString(UNI_Co_Dau, ABC) Selection.Font.Name = ".VnArial" Application.ScreenUpdating = True End Sub '==== VNI Function Function UnicodeToMultichar(XauUNI) As String Call InitUnicode Dim ConChu As String Dim ChuoiGoc As String Dim ChuoiDich As String Dim I, ViTri, MangVNI MangVNI = Array("aù", "aø", "aû", "aõ", "aï", "aê", "aé", "aè", "aú", "aü", "aë", "aâ", "aá", "aà", "aå", "aã", "aä", "eù", "eø", "eû", "eõ", "eï", "eâ", "eá", "eà", "eå", "eã", "eä", "í", "ì", "æ", "ó", "ò", "où", "oø", "oû", "oõ", "oï", "oâ", "oá", "oà", "oå", "oã", "oä", "ô", "ôù", "ôø", "ôû", "ôõ", "ôï", "uù", "uø", "uû", "uõ", "uï", "ö", "öù", "öø", "öû", "öõ", "öï", "yù", "yø", "yû", "yõ", "î", "ñ", "AÙ", "AØ", "AÛ", "AÕ", "AÏ", "AÊ", "AÉ", "AÈ", "AÚ", "AÜ", "AË", "AÂ", "AÁ", "AÀ", "AÅ", "AÃ", "AÄ", "EÙ", "EØ", "EÛ", "EÕ", "EÏ", "EÂ", "EÁ", "EÀ", "EÅ", "EÃ", "EÄ", "Í", "Ì", "Æ", "Ó", "Ò", "OÙ", "OØ", "OÛ", "OÕ", "OÏ", "OÂ", "OÁ", "OÀ", "OÅ", "OÃ", "OÄ", "Ô", "ÔÙ", "ÔØ", "ÔÛ", "ÔÕ", "ÔÏ", "UÙ", "UØ", "UÛ", "UÕ", "UÏ", "Ö", "ÖÙ", "ÖØ", "ÖÛ", "ÖÕ", "ÖÏ", "YÙ", "YØ", "YÛ", "YÕ", "Î", "Ñ") 'Gan noi dung can chuyen vao ChuoiGoc ChuoiGoc = XauUNI 'Kiem tra lan luot tung ky tu trong xau For I = 1 To Len(ChuoiGoc) ' Nhan mot ky tu Unicode ConChu = Mid(ChuoiGoc, I, 1) 'Carriage return hoac LineFeedthi copy nguyen If (ConChu = vbCr) Then ChuoiDich = ChuoiDich & vbCr ElseIf (ConChu = vbLf) Then ChuoiDich = ChuoiDich & vbLf Else ' Kiem tra vi tri cua ky tu trong mang danh sach UNI co dau? ViTri = InStr(UNI_Co_Dau, ConChu) If ViTri <= 0 Then ' neu khong phai chu co dau, giu nguyen ChuoiDich = ChuoiDich & ConChu Else ' Neu phai thi chon ky tu thay the tuong ung ChuoiDich = ChuoiDich & MangVNI(ViTri - 1) End If End If Next 'Tra ve ket qua UnicodeToMultichar = ChuoiDich End Function Function MulticharToUnicode(XauUNI) As String ' Convert VNI sang UNICODE Call InitUnicode Dim ConChu As String Dim ChuoiGoc As String Dim ChuoiDich As String Dim I, ViTri, SoThay, DoDaiChuoi ' Gan noi dung truyen vao ChuoiGoc ChuoiGoc = XauUNI ' Thay the ky tu co dau trong ChuoiGoc voi mot xau dang 067 de xu ly ' thu tu 67th chu co dau ' Kiem tra tung ky tu co dau Dim MangVNI, MangSo MangVNI = Array("aù", "aø", "aû", "aõ", "aï", "aê", "aé", "aè", "aú", "aü", "aë", "aâ", "aá", "aà", "aå", "aã", "aä", "eù", "eø", "eû", "eõ", "eï", "eâ", "eá", "eà", "eå", "eã", "eä", "í", "ì", "æ", "ó", "ò", "où", "oø", "oû", "oõ", "oï", "oâ", "oá", "oà", "oå", "oã", "oä", "ô", "ôù", "ôø", "ôû", "ôõ", "ôï", "uù", "uø", "uû", "uõ", "uï", "ö", "öù", "öø", "öû", "öõ", "öï", "yù", "yø", "yû", "yõ", "î", "ñ", "AÙ", "AØ", "AÛ", "AÕ", "AÏ", "AÊ", "AÉ", "AÈ", "AÚ", "AÜ", "AË", "AÂ", "AÁ", "AÀ", "AÅ", "AÃ", "AÄ", "EÙ", "EØ", "EÛ", "EÕ", "EÏ", "EÂ", "EÁ", "EÀ", "EÅ", "EÃ", "EÄ", "Í", "Ì", "Æ", "Ó", "Ò", "OÙ", "OØ", "OÛ", "OÕ", "OÏ", "OÂ", "OÁ", "OÀ", "OÅ", "OÃ", "OÄ", "Ô", "ÔÙ", "ÔØ", "ÔÛ", "ÔÕ", "ÔÏ", "UÙ", "UØ", "UÛ", "UÕ", "UÏ", "Ö", "ÖÙ", "ÖØ", "ÖÛ", "ÖÕ", "ÖÏ", "YÙ", "YØ", "YÛ", "YÕ", "Î", "Ñ") For I = 1 To 133 ' Nhan tu danh sach ConChu = MangVNI(I) ' Tu mang VNI SoThay = "|" & Format(I, "000") ChuoiGoc = Replace(ChuoiGoc, ConChu, SoThay) ' thay the tuong ung Next ' Lam viec theo ban do tung ky tu I = 1 DoDaiChuoi = Len(ChuoiGoc) Do While I <= DoDaiChuoi ' Nhan mot ky tu ConChu = Mid(ChuoiGoc, I, 1) ' Bo qua cac ky tu dac biet If (ConChu = vbCr) Then ChuoiDich = ChuoiDich & vbCr I = I + 1 ElseIf (ConChu = vbLf) Then ChuoiDich = ChuoiDich & vbLf I = I + 1 Else ' Nhan vi tri trong chuoi goc ' de lam viec ViTri = Val(Mid(ChuoiGoc, I + 1, 3)) If ViTri = 0 Then ChuoiDich = ChuoiDich & ConChu I = I + 1 Else ' Xuat ra chuoi dich voi ky tu tuong ung ChuoiDich = ChuoiDich & Mid(UNI_Co_Dau, ViTri + 1, 1) I = I + 4 End If End If Loop ' Tra ve ket qua ChuoiDich = Replace(ChuoiDich, "aù", Mid(UNI_Co_Dau, 1, 1)) Dim MangThay, MangSai MangThay = Array(ChrW(7901), ChrW(7907), ChrW(7899), ChrW(7903), ChrW(7913), ChrW(7915), ChrW(7919), ChrW(7905), ChrW(7917), ChrW(7921), ChrW(7898), ChrW(7900), ChrW(7902), ChrW(7904), ChrW(7906), ChrW(7912), ChrW(7914), ChrW(7920), ChrW(7916), ChrW(7918), ChrW(7920)) MangSai = Array(ChrW(417) & "ø", ChrW(417) & "ï", ChrW(417) & "ù", ChrW(417) & "û", ChrW(432) & "ù", ChrW(432) & "ø", ChrW(432) & "õ", ChrW(417) & "õ", ChrW(432) & "û", ChrW(432) & "ï", ChrW(416) & "Ù", ChrW(416) & "Ø", ChrW(416) & "Û", ChrW(416) & "Õ", ChrW(416) & "Ï", ChrW(431) & "Ù", ChrW(431) & "Ø", ChrW(431) & "Ø", ChrW(431) & "Û", ChrW(431) & "Õ", ChrW(431) & "Ï") For I = 0 To 20 ChuoiDich = Replace(ChuoiDich, MangSai(I), MangThay(I)) Next MulticharToUnicode = ChuoiDich End Function Sub UNI2VNI() Selection.Text = UnicodeToMultichar(Selection.Text) Selection.Font.Name = "VNI-Times" End Sub Sub VNI2UNI() Selection.Text = MulticharToUnicode(Selection.Text) Selection.Font.Name = "Courier New" End Sub Function abc22uni(Chu) abc22uni = StringToString(ABC, UNI_Co_Dau, Chu) End Function Function uni22abc(Chu) uni22abc = StringToString(UNI_Co_Dau, ABC, Chu) End Function Function KhongDau1Xau(ChuoiNguon) As String ' Chuyen 1 chuoi Unicode string thanh ky tu khong dau hoa Dim I, DoDaiChuoi, ChuoiKQua ChuoiKQua = "" ' Khoi tao chuoi ket qua DoDaiChuoi = Len(ChuoiNguon) ' Nhan do dai chuoi Unicode string If DoDaiChuoi > 0 Then ' Kiem tra va xu ly tung ky tu trong Unicode string For I = 1 To DoDaiChuoi ' Chuyen tung ky tu mot thanh hoa ChuoiKQua = ChuoiKQua & KhongDau1KyTu(Mid(ChuoiNguon, I, 1)) Next End If KhongDau1Xau = ChuoiKQua ' Tra lai chuoiABC ket qua End Function Function KhongDau1KyTu(Ch) As String Dim ChuoiKQua As String, I ' Khoi tao danh sach cac ky tu tieng Viet co dau (UNI_Co_Daus), 67 ky tu co dau la chu thuong va 67 ky tu co dau la chu hoa ' Nen nho la dung cac ham Function chrW, ky tu &HE1 Unicode duoc chua ben trong danh sach nay ' nhu &HE100 cho 1 chuoiABC ky tu ChuoiKQua = ChuoiKQua & ChrW(&HE1) & ChrW(&HE0) & ChrW(&H1EA3) & ChrW(&HE3) & ChrW(&H1EA1) & ChrW(&H103) & ChrW(&H1EAF) & ChrW(&H1EB1) & ChrW(&H1EB3) & ChrW(&H1EB5) & ChrW(&H1EB7) & ChrW(&HE2) & ChrW(&H1EA5) & ChrW(&H1EA7) & ChrW(&H1EA9) & ChrW(&H1EAB) & ChrW(&H1EAD) & ChrW(&HE9) & ChrW(&HE8) & ChrW(&H1EBB) ChuoiKQua = ChuoiKQua & ChrW(&H1EBD) & ChrW(&H1EB9) & ChrW(&HEA) & ChrW(&H1EBF) & ChrW(&H1EC1) & ChrW(&H1EC3) & ChrW(&H1EC5) & ChrW(&H1EC7) & ChrW(&HED) & ChrW(&HEC) & ChrW(&H1EC9) & ChrW(&H129) & ChrW(&H1ECB) & ChrW(&HF3) & ChrW(&HF2) & ChrW(&H1ECF) & ChrW(&HF5) & ChrW(&H1ECD) & ChrW(&HF4) & ChrW(&H1ED1) ChuoiKQua = ChuoiKQua & ChrW(&H1ED3) & ChrW(&H1ED5) & ChrW(&H1ED7) & ChrW(&H1ED9) & ChrW(&H1A1) & ChrW(&H1EDB) & ChrW(&H1EDD) & ChrW(&H1EDF) & ChrW(&H1EE1) & ChrW(&H1EE3) & ChrW(&HFA) & ChrW(&HF9) & ChrW(&H1EE7) & ChrW(&H169) & ChrW(&H1EE5) & ChrW(&H1B0) & ChrW(&H1EE9) & ChrW(&H1EEB) & ChrW(&H1EED) & ChrW(&H1EEF) ChuoiKQua = ChuoiKQua & ChrW(&H1EF1) & ChrW(&HFD) & ChrW(&H1EF3) & ChrW(&H1EF7) & ChrW(&H1EF9) & ChrW(&H1EF5) & ChrW(&H111) & ChrW(&HC1) & ChrW(&HC0) & ChrW(&H1EA2) & ChrW(&HC3) & ChrW(&H1EA0) & ChrW(&H102) & ChrW(&H1EAE) & ChrW(&H1EB0) & ChrW(&H1EB2) & ChrW(&H1EB4) & ChrW(&H1EB6) & ChrW(&HC2) & ChrW(&H1EA4) ChuoiKQua = ChuoiKQua & ChrW(&H1EA6) & ChrW(&H1EA8) & ChrW(&H1EAA) & ChrW(&H1EAC) & ChrW(&HC9) & ChrW(&HC8) & ChrW(&H1EBA) & ChrW(&H1EBC) & ChrW(&H1EB8) & ChrW(&HCA) & ChrW(&H1EBE) & ChrW(&H1EC0) & ChrW(&H1EC2) & ChrW(&H1EC4) & ChrW(&H1EC6) & ChrW(&HCD) & ChrW(&HCC) & ChrW(&H1EC8) & ChrW(&H128) & ChrW(&H1ECA) ChuoiKQua = ChuoiKQua & ChrW(&HD3) & ChrW(&HD2) & ChrW(&H1ECE) & ChrW(&HD5) & ChrW(&H1ECC) & ChrW(&HD4) & ChrW(&H1ED0) & ChrW(&H1ED2) & ChrW(&H1ED4) & ChrW(&H1ED6) & ChrW(&H1ED8) & ChrW(&H1A0) & ChrW(&H1EDA) & ChrW(&H1EDC) & ChrW(&H1EDE) & ChrW(&H1EE0) & ChrW(&H1EE2) & ChrW(&HDA) & ChrW(&HD9) & ChrW(&H1EE6) ChuoiKQua = ChuoiKQua & ChrW(&H168) & ChrW(&H1EE4) & ChrW(&H1AF) & ChrW(&H1EE8) & ChrW(&H1EEA) & ChrW(&H1EEC) & ChrW(&H1EEE) & ChrW(&H1EF0) & ChrW(&HDD) & ChrW(&H1EF2) & ChrW(&H1EF6) & ChrW(&H1EF8) & ChrW(&H1EF4) & ChrW(&H110) UNI_Co_Dau = ChuoiKQua ' Gan vao danh sach UNI_Co_Dau Dim ChuKhongDau ChuKhongDau = Array("A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "E", "E", "E", "E", "E", "E", "E", "E", "E", "E", "E", "I", "I", "I", "I", "I", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "U", "U", "U", "U", "U", "U", "U", "U", "U", "U", "U", "Y", "Y", "Y", "Y", "Y", "D", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "E", "E", "E", "E", "E", "E", "E", "E", "E", "E", "E", "I", "I", "I", "I", "I", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "U", "U", "U", "U", "U", "U", "U", "U", "U", "U", "U", "Y", "Y", "Y", "Y", "Y", "D") ' Hoa 1 ky tu co dau neu no co trong danh sach vowel hoac dd Dim ViTri ' Vi tri cua ky tu nay trong danh sach UNI_Co_Dau ' Co dinh ky tu trong danh sach UNI_Co_Daus ViTri = InStr(UNI_Co_Dau, Ch) If (ViTri > 0) Then ' Neu no la ky tu thuong, chon anh xa cua chu hoa tuong ung Uppercase vowel KhongDau1KyTu = ChuKhongDau(ViTri) Else ' Neu no chi la ky tu ANSI (Chu k0 dau) KhongDau1KyTu = UCase(Ch) End If End Function Public Sub InUnicode() Dim ChuoiKQua As String, I ' Khoi tao danh sach cac ky tu tieng Viet co dau (UNI_Co_Daus), 67 ky tu co dau la chu thuong va 67 ky tu co dau la chu hoa ' Nen nho la dung cac ham Function chrW, ky tu &HE1 Unicode duoc chua ben trong danh sach nay ' nhu &HE100 cho 1 chuoiABC ky tu ChuoiKQua = ChuoiKQua & ChrW(&HE1) & ChrW(&HE0) & ChrW(&H1EA3) & ChrW(&HE3) & ChrW(&H1EA1) & ChrW(&H103) & ChrW(&H1EAF) & ChrW(&H1EB1) & ChrW(&H1EB3) & ChrW(&H1EB5) & ChrW(&H1EB7) & ChrW(&HE2) & ChrW(&H1EA5) & ChrW(&H1EA7) & ChrW(&H1EA9) & ChrW(&H1EAB) & ChrW(&H1EAD) & ChrW(&HE9) & ChrW(&HE8) & ChrW(&H1EBB) ChuoiKQua = ChuoiKQua & ChrW(&H1EBD) & ChrW(&H1EB9) & ChrW(&HEA) & ChrW(&H1EBF) & ChrW(&H1EC1) & ChrW(&H1EC3) & ChrW(&H1EC5) & ChrW(&H1EC7) & ChrW(&HED) & ChrW(&HEC) & ChrW(&H1EC9) & ChrW(&H129) & ChrW(&H1ECB) & ChrW(&HF3) & ChrW(&HF2) & ChrW(&H1ECF) & ChrW(&HF5) & ChrW(&H1ECD) & ChrW(&HF4) & ChrW(&H1ED1) ChuoiKQua = ChuoiKQua & ChrW(&H1ED3) & ChrW(&H1ED5) & ChrW(&H1ED7) & ChrW(&H1ED9) & ChrW(&H1A1) & ChrW(&H1EDB) & ChrW(&H1EDD) & ChrW(&H1EDF) & ChrW(&H1EE1) & ChrW(&H1EE3) & ChrW(&HFA) & ChrW(&HF9) & ChrW(&H1EE7) & ChrW(&H169) & ChrW(&H1EE5) & ChrW(&H1B0) & ChrW(&H1EE9) & ChrW(&H1EEB) & ChrW(&H1EED) & ChrW(&H1EEF) ChuoiKQua = ChuoiKQua & ChrW(&H1EF1) & ChrW(&HFD) & ChrW(&H1EF3) & ChrW(&H1EF7) & ChrW(&H1EF9) & ChrW(&H1EF5) & ChrW(&H111) & ChrW(&HC1) & ChrW(&HC0) & ChrW(&H1EA2) & ChrW(&HC3) & ChrW(&H1EA0) & ChrW(&H102) & ChrW(&H1EAE) & ChrW(&H1EB0) & ChrW(&H1EB2) & ChrW(&H1EB4) & ChrW(&H1EB6) & ChrW(&HC2) & ChrW(&H1EA4) ChuoiKQua = ChuoiKQua & ChrW(&H1EA6) & ChrW(&H1EA8) & ChrW(&H1EAA) & ChrW(&H1EAC) & ChrW(&HC9) & ChrW(&HC8) & ChrW(&H1EBA) & ChrW(&H1EBC) & ChrW(&H1EB8) & ChrW(&HCA) & ChrW(&H1EBE) & ChrW(&H1EC0) & ChrW(&H1EC2) & ChrW(&H1EC4) & ChrW(&H1EC6) & ChrW(&HCD) & ChrW(&HCC) & ChrW(&H1EC8) & ChrW(&H128) & ChrW(&H1ECA) ChuoiKQua = ChuoiKQua & ChrW(&HD3) & ChrW(&HD2) & ChrW(&H1ECE) & ChrW(&HD5) & ChrW(&H1ECC) & ChrW(&HD4) & ChrW(&H1ED0) & ChrW(&H1ED2) & ChrW(&H1ED4) & ChrW(&H1ED6) & ChrW(&H1ED8) & ChrW(&H1A0) & ChrW(&H1EDA) & ChrW(&H1EDC) & ChrW(&H1EDE) & ChrW(&H1EE0) & ChrW(&H1EE2) & ChrW(&HDA) & ChrW(&HD9) & ChrW(&H1EE6) ChuoiKQua = ChuoiKQua & ChrW(&H168) & ChrW(&H1EE4) & ChrW(&H1AF) & ChrW(&H1EE8) & ChrW(&H1EEA) & ChrW(&H1EEC) & ChrW(&H1EEE) & ChrW(&H1EF0) & ChrW(&HDD) & ChrW(&H1EF2) & ChrW(&H1EF6) & ChrW(&H1EF8) & ChrW(&H1EF4) & ChrW(&H110) UNI_Co_Dau = ChuoiKQua ' Gan vao danh sach UNI_Co_Dau Dim ChuKhongDau ChuKhongDau = Array("A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "E", "E", "E", "E", "E", "E", "E", "E", "E", "E", "E", "I", "I", "I", "I", "I", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "U", "U", "U", "U", "U", "U", "U", "U", "U", "U", "U", "Y", "Y", "Y", "Y", "Y", "D", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "E", "E", "E", "E", "E", "E", "E", "E", "E", "E", "E", "I", "I", "I", "I", "I", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "O", "U", "U", "U", "U", "U", "U", "U", "U", "U", "U", "U", "Y", "Y", "Y", "Y", "Y", "D") End Sub Sub BoDau() Selection.Text = KhongDau1Xau(Selection.Text) End Sub Sub HoaThuong() Dim x As Integer x = Windows.Count If x = 0 Then Exit Sub End If With Selection.Font If Left(.Name, 1) = "." Then If Right(.Name, 1) = "H" Then .Name = Left(.Name, Len(.Name) - 1) StatusBar = "Thôi không dùng Font hoa." Else .Name = .Name + "H" StatusBar = "Sang Font hoa." End If Else Call HoaUNI End If End With End Sub
-
## Thành viên Like bài viết này:
-
28-11-2007 14:48
[#9](showthread.php/123887-Đổi-chữ-hoa-sang-chữ-thường-trong-word?s=104156617523417bd6b531281fc39c2b&p=937374#post937374)
bạn có thể dùng tiện ích \Vkeyoffice có tính năng chuyển chữ hoa chữ thường đó
## Bookmarks

WARC-Type: response

Content-Type: application/http; msgtype=response

WARC-Truncated: length

Server: nginx

Content-Type: text/html; charset=utf-8

Connection: close

Cache-Control: private

Set-Cookie: bb_lastactivity=0; expires=Sat, 30-Jan-2016 04:50:50 GMT; path=/

Content-Encoding: gzip


text:
/5
Báo cáo tài liệu này
Đề cương ôn tập ngữ văn lớp 8 học kì II
Upload: BuiDucNang.dokovn|Ngày: 10/11/2012|Lượt xem: 1532|Tải về: 4
Chuyên mục:
ĐỀ CƯƠNG ÔN TẬP MÔN NGỮ VĂN LỚP 8 HỌC KỲII,PHẦN VĂN HỌC 1.TÔI ĐI HỌC ( THANH TỊNH) Trong cuộc đời mỗi con người, kỷ niệm trong sáng của tuổi học trò, nhất là buổi tựu trường đầu tiên, thường được ghi nhớ mãi. Thanh Tịnh đã diễn tả dòng cảm nghĩ này bằng nghệ thuật tự sự đan xen miêu tả và biểu cảm,

markdown:
/5
Báo cáo tài liệu này
# Đề cương ôn tập ngữ văn lớp 8 học kì II
Upload:
[BuiDucNang.dokovn](/user/BuiDucNang.dokovn)|Ngày: 10/11/2012|Lượt
xem: 1532|Tải về: 4
Chuyên mục:
ĐỀ CƯƠNG ÔN TẬP MÔN NGỮ VĂN LỚP 8 HỌC KỲII,PHẦN VĂN HỌC 1.TÔI ĐI HỌC ( THANH TỊNH) Trong cuộc đời mỗi con người, kỷ niệm trong sáng của tuổi học trò, nhất là buổi tựu trường đầu tiên, thường được ghi nhớ mãi. Thanh Tịnh đã diễn tả dòng cảm nghĩ này bằng nghệ thuật tự sự đan xen miêu tả và biểu cảm,


text:
04 / 09/ 2013, 12:09:51
http://www.thailan.dulichvietnam.com.vn/ ...
Tour 5 ngày. K/sạn 4-5 *.Tặng BBQ hải sản & lẩu Suki Nhật. Miễn phí mang 20kg + 7kg xách tay. Giá: 4.999.000 VNĐ
Người Việt vốn ăn uống thanh đạm, nghe tới cơm muối, ta dễ liên tưởng tới bữa "rau dưa mắm muối đạm bạc" mà gia chủ thường nhã ...
Hẳn chỉ nghe đến từ pín, bất cứ quý ông nào cũng có thể mường tượng được đó là món ăn gì, tác dụng ...
Top siêu thực phẩm giúp bạn không còn bị lạnh mùa đông
Mùa đông đã tới, bạn luôn cảm thấy lạnh vậy hãy sử dụng những thực phẩm dưới đây để cơ thể luôn cảm thấy ấm ...
Những địa chỉ mua giò chả trước Tết ngon 'khó cưỡng'
Mâm cỗ cúng gia tiên ngày Tết trong truyền thống của người Việt không thể thiếu đồng bánh chưng, khoanh giò lụa.
Vui mắt, vui tai với phiên chợ bò Mèo Vạc
Hà Giang có một phiên chợ rất đặc biệt, đó là phiên chợ bò diễn ra vào ngày chủ nhật hằng tuần ở huyện ...
www.phuquoc.dulichvietnam.com ...
Tour 3N. Miễn phí đón tiễn sân bay. Câu cá & lặn biển ngắm san hô tuyệt đẹp. Hỗ trợ ... Giá: 2.150.000 VNĐ
www.tour.dulichvietnam.com.vn ...
Đón xuân cùng tour lễ hội Chùa Hương, Bái Đính, Yên Tử 1 ngày. Cầu may mắn, ... Giá: 470.000 VNĐ
www.nhatrang.dulichvietnam.co ...
Tour 3 Ngày. Miễn phí đón tiễn sân bay Nha Trang. Khám phá Vinpearl & bốn đảo đẹp nhất ... Giá: 2.850.000đ VNĐ
www.tour.dulichvietnam.com.vn ...
Tour 2 ngày 1 đêm. Khởi hành thứ 7 hàng tuần. Thỏa sức ngắm hoa cải trắng. Chỉ 950.000đ. Giá: 950000 VNĐ

markdown:
04 / 09/ 2013, 12:09:51
[http://www.thailan.dulichvietnam.com.vn/ ...](http://www.thailan.dulichvietnam.com.vn/du-lich-thai-lan-bangkok-pattaya-5-ngay-khach-san-45-saotang-bbq-hai-san-lau-suki-nhat.html/1096) [Tour 5 ngày. K/sạn 4-5 *.Tặng BBQ hải sản & lẩu Suki Nhật. Miễn phí mang 20kg + 7kg xách tay. Giá: 4.999.000 VNĐ](http://www.thailan.dulichvietnam.com.vn/du-lich-thai-lan-bangkok-pattaya-5-ngay-khach-san-45-saotang-bbq-hai-san-lau-suki-nhat.html/1096)
Người Việt vốn ăn uống thanh đạm, nghe tới cơm muối, ta dễ liên tưởng tới bữa "rau dưa mắm muối đạm bạc" mà gia chủ thường nhã ...
Hẳn chỉ nghe đến từ pín, bất cứ quý ông nào cũng có thể mường tượng được đó là món ăn gì, tác dụng ...
**Top siêu thực phẩm giúp bạn không còn bị lạnh mùa đông**
Mùa đông đã tới, bạn luôn cảm thấy lạnh vậy hãy sử dụng những thực phẩm dưới đây để cơ thể luôn cảm thấy ấm ...
**Những địa chỉ mua giò chả trước Tết ngon 'khó cưỡng'**
Mâm cỗ cúng gia tiên ngày Tết trong truyền thống của người Việt không thể thiếu đồng bánh chưng, khoanh giò lụa.
**Vui mắt, vui tai với phiên chợ bò Mèo Vạc**
Hà Giang có một phiên chợ rất đặc biệt, đó là phiên chợ bò diễn ra vào ngày chủ nhật hằng tuần ở huyện ...
[www.phuquoc.dulichvietnam.com ...](http://www.phuquoc.dulichvietnam.com.vn/du-lich-phu-quoc-ha-noi-phu-quoc-ve-dep-hoang-so-3-ngay.html/1089) [Tour 3N. Miễn phí đón tiễn sân bay. Câu cá & lặn biển ngắm san hô tuyệt đẹp. Hỗ trợ ... Giá: 2.150.000 VNĐ](http://www.phuquoc.dulichvietnam.com.vn/du-lich-phu-quoc-ha-noi-phu-quoc-ve-dep-hoang-so-3-ngay.html/1089) [www.tour.dulichvietnam.com.vn ...](http://www.tour.dulichvietnam.com.vn/du-lich-trong-nuoc/du-lich-le-hoi.html/68) [Đón xuân cùng tour lễ hội Chùa Hương, Bái Đính, Yên Tử 1 ngày. Cầu may mắn, ... Giá: 470.000 VNĐ](http://www.tour.dulichvietnam.com.vn/du-lich-trong-nuoc/du-lich-le-hoi.html/68) [www.nhatrang.dulichvietnam.co ...](http://www.nhatrang.dulichvietnam.com.vn/du-lich-nha-trang-bien-xanh-vay-goi-3-ngay.html/1153) [Tour 3 Ngày. Miễn phí đón tiễn sân bay Nha Trang. Khám phá Vinpearl & bốn đảo đẹp nhất ... Giá: 2.850.000đ VNĐ](http://www.nhatrang.dulichvietnam.com.vn/du-lich-nha-trang-bien-xanh-vay-goi-3-ngay.html/1153) [www.tour.dulichvietnam.com.vn ...](http://www.tour.dulichvietnam.com.vn/chi-tiet-tour/978/du-lich-ha-noi-moc-chau-mua-hoa-cai-2-ngay.html) [Tour 2 ngày 1 đêm. Khởi hành thứ 7 hàng tuần. Thỏa sức ngắm hoa cải trắng. Chỉ 950.000đ. Giá: 950000 VNĐ](http://www.tour.dulichvietnam.com.vn/chi-tiet-tour/978/du-lich-ha-noi-moc-chau-mua-hoa-cai-2-ngay.html)

Cache-Control: no-store, no-cache, must-revalidate, post-check=0, pre-check=0

Pragma: no-cache

Vary: Accept-Encoding,User-Agent

Content-Type: text/html


text:
Trò chơi Đội quân tinh nhuệ - game doi quan tinh nhue
Bạn là một chiến binh tinh nhuệ trong tổ chức của liên hợp quốc(U.N). Sứ mệnh của bạn là giữ gìn hòa bình trên thế giới. Có một nhóm phiến quân đang gây bạo động, khủng bố chết rất nhiều người, bạn được cử đi để tiêu diệt chúng.
(Chú ý bảo vệ lá cờ, tham khảo thêm hướng dẫn trong game)
(Chú ý bảo vệ lá cờ, tham khảo thêm hướng dẫn trong game)
Bình luận game Đội quân tinh nhuệ
Game Game hành động Chơi Game hành động hay nhất
- Cuộc chiến của Bunny 5 17.782
- Bảo vệ thành phố 3 7.149
- Thợ săn Zombie 19.128
- Công trường đáng sợ 14.310
- Công trường đáng sợ 2 3.507
- Đại chiến trên giấy 5.886
- Xe tăng bọc thép 14.363
- Van Helsing diệt quân xương 1.685
- Nhiệm vụ sinh tử 30.119
- Đặt boom 77.820
- Nữ sinh diệt chuột 7.001
- Thần công laze 4 11.882
- Chạy trốn Zombie 3 16.381
- Nero chơi ghi-ta 34.771
- Đấu trường ảo 13.324
- Bảo vệ nhà tù 27.863
- Bảo vệ đàn cừu 15.024
- Chiến tranh không gian 2 2.120
- Đặt bom thời trung cổ 25.533
- Chí phèo thời nay 7 525.959
- Vòng vây thây ma 3.299
- Trở về 23.371
- Ám sát chuyên nghiệp 20.461
- Khủng long thi chạy 2 11.495
- Biệt kích diệt phiến quân 21.320
- Người bảo vệ 26.544
- Người bảo vệ thiên hà 9.964
- Đêm cuối kinh hoàng 2 11.834
- Hiệp sĩ giữ thành 18.565
- Bảo vệ địa cầu 7.333
Bộ sưu tập game hot
- Ai là triệu phú
- Bắt chữ
- Xếp kẹo ngọt
- Hoa quả nổi giận
- Bắn cá ăn xu
- Đố vui dân gian
- Hành trình ốc sên
- Ghét nhau ném đá
- Songoku
- Thủy thủ Mặt Trăng
- Bom IT
- WinX
- Cuộc chiến xuyên thế kỷ
- Đại chiến sao Anime
- Angry Birds
- Chém hoa quả
- Đào vàng
- Kim cương
- Mèo Oggy
- Chú khỉ buồn
- Pikachu
- Mario
- Tom & Jerry
- Bạch Tuyết đi Spa
- Siêu nhân
- Nông trại
- Phá sao
- Doraemon
- Chơi cờ
- 2048
- Võ sĩ
- Ninja Rùa
- YLLegend học võ
- Rồng đen
- Rambo
- Ben 10
- Chiếc nón kỳ diệu
- Cut the Rope
- Giải đua xe F1
- Avatar công thành chiến
- Sử thi chiến tranh
- Anh hùng chiến loạn

markdown:
## Trò chơi
**Đội quân tinh nhuệ** - game doi quan tinh nhue
|
|
## Đánh giá
Trung bình:
4,1
1925
![]()
Game
Được cập nhật ngày 04/12/2008.
Bạn là một chiến binh tinh nhuệ trong tổ chức của liên hợp quốc(U.N). Sứ mệnh của bạn là giữ gìn hòa bình trên thế giới. Có một nhóm phiến quân đang gây bạo động, khủng bố chết rất nhiều người, bạn được cử đi để tiêu diệt chúng.
(Chú ý bảo vệ lá cờ, tham khảo thêm hướng dẫn trong game)
(Chú ý bảo vệ lá cờ, tham khảo thêm hướng dẫn trong game)
## Bình luận game
**Đội quân tinh nhuệ**
###
[Game](/)
[
Game hành động
](/hanh-dong/games)
[
Chơi Game hành động hay nhất
](/gamehay/hanh-dong)
-
Cuộc chiến của Bunny 5 17.782
-
Bảo vệ thành phố 3 7.149
-
Thợ săn Zombie 19.128
-
Công trường đáng sợ 14.310
-
Công trường đáng sợ 2 3.507
-
Đại chiến trên giấy 5.886
-
Xe tăng bọc thép 14.363
-
Van Helsing diệt quân xương 1.685
-
Nhiệm vụ sinh tử 30.119
-
Đặt boom 77.820
-
Nữ sinh diệt chuột 7.001
-
Thần công laze 4 11.882
-
Chạy trốn Zombie 3 16.381
-
Nero chơi ghi-ta 34.771
-
Đấu trường ảo 13.324
-
Bảo vệ nhà tù 27.863
-
Bảo vệ đàn cừu 15.024
-
Chiến tranh không gian 2 2.120
-
Đặt bom thời trung cổ 25.533
-
Chí phèo thời nay 7 525.959
-
Vòng vây thây ma 3.299
-
Trở về 23.371
-
Ám sát chuyên nghiệp 20.461
-
Khủng long thi chạy 2 11.495
-
Biệt kích diệt phiến quân 21.320
-
Người bảo vệ 26.544
-
Người bảo vệ thiên hà 9.964
-
Đêm cuối kinh hoàng 2 11.834
-
Hiệp sĩ giữ thành 18.565
-
Bảo vệ địa cầu 7.333
[Xem thêm...](/hanh-dong/games)
[Bộ sưu tập game hot](/game-hot.htm)
-
Ai là triệu phú
-
Bắt chữ
-
Xếp kẹo ngọt
-
Hoa quả nổi giận
-
Bắn cá ăn xu
-
Đố vui dân gian
-
Hành trình ốc sên
-
Ghét nhau ném đá
-
Songoku
-
Thủy thủ Mặt Trăng
-
Bom IT
-
WinX
-
Cuộc chiến xuyên thế kỷ
-
Đại chiến sao Anime
-
Angry Birds
-
Chém hoa quả
-
Đào vàng
-
Kim cương
-
Mèo Oggy
-
Chú khỉ buồn
-
Pikachu
-
Mario
-
Tom & Jerry
-
Bạch Tuyết đi Spa
-
Siêu nhân
-
Nông trại
-
Phá sao
-
Doraemon
-
Chơi cờ
-
2048
-
Võ sĩ
-
Ninja Rùa
-
YLLegend học võ
-
Rồng đen
-
Rambo
-
Ben 10
-
Chiếc nón kỳ diệu
-
Cut the Rope
-
Giải đua xe F1
-
Avatar công thành chiến
-
Sử thi chiến tranh
-
Anh hùng chiến loạn
[Xem thêm...](/game-hot.htm)

Cache-Control: private, max-age=2607


text:
Cặp đeo chéo 3D vuông- Màu CAM xu hướng thời trang hiện đại trị giá nay chỉ còn 165.000 VNĐ Thiết kế với ý tưởng những hình vẽ 3D trên giấy đầy độc đáo và tạo hình, khối.
Giá bán: 165.000 VNĐ
Giá gốc: 250.000 VNĐMua
34 %
Khuyến mại hết hạn Deal 1
Nội dung khuyến mại của Cặp đeo chéo 3D vuông- Màu CAM xu hướng thời trang hiện đại trị giá nay chỉ còn 165.000 VNĐ Thiết kế với ý tưởng những hình vẽ 3D trên giấy đầy độc đáo và tạo hình, khối.
MÀU CAM SÀNH ĐIỆU
NAM VÀ NỮ ĐỀU DÙNG ĐƯỢC
Ý tưởng về những chiếc túi họa tiết hoạt hình 3D này đến từ 2 nhà thiết kế người Đài Loan. Họ nghĩ: thật là đáng yêu nếu có thể đưa những hình vẽ hoạt hình trên giấy với các màu sắc sinh động vào cuộc đời thật, trở thành những chiếc túi 3D mà ai cũng có thể sử dụng được. Và như thế, những chiếc túi xinh xắn, nổi bật này đã ra đời, dần dần trở thành một trào lưu được giới trẻ thế giới mến mộ. Nay, TITISHOP xin giới thiệu với các bạn những chiếc túi hoạt hình 3D ngộ nghĩnh này nhé.
Túi xách có tạo hình y hệt một hình vẽ trên giấy, vô cùng độc đáo và nổi bật. Đây là sản phẩm được các bạn trẻ ở nhiều nước trên thế giới ưa chuộng.
Những chiếc túi nổi bật, màu sắc năng động, trẻ trung. Có thể nhét vừa iPad, sổ sách, ví...
Chiếc túi thật ngộ nghĩnh và đáng yêu đúng không nào!
Phương án chọn lựa :
Phương án 1 : Các bạn có thể Đến xem và mua sản phẩm trực tiếp tại cửa hàng TITISHOP SỐ 120 Nguyễn thái bình f12 tân bình tphcm
Phương án 2 : Đặt hàng và Chúng tôi sẽ giao tận nơi tận nhà quý khách hàng
Tư vấn trực tuyến:
Vui lòng gửi lại tin nhắn nếu Deal1 off , Deal1.vn sẽ hỗ trợ bạn Email: deal1hcm@gmail.com hot line : 0908.741.748
-----------------------------------------------------------------
Đặt hàng - Giao hàng - Thu tiền tận nơi trên TOÀN QUỐC
Hân hạnh được phục vụ quý khách hàng !
Lời nhắn
Xin chào ,
gửi bạn lời mời xem sản phẩm khuyến mại với thông tin như sau
Cặp đeo chéo 3D vuông- Màu CAM xu hướng thời trang hiện đại trị giá nay chỉ còn 165.000 VNĐ Thiết kế với ý tưởng những hình vẽ 3D trên giấy đầy độc đáo và tạo hình, khối.
Link xem sản phẩm: http://img.khuyenmai86.com/khuyen-mai/cap-deo-cheo-3d-vuong-mau-cam-xu-huong-thoi-trang-hien-dai-tri-gia-nay-chi-con-thiet-ke-voi-y-tuong-nhung-hinh-ve-3d-tren-giay-day-doc-dao-va-tao-hinh-khoi.html
Email này được gửi đi từ website http://img.khuyenmai86.com/khuyen-mai/
Chúc bạn có những giây phút thoải mái tại KHUYENMAI86.COM
- Các sản phẩm người dùng mới đăng
-
Ngày đăng: 25/01/2015 14:13 0
-
Ngày đăng: 0
-
Ngày đăng: 0
-
Ngày đăng: 0
Bỉm/Tã Drypers của Thụy Điển, sản xuất tại Malaysia, 190k/60 miếng
-
Ngày đăng: 0
Giá Bia Ngoại Bubweiser Corona Asahi Kostrizer cập nhật Vĩnh Thành MegaShop
-
Ngày đăng: 0
Hồ bơi, phao bơi trẻ em INTEX giá tốt TpHCM -Vĩnh Thành MegaShop BBán Lẻ Giá Tốt
-
Ngày đăng: 9
-
Ngày đăng: 15
-
Ngày đăng: 8
-
Ngày đăng: 11
-
Ngày đăng: 7
-
Ngày đăng: 8
-
Ngày đăng: 14
-
Ngày đăng: 13
-
Ngày đăng: 18
-
Ngày đăng: 10
-
Ngày đăng: 18
-
Ngày đăng: 7
-
Ngày đăng: 16
-
Ngày đăng: 11
Viết bình luậnCặp đeo chéo 3D vuông- Màu CAM xu hướng thời trang hiện đại trị giá nay chỉ còn 165.000 VNĐ Thiết kế với ý tưởng những hình vẽ 3D trên giấy đầy độc đáo và tạo hình, khối.Đăng nhập/Đăng ký

markdown:
# Cặp đeo chéo 3D vuông- Màu CAM xu hướng thời trang hiện đại trị giá nay chỉ còn
* 165.000 VNĐ* Thiết kế với ý tưởng những hình vẽ 3D trên giấy đầy độc đáo và tạo hình, khối.
Giá bán: 165.000 VNĐ
Giá gốc: 250.000 VNĐ
[Mua](http://deal1.vn/ho-chi-minh/deal-1242-cap-deo-cheo-3d-vuong--mau-cam.html) **34 %**
Khuyến mại hết hạn
Deal 1
## Nội dung khuyến mại của Cặp đeo chéo 3D vuông- Màu CAM xu hướng thời trang hiện đại trị giá nay chỉ còn 165.000 VNĐ Thiết kế với ý tưởng những hình vẽ 3D trên giấy đầy độc đáo và tạo hình, khối.
MÀU CAM SÀNH ĐIỆU
NAM VÀ NỮ ĐỀU DÙNG ĐƯỢC
Ý tưởng về những chiếc túi họa tiết hoạt hình 3D này đến từ 2 nhà thiết kế người Đài Loan. Họ nghĩ: thật là đáng yêu nếu có thể đưa những hình vẽ hoạt hình trên giấy với các màu sắc sinh động vào cuộc đời thật, trở thành những chiếc túi 3D mà ai cũng có thể sử dụng được. Và như thế, những chiếc túi xinh xắn, nổi bật này đã ra đời, dần dần trở thành một trào lưu được giới trẻ thế giới mến mộ. Nay, TITISHOP xin giới thiệu với các bạn những chiếc túi hoạt hình 3D ngộ nghĩnh này nhé.
Túi xách có tạo hình y hệt một hình vẽ trên giấy, vô cùng độc đáo và nổi bật. Đây là sản phẩm được các bạn trẻ ở nhiều nước trên thế giới ưa chuộng.
Những chiếc túi nổi bật, màu sắc năng động, trẻ trung. Có thể nhét vừa iPad, sổ sách, ví...
Chiếc túi thật ngộ nghĩnh và đáng yêu đúng không nào!
**Phương án chọn lựa :**
Phương án 1 : Các bạn có thể Đến xem và mua sản phẩm trực tiếp tại cửa hàng TITISHOP SỐ 120 Nguyễn thái bình f12 tân bình tphcm
Phương án 2 : Đặt hàng và Chúng tôi sẽ giao tận nơi tận nhà quý khách hàng
Tư vấn trực tuyến:
Vui lòng gửi lại tin nhắn nếu Deal1 off , Deal1.vn sẽ hỗ trợ bạn Email: deal1hcm@gmail.com hot line : 0908.741.748
-----------------------------------------------------------------
Đặt hàng - Giao hàng - Thu tiền tận nơi trên TOÀN QUỐC
**Hân hạnh được phục vụ quý khách hàng !** ![ ](http://img.khuyenmai86.com/img-lib/700-700/deal/product/leech/o/8/o/o8o1371029967_10617193823520121886573643106.jpg)
[Xem thêm] [Đóng [X]]
Lời nhắn
Xin chào ,
gửi bạn lời mời xem sản phẩm khuyến mại với thông tin như sau
**Cặp đeo chéo 3D vuông- Màu CAM xu hướng thời trang hiện đại trị giá nay chỉ còn 165.000 VNĐ Thiết kế với ý tưởng những hình vẽ 3D trên giấy đầy độc đáo và tạo hình, khối.**
Link xem sản phẩm:
[http://img.khuyenmai86.com/khuyen-mai/cap-deo-cheo-3d-vuong-mau-cam-xu-huong-thoi-trang-hien-dai-tri-gia-nay-chi-con-thiet-ke-voi-y-tuong-nhung-hinh-ve-3d-tren-giay-day-doc-dao-va-tao-hinh-khoi.html](http://img.khuyenmai86.com/khuyen-mai/cap-deo-cheo-3d-vuong-mau-cam-xu-huong-thoi-trang-hien-dai-tri-gia-nay-chi-con-thiet-ke-voi-y-tuong-nhung-hinh-ve-3d-tren-giay-day-doc-dao-va-tao-hinh-khoi.html)
Email này được gửi đi từ website
[http://img.khuyenmai86.com/khuyen-mai/](http://img.khuyenmai86.com/khuyen-mai/)
**Chúc bạn có những giây phút thoải mái tại KHUYENMAI86.COM**
**Các sản phẩm người dùng mới đăng**
-
Ngày đăng: 25/01/2015 14:13
0
-
Ngày đăng:
0
-
Ngày đăng:
0
-
Ngày đăng:
0
[Bỉm/Tã Drypers của Thụy Điển, sản xuất tại Malaysia, 190k/60 miếng](/khuyen-mai/bim-ta-drypers-cua-thuy-dien-san-xuat-tai-malaysia-190k-60-mieng.html)
-
Ngày đăng:
0
[Giá Bia Ngoại Bubweiser Corona Asahi Kostrizer cập nhật Vĩnh Thành MegaShop](/khuyen-mai/gia-bia-ngoai-bubweiser-corona-asahi-kostrizer-cap-nhat-17-4-vinh-thanh-megashop.html)
-
Ngày đăng:
0
[Hồ bơi, phao bơi trẻ em INTEX giá tốt TpHCM -Vĩnh Thành MegaShop BBán Lẻ Giá Tốt](/khuyen-mai/ho-boi-intex-giam-gia-cuc-da-tu-15-16-4-vinh-thanh-megashop.html)
-
Ngày đăng:
9
-
Ngày đăng:
15
-
Ngày đăng:
8
-
Ngày đăng:
11
-
Ngày đăng:
7
-
Ngày đăng:
8
-
Ngày đăng:
14
-
Ngày đăng:
13
-
Ngày đăng:
18
-
Ngày đăng:
10
-
Ngày đăng:
18
-
Ngày đăng:
7
-
Ngày đăng:
16
-
Ngày đăng:
11
## Viết bình luậnCặp đeo chéo 3D vuông- Màu CAM xu hướng thời trang hiện đại trị giá nay chỉ còn 165.000 VNĐ Thiết kế với ý tưởng những hình vẽ 3D trên giấy đầy độc đáo và tạo hình, khối.Đăng nhập/Đăng ký

Cache-Control: store, no-cache, must-revalidate, post-check=0, pre-check=0

Vary: Accept-Encoding


text:
Chào mừng bạn đến với website: www.kimtin.vn
Vàng trong nước và thế giới hôm nay tiếp tục giảm phiên thứ 2 liên tiếp. Mỗi lượng vàng trong nước giảm từ 60 – 200.000 đ/lượng so với phiên giao dịch ngày hôm qua.
Trên thị trường thế giới, mỗi ounce vàng cũng mất hơn 25 USD xuống 1.258 USD sau khi FED ra tín hiệu vẫn giữ kế hoạch nâng lãi suất năm nay.
Vàng trong nước và thế giới hôm nay tiếp tục giảm phiên thứ 2 liên tiếp. Tuy nhiên mức giảm chỉ giao động trong biên độ hẹp. Đầu giờ sáng nay, vàng SJC tại Hà Nội giao dịch ở mức 35,22 – 35,34 triệu/lượng (MV – BR), giảm 60.000đ/lượng chiều bán ra so với chốt phiên hôm qua. Vàng 999,9 của một số thương hiệu uy tín trong nước như Doji, Kim Tín, PNJ cũng điều chỉnh giảm nhẹ.
Sáng 2/11/2014 tại Nhà Hát Lớn Hà Nội, Hội Mỹ nghệ Kim hoàn Đá quý Việt Nam tổ chức chương trình Vinh danh trí tuệ bàn tay vàng - Tự hào thương hiệu Việt Nam. Tới dự có Ủy viên Bộ Chính trị, Chủ tịch Ủy ban Trung ương MTTQ Viêt Nam Nguyễn Thiện Nhân và các đồng chí lãnh đạo các Bộ, ban, ngành cùng tham dự chương trình.
Lựa chọn một chiếc nhẫn thích hợp không phải là việc dễ dàng , bạn phải quan tâm đến hình dạng của các kiểu đá quý, độ sáng bóng, số lượng đá quý đính trên nhẫn và giá cả. Còn một điều bạn cần phải suy nghĩ đó chính là việc lựa chọn loại chất liệu cho nhẫn đính hôn hoặc nhẫn cưới.
Peridot là một loại đá có chức năng thanh tẩy cực mạnh. Nó có thể giải phóng và vô hiệu hóa mọi loại độc tố. Bên cạnh đó, peridot làm giảm đi sự ghen ghét, oán giận, thù hận, sự tham lam. Mặt khác, nó có thể làm giảm căng thẳng, sự giận dữ và tội lỗi.
Kim cương
Saphin
Ngọc trai
Rubi
Ngọc cẩm thạch
Topaz
Emeral
Citrine
Amethyst
Opal
Gamet
Aquamerine


text:
Các Buổi Học Tiếng Ý cho Nhóm và Cá Nhân Kết Hợp tổ chức tại Naples, Ý
Chúng tôi khuyến khích học kết hợp nhóm và cá nhân để việc học tập tiến bộ hơn cũng như được hưởng mức giá tốt hơn. Ngữ pháp và từ vựng có thể học hiệu quả trong các khóa học nhóm, trong khi các buổi học cá nhân sẽ lý tưởng cho việc rèn luyện kỹ năng nói Tiếng Ý cũng như giải đáp khúc mắc cụ thể của từng người.
1 trường ngoại ngữ trong Naples hiện có Kết hợp: Nhóm + Cá nhân khóa học, với các mức giá từ 935 € tới 935 € cho một khóa học Tiếng Ý kéo dài 2 tuần, đã bao gồm chỗ ở.

markdown:
# Các Buổi Học Tiếng Ý cho Nhóm và Cá Nhân Kết Hợp tổ chức tại Naples, Ý
![](http://c0577872.cdn.cloudfiles.rackspacecloud.com/control_google_map.gif)
![Naples - Kết hợp: Nhóm + Cá nhân Naples - Kết hợp: Nhóm + Cá nhân](/images/__naples__48.jpg)
Chúng tôi khuyến khích học kết hợp nhóm và cá nhân để việc học tập tiến bộ hơn cũng như được hưởng mức giá tốt hơn. Ngữ pháp và từ vựng có thể học hiệu quả trong các khóa học nhóm, trong khi các buổi học cá nhân sẽ lý tưởng cho việc rèn luyện kỹ năng nói Tiếng Ý cũng như giải đáp khúc mắc cụ thể của từng người.
1 trường ngoại ngữ trong Naples hiện có Kết hợp: Nhóm + Cá nhân khóa học, với các mức giá từ 935 € tới 935 € cho một khóa học Tiếng Ý kéo dài 2 tuần, đã bao gồm chỗ ở.
### Naples
| |![]()
**Giá (2 tuần):**
|935 €|| |![]()
![]()
|635 €||Intensive + 5 (20 group+5 individual) (Các khóa học Tiếng Ý - Các buổi học 25 một tuần)|
|+ 260 €||Căn hộ ở chung, Phòng đơn, Không có bữa ăn|
|+ 40 €||Phí hành chính của trường |![]()
**Sĩ số tối đa trong một lớp:**12 **Đòi hỏi trình độ ngoại ngữ tối thiểu:**Người mới học (A1) - Không đòi hỏi kiến thức trước đó ![](http://c0577872.cdn.cloudfiles.rackspacecloud.com/help.png)
**Ngày bắt đầu:**Vào các Thứ Hai ![](http://c0577872.cdn.cloudfiles.rackspacecloud.com/transparent26.gif)


text:
Jon Scieszka, nguyên là một giáo viên tiểu học, với niềm yêu thích trẻ thơ anh đã cho ra đời cuốn sách viết cho trẻ em, Người đàn ông bốc mùi phô mai (The Stinky Cheese Man), thu hút rất đông độc giả nhỏ tuổi mua đọc và đây cũng là quyển sách bán chạy nhất trên thị trường sách cho thiếu nhi hiện nay. Ngoài ra ông còn nổi danh với một số các sáng tác khác. Năm ngoái, Scieszka đã được vinh danh là Đại sứ Quốc gia Văn học dành cho những người trẻ do Các Thành Viên Thư viện của Quốc Hội trao tặng.
Ông cũng là người sáng lập và ủng hộ không mệt mỏi cho chương trình văn chương Những cậu trai đọc sách, mục tiêu là tạo cho các bé trai làm quen với thói quen đọc sách một cách vui thích. Sau đây là những chia sẻ, trò chuyện cùng vị tác giả này để đúc kết một số các lời khuyên trong việc tạo thói quen đọc ở trẻ.
Các bậc cha mẹ nên làm gì nếu trẻ không thích đọc sách?Đầu tiên, hãy tạo cho trẻ một môi trường đầy sách - tất cả mọi loại sách. Đừng giới hạn tập trung vào những cuốn sách bạn thích khi còn bé. Với chương trình Những cậu trẻ đọc sách, tôi bắt đầu với những cuộc nghiên cứu, cố gắng đào sâu vào việc tại sao các bé trai thường không thích đọc sách bằng các bé gái, và nó nhanh chóng rõ ràng với tôi về những gì thật sự cần phải làm: các bậc cha mẹ chỉ cần tìm hiểu nhiều hơn về các tên sách mà các bé trai thích.
Hãy để bé tự chọn lựa loại sách mà mình thích. Ảnh: Images
Việc thứ nhì, đó là để cho các bé tha hồ chọn lựa. Nếu các bé đang học lớp ba và muốn đọc các quyển truyện tranh, điều đó hoàn toàn ổn. Và đừng quên sự hài hước. Nhiều cha mẹ nghĩ rằng hài hước là thứ gì đó không có giá trị, rằng trẻ con không nên đọc những truyện như Nhật ký một đứa trẻ yếu ơt chỉ bởi vì nó buồn cười. Trên thực tế nó là một cuốn sách tuyệt vời, và rất có giá trị.
Thứ ba là nên mở rộng khái niệm về sách để bao gồm cả những cuốn truyện tranh, sách truyện bằng hình không lời, các sách nói, tiểu thuyết giả tưởng, và - rất kỳ lạ - cả các truyện phi tiểu thuyết. Mọi người đều cho rằng trẻ em luôn luôn đọc các cuốn phi tiểu thuyết, nhưng ở trường loại sách này được xem là không giá trị. Các thầy cô thường bảo bọn trẻ, "Hãy nhìn vào cuộc chiến tranh dân sự, các máy tỉa hạt hoa và viết bản tường trình về chúng". Nhưng nếu trẻ thích các ngọn núi lửa, những con cá mập hoặc những con bọ nhỏ, ngoài thị trường có rất nhiều sách về đề tài này. Nếu trẻ có sở thích vào một vấn đề nào đó, đây chắc chắn là cách tốt nhất để phát triển niềm yêu thích lâu dài trong việc đọc sách.
Tiêu chuẩn của một câu chuyện để lôi cuốn trẻ là gì?Một câu chuyện hay là câu chuyện luôn luôn phải gợi được sự hứng thú ở trẻ. Tất cả các cuốn sách hay dành cho thiếu nhi đều cho thấy một sự quan tâm đến khả năng hiểu biết ở trẻ. Trong những năm đầu đi dạy tôi đã nhầm rằng mình nên dạy thật chậm để chắc chắn rằng mọi người có thể hiểu được hết mọi thứ. Nhưng càng dạy tôi càng nhận ra rằng việc truyền giảng kiến thức sẽ thực sự tốt hơn nếu bạn dạy ở tốc độ cao nhất có thể và thực sự thử thách trẻ để tăng khả năng nắm bắt với nhịp độ ấy. Điều đó đã có hiệu quả và cũng làm tôi hiểu được nhiều thứ.
Trong sách của ông, cũng như trong chuyện cổ Grimm, có rất nhiều bạo lực. Có phải ông cho rằng bạo lực lôi cuốn trẻ em?Cũng giống như trẻ em thường bị cuốn hút vào các con khủng long và xe tải, những vật to và khỏe khủng khiếp. Trẻ con thấy mình rất nhỏ bé trong thế giới này và chúng khao khát được ở vào một ví trí to lớn hơn mạnh mẽ hơn - để chúng có thể như những con khủng long to khỏe "nhai gọn" mọi người. Đó chỉ là một thực tế trong cuộc sống ảnh hưởng đến chúng.
Giả dụ như con tôi phản đối việc tự đọc sách, nhưng lại muốn được đọc cho nghe. Điều này có mang lại giá trị như việc tự đọc không?Tôi là một tín đồ cuồng nhiệt của việc đọc sách cho trẻ, bởi vì chúng có thể nghe những câu chuyện phức tạp hơn khả năng đọc của chúng. Và đó cũng là cách mà tôi dạy cho các bé lớp 2 và 3 được một thời gian kha khá, thời điểm mà sự khác nhau có thể chú ý được. Các bé lớp 2 chỉ mới bắt đầu tập đọc, nhưng trí óc của chúng - và những gì chúng tiếp thu - thì vượt hơn rất nhiều. Và lắng nghe là một cách để bé định hình được giọng nói, ngữ điệu, tốc độ nói và nhiều thứ tốt tương tự khác. Nhưng điều hữu ích nhất là việc các bậc cha mẹ thể hiện rằng họ quan tâm đến con và biết kiên nhẫn đọc sách cùng với trẻ. Đó là việc to tát, đặc biệt là đối với đàn ông. Thế nên chúng ta cần nhiều các quý ông hơn để làm việc đó.
Ông là một giáo viên tiểu học trong suốt 10 năm qua. Những điều gì ông rút ra được từ những ngày giảng dạy để giúp ông viết nên được những quyển sách khiến hàng triệu em nhỏ tìm đọc?Tôi nhận thức được rằng trẻ em không chỉ là những người lớn trong hình dáng bé nhỏ. Chúng hoàn toàn là một dạng khác. Chúng là những con người đang trong quá trình được hình thành. Càng dạy, tôi càng nhìn thấy trẻ em như những cái cây đang phát triển hơn là những cái bình cần được nhét cho đầy vào.
Tại sao ông cho rằng các bé trai thường không thích đọc sách hơn các bé gái?Có hai khía cạnh. Theo sinh học, các bé trai thường phát triển chậm hơn các bé gái. Việc đọc sách cũng giống như một việc nhồi nhét mà chúng ta chưa làm cho thích ứng được với hệ thống nhà trường. Các bé trai thật ra bao giờ cũng phát triển các hệ thống thần kinh chậm hơn các bé gái 1 năm. Nhưng đây chỉ là một nửa của vấn đề. Các phần khác có ảnh hưởng đến chính là những gì thuộc về văn hóa và xã hội - nói cách khác là những người đọc sách cho bé và dạy bé đọc sách.
Có khoảng gần 85% các giáo viên tiểu học là phụ nữ, và với các cán bộ thư viện thì con số này là khoảng 90%. Ngay cả khi ở nhà thì mẹ hầu như lúc nào cũng là người nhận nhiệm vụ đọc kể. Bố có thể đã đọc nhiều ở nơi làm việc rồi nên các bé trai hầu như không thấy đàn ông đọc sách. Các nhân tố kỳ lạ này dường như kết hợp với nhau chống lại việc tìm hiểu và thích đọc sách ở bé trai.
Thông thường, các vị phụ huynh học cách kết nối với con trẻ tốt hơn như thế nào?Hãy tin vào trẻ. Và thực sự lắng nghe chúng. Nếu chúng bước đến bạn với một quyển sách hoặc lấy một quyển sách ra và bảo: "Hãy đọc cùng con cái này đi!" thì bạn nên làm điều đó. Nếu con trai hay con gái bạn dần có niềm thích thú với các con cá mập thời tiền sử, bạn nên làm mọi thứ có thể để giúp chúng phát triển sở thích đó. Điều này có lợi ở 2 điểm: nó khiến bạn thực hiện việc đọc sách và nó giúp chuyển một thông điệp đến cho con bạn rằng, ý kiến của con có giá trị. Bạn sẽ thấy sự khác nhau!
Vâng, cảm ơn ông về những chia sẻ này.
The Web Trẻ Thơ


text:
Tìm thấy khoảng 1 kết quả trong 0,023 giây
Tải phần mềm Tra mã số Karaoke cho Windows XP/Vista/7/8 Tại Đây
55311 vol42
58388
58557
58381
58541
58426
58428
58499
58399
58501
58554
58422
58433
58468
58516
70960
70972
75001
75002
75003
75004
75005
22658
22642
22641
22640
22639
42240
42252
42253
42254
41487
40848
42462

Server: Apache

Powered-by: CaoBox 1.1


text:
Điều hòa làm bạn dịu đi cái nóng bức giữa trưa hè oi ả. Thế nhưng nếu chúng ta sử dụng không đúng cách thì sẽ phản tác dụng, ảnh...
Bây giờ sử dụng máy lạnh gia đình không còn xa xỉ nữa. Thế nhưng khi nhận hóa đơn tiền điện, chắc hẳn cũng có người “méo mặt” vì nhiều...
Đa số người dùng máy lạnh đều không hiểu nhiều về máy lạnh, nên có thể vì một lý do đơn giản nào đó máy không lạnh, người sử dụng...

markdown: Bạn đang băn khoăn, chưa biết lựa chọn các loại thiết bị điện lạnh nào phù hợp với diện tích mà bạn đang sử dụng. Bạn không biết loại thiết bị nào phù hợp với yêu cầu của mình. Hoặc bạn đã sử dụng các thiết bị điện lạnh nhưng lại hao tốn quá nhiều điện, năng suất kém... Chúng tôi chuyên cung cấp, thi công lắp đặt hệ thống các thiết bị điện lạnh dân dụng và công nghiệp sẽ đáp ứng mọi nhu cầu của bạn.

P3P: CP="NOI ADM DEV PSAi COM NAV OUR OTRo STP IND DEM"

Content-Encoding: x-gzip

X-Content-Encoded-By: Joomla! 1.5

Cache-Control: post-check=0, pre-check=0

Set-Cookie: default-tpl_tpl=default-tpl; expires=Wed, 20-Jan-2016 04:41:02 GMT; Max-Age=30672000; path=/

Vary: User-Agent


text:
Hướng dẫn chơi minh châu 2 trên máy tính, laptop, pc
Hướng dẫn chơi minh châu 2 trên máy tính, laptop, pc
Thủ thuật chơi minh châu 2 trên máy tính - laptop - pcGame minh châu 2 đã quá quen thuộc với chúng ta, để thuận tiện cho việc chơi minh châu 2 dễ dàng hơn, onlgame xin giới thiệu cách chơi game minh châu 2 trên máy vi tính.
Chú ý: Ngoài game minh châu 2, KEmulator có thể chơi được tất cả các game java khác, Bài viết này có thể áp dụng cho nhiều game java nhé.
I. Các công cụ cần thiết để chơi minh châu 2 trên pc:Để chơi được minh châu 2 trên máy tính ta cần các công cụ như sau:
1. phần mêm giả lập java Emulator:Phần mềm có chức năng chạy file .jar trên máy tính giúp các bạn kiểm tra game có kh hay ko? Hay có keylog hay ko.
Tải Emulator
Sau khi tải về, Các bạn giải nén file được một thư mục, trong đó có file KEmulator.exe
Sau khi chạy chương trình xong bạn có khung của sổ như sau:
Với minh châu 2, bạn có thể chỉnh lại màn hình để chơi game tốt nhất (màn hình to nhất chơi cho đã)
Minh châu 2 có bản hỗ trợ 640x360.
Bạn vào chỉnh lại thông số như trên:
Thứ tự: View --> opptions -->
Screen width = 640.
Screen height = 360.
Sau Khi làm xong, nhấn OK. Các bạn tắt chương trình và khởi động lại, độ phân giải của phần mềm sẽ tự động thay đổi lớn hơn rất nhiều.
Minh Chau 2_Nokia5800.jar (1.56 MB)
Các bạn có thể tải các phiên bản khác và xem giới thiệu minh châu 2 ở link dưới đây:
Chú ý là máy có nối mạng nhé :))
Cái này có thể cày một lúc nhiều acc minh châu 2, Các bạn chỉ cần chạy song song 2 cái là ok...
Một số hình ảnh nữa cho anh e xem nhé:
Nếu thấy hữu ích, Anh em cộng một cái trên google + cho bài viết nhé... Thân!!!
Onlgame!
Thêm tag tìm kiếm để các bạn dễ tìm:
Minh châu 2 x2, chơi 2 acc minh châu 2, chơi một lúc nhiều acc minh chau 2, choi minh chau 2 tren may vi tinh, huong dan choi game minh chau 2 tren vi tinh, choi game java tren may tinh, laptop, pc, choi nhiều nick minh chau 2, choi nhieu tk mc2, choi nhiều acount minh chau
Game Online Liên Quan:
Nhãn: off game, Thủ Thuật Chơi Game

markdown:
**Hướng dẫn chơi minh châu 2 trên máy tính, laptop, pc**
#
[Hướng dẫn chơi minh châu 2 trên máy tính, laptop, pc](http://www.onlgame.org/2013/01/huong-dan-choi-minh-chau-2-tren-may.html)
## Thủ thuật chơi minh châu 2 trên máy tính - laptop - pc
**Game minh châu 2**đã quá quen thuộc với chúng ta, để thuận tiện cho việc chơi **minh châu 2**dễ dàng hơn, onlgame xin giới thiệu **cách chơi game minh châu 2 trên máy vi tính.**
Chú ý: Ngoài
**game minh châu 2**, KEmulator có thể chơi được tất cả các game **java**khác, Bài viết này có thể áp dụng cho nhiều game java nhé.
## I. Các công cụ cần thiết để chơi minh châu 2 trên pc:Để chơi được minh châu 2 trên máy tính ta cần các công cụ như sau:
### 1. phần mêm giả lập java Emulator:Phần mềm có chức năng chạy file .jar trên máy tính giúp các bạn kiểm tra game có kh hay ko? Hay có keylog hay ko.
Tải Emulator
**Sau khi tải về, Các bạn giải nén file được một thư mục, trong đó có file KEmulator.exe**
Sau khi chạy chương trình xong bạn có khung của sổ như sau:
Với
**minh châu 2**, bạn có thể chỉnh lại màn hình để chơi game tốt nhất (màn hình to nhất chơi cho đã) **Minh châu 2**có bản hỗ trợ 640x360.
Bạn vào chỉnh lại thông số như trên:
Thứ tự: View --> opptions -->
Screen width = 640.
Screen height = 360.
Sau Khi làm xong, nhấn OK. Các bạn tắt chương trình và khởi động lại, độ phân giải của phần mềm sẽ tự động thay đổi lớn hơn rất nhiều.
[(1.56 MB)](http://s6.mbox.sh/minhchau2/5129/Sanguo_Nokia5800.jar) **Minh Chau 2_Nokia5800.jar**
Các bạn có thể tải các phiên bản khác và xem giới thiệu minh châu 2 ở link dưới đây:
*Chú ý là máy có nối mạng nhé :))*
![]()
Cái này có thể cày một lúc nhiều acc minh châu 2, Các bạn chỉ cần chạy song song 2 cái là ok...
Một số hình ảnh nữa cho anh e xem nhé:
Nếu thấy hữu ích, Anh em cộng một cái trên google + cho bài viết nhé... Thân!!!
Onlgame!
Thêm tag tìm kiếm để các bạn dễ tìm:
Minh châu 2 x2, chơi 2 acc minh châu 2, chơi một lúc nhiều acc minh chau 2, choi minh chau 2 tren may vi tinh, huong dan choi game minh chau 2 tren vi tinh, choi game java tren may tinh, laptop, pc, choi nhiều nick minh chau 2, choi nhieu tk mc2, choi nhiều acount minh chau
### Game Online Liên Quan:
Nhãn:

Content-Type: text/html; charset=UTF-8

Cache-Control: private, max-age=0

X-Content-Type-Options: nosniff

X-XSS-Protection: 1; mode=block

Server: GSE


text:
Cái mũi là một trong những tướng số quan trọng nhất, bởi vậy khi coi tướng, nếu thấy cái mũi xấu thì... khỏi cần coi tiếp cũng được. Đối với đàn ông, mũi biểu tượng về tiền tài, còn đối với phụ nữ, mũi biểu tượng cho chuyện chồng con.
Hình dáng mũi được chia ra làm 2 loại :
1/ Thượng cách gồm có 3 hạng:
- Thiện tướng: không cần giầu nhưng suốt đời vui sướng và khi chết cũng an toàn.
- Quý tướng: Kẻ quý dĩ nhiên giàu, nhưng chưa chắc đã thiện.
- Phú tướng: Mũi phải đầy dặn, to lớn và 2 lỗ mũi ẩn kín.
Trên đời không bao giờ có 3 tướng mũi nói trên cùng có trên một người. Thông thường, quý hay đi đôi với phú hoặc có thể đi đôi với thiện, nhưng phú thì rất ít khi song song với thiện.
2/ Hạ cách cũng gồm có 3 hạng (ác, tiện và bần):
- Tướng mũi ác là xấu nhất vì người có tướng mũi ác sẽ chết bất đắc kỳ tử hoặc có thể cả nhà sẽ bị thảm tử.
- Tướng mũi ác không nhất định phải kiêm cả bần, bởi tướng mũi ác đa số dễ giàu có.
- Tướng mũi bần không nhất định phải kiêm cả tiện, nhưng thường tướng bần và tướng tiện rất nhiều, còn tướng ác ít hơn...
Mũi nên đầy đặn cao lớn có thịt như trái mật treo, ngay ngắn không chênh lệch, không thô, không nhỏ, nhưng nên nhớ to lớn nhưng không được thô tục mới tốt. Những người có dáng mũi như vậy không giàu thì cũng sang.
Mũi chó, diều hâu, dao nhọn, gồ ghề, lỗ mũi hếch, lệch và yếu ớt, sống mũi lộ, cao và cô đơn như ngọn núi... những người phải chịu lao đao, vất vả, tâm tính gian tham.
Mũi thẳng, đầu mũi tròn trịa có da thịt: Tính tình nhân từ, bộc trực.
Mũi nhọn, đầu mũi không có thịt: Tính tình xảo trá.
Mũi khoằm như lưỡi câu hay mỏ chim: Tính tình hiểm độc.
Sống mũi có đốt lộ ra (hay có người gọi là mũi gãy): Vợ chồng lục đục và đôi khi khắc, sát.
Mũi chảy xệ là người mắc chứng ho lao hoặc suyễn. Nếu mũi xệ che khuất nhân trung, người đó sống không quá 40 tuổi.
Khi xem tướng mũi, cũng phải nên coi sắc khí của mũi vì mũi cần có quang nhuận, da dẻ mịn màng và màu hồng vàng dưới da. Mũi đỏ như kẻ nghiện rượu thì sẽ vất vả; mũi đen như tro là người làm hùng hục vẫn không đủ ăn.
Những tướng mũi tốt nhất:
1. Mũi trái mật treo: Đầy đặn, lỗ mũi kín và sống mũi cao, không lộ cốt. Mũi cao chạy lên đến sơn căn (giữa 2 con mắt) là người phú quí, gặp nhiều may mắn.
2. Mũi như ống tre: Sống mũi cao thẳng, bóng, đầu mũi và cánh mũi chắc chắn, đầy đặn là người phú quí.
3. Mũi như sư tử: Nở to đầy, lỗ mũi kín nhưng không sần sùi là kẻ phú nhưng không quý.
4. Mũi rồng: Mũi này hiện nay rất ít người có vì nó gồm 3 tướng mũi nói trên hợp lại. Mũi này thường có ở trên mặt các vua chúa thời xưa.
Những tướng mũi xấu:
1. Hai lỗ mũi rộng ngoác là kẻ nghèo khổ, túng bấn.
2. Mũi gẫy là kẻ cô độc
3. Mũi như cái núi là kẻ tự cao tự đại, dễ bị ghét nên nghèo khổ.
4. Mũi chó là loại mũi gẫy, lộ sống mũi: Người này thô tục và tiểu nhân.
5. Mũi chim ưng là kẻ gian tà ác tâm.
Khi coi tướng mũi, cần phối hợp với lưỡng quyền vì mũi lớn đẹp mà lưỡng quyền thấp thì không được. Tướng mũi cũng phải đi đôi với tướng mắt, bởi mũi lớn đẹp mà tướng mắt hỏng thì cho dù có giàu cũng không sang được.
Xem tướng phụ nữ giàu sang thành đạt
Xem nốt ruồi phụ nữ mặt sau
Xem nốt ruồi phụ nữ mặt trước
Xem tướng chọn nhân viên
Xem tướng nốt ruồi toàn thân
Xem tướng nốt ruồi trên mặt
(st)
Không có bài viết nào!
Mạng xã hội dành cho phụ nữ của công ty cổ phần PhunuNet/VOG (Vietnam Online Group).
Công ty cổ phần Vietnam Online Group: Địa chỉ: Tầng 7 - 32 phố Huế - Hà Nội - Email
liên hệ: contact@phununet.com
VP PhunuNet: Phòng 1103, Tầng 11, Tòa nhà Vườn Xuân, 71 Nguyễn Chí Thanh, Q. Đống Đa, Hà Nội - Điện thoại: (+84-4) 6 275 2213
Mã số doanh nghiệp: 0101791319
Giấy phép số 2558/GP-TTĐT do Sở TT-TT HN cấp. GXN cung cấp dịch vụ mạng xã hội số
75/GXN-TTĐT do Cục QLPTTH & TTĐT, Bộ TT-TT cấp.

Server: Apache/2.4.1 (Unix)