SINH VIÊN TRƯỜNG TÂY BẮC
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.

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ínhPortalGalleryLatest imagesTìm kiếmĐăng kýĐăng Nhập

 

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

Go down 
Tác giảThông điệp
Admin
Admin
Admin


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

kiểm tra fone chữ không cần phần mềm Empty
Bài gửiTiêu đề: kiểm tra fone chữ không cần phần mềm   kiểm tra fone chữ không cần phần mềm Icon_minitimeMon 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
https://kytucxa9b.forumvi.com
 
kiểm tra fone chữ không cần phần mềm
Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» Giải pháp tiết kiệm tiền mạng " tiết kiệm 60->200K hàng tháng"
» khi status thành thơ (hay tuyệt) !
» CÁCH KIẾM TIỀN ONLINE
» hình ảnh đại hội đoàn trường
» Kiếm tiền kiểu này hay và thiết thực nhỉ

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