SINH VIÊN TRƯỜNG TÂY BẮC

chào mừng bạn đến forum nghành công nghệ thông tin
 
Trang ChínhPortalCalendarGalleryTrợ giúpTìm kiếmNhómĐăng kýĐăng Nhập

Share | 
 

 kiểm tra fone chữ không cần phần mềm

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
Admin
Admin
avatar

Tổng số bài gửi : 157
Join date : 01/11/2009
Age : 29
Đến từ : daklak

Bài gửiTiêu đề: kiểm tra fone chữ không cần phần mềm   Mon Nov 02, 2009 12:46 am

copy đoạn code này dán vao notepad (lưu tên là viewallfont.vbs)
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 "xem font chu khong can phan mem" & vbcrlf
d.content.insertafter "nguyen phi hung-truong tay bac" & vbcrlf

d.content.insertafter "0977123111" & 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"
chúc thành công!!!! sunny bounce
Về Đầu Trang Go down
Xem lý lịch thành viên http://kytucxa9b.forum-viet.net
 
kiểm tra fone chữ không cần phần mềm
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» Cài fonts chữ Hán
» Temple Run 2 ra mắt "thế giới" mới: Frozen Shadows

Permissions in this forum:Bạn không có quyền trả lời bài viết
SINH VIÊN TRƯỜNG TÂY BẮC :: VÀO DIỄN ĐÀN TRANG CHÍNH :: Thủ Thuật-
Chuyển đến