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 . 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. 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”