Trình diễn tất cả các loại Font trong MS Word
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (26.49 KB, 1 trang )
TRÌNH DIỄN TẤT CẢ CÁC LOẠI FONT TRONG MS WORD
************************
Đoạn mã sau sẽ sử dụng Microslft Word để hiển thò các font chữ được cài đặt trên mày
tính của bạn. Nó sẽ hiển thò tên của font chữ, câu chữ hoa và câu chữ thường, các số từ
0 đến 9, nhờ đó mà người dùng có thể xem qua các mẫu font chữ trên máy tính của
mình rất dễ dàng và không cần sử dụng bất cứ phần mềm xem font chữ nào khác.
Mở Notepad và nhập đoạn mã sau vào (có thể chép từ www.echip.com.vn):
Dim w
Set w=createobject (“word.application”)
w.visible=true
dim d
set d=w.documents.add
dim iFonts
iFonts=w.fontnames.count
dim i
for i=1 to iFonts
d.content.insertafter w.fontnames(i) & vbcrlf
d.content.insertafter “Hien thi Font chu” & vbcrlf
d.content.insertafter “Rat de dang ma khong can su dung phan mem ho tro” & vbcrlf
d.content.insertafter “0123456789 0123456789 0123456789 0123456789” & vbcrlf
next
dim rngParagraphs
for i=1 to iFonts*4
if (i+3) mod 4=0 then
set rngParagraphs=d.range(d.paragraphs(i+1).range.start, d.paragraphs(i+3).range.end)
rngParagraphs.select
w.selection.font.name=w.fontnames((i-1)\4+1)
end if
next
msgbox “Ket Thuc”
Lưu tập tin này lại và đặt tên là viewallfont.vbs, chạy tập tin này, bạn sẽ có được danh
sách các font chữ đã cài đặt trên máy
