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ử
Trang 1TRÌ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