Chào mừng quý vị đến với WEBSITE-Bùi Văn Tiến-thpt Buôn Ma Thuột.
Quý vị chưa đăng nhập hoặc chưa đăng ký làm thành viên, vì vậy chưa thể tải được các tư liệu của Thư viện về máy tính của mình.
Nếu chưa đăng ký, hãy đăng ký thành viên tại đây hoặc xem phim hướng dẫn tại đây
Nếu đã đăng ký rồi, quý vị có thể đăng nhập ở ngay ô bên phải.
Gốc > Tin học tổng hợp >
30. Trình diển tất cả các loại Font thông qua Microsoft Word
30. Trình diển tất cả các loại Font thông qua Microsoft Word
Đọan mã sau sẽ sử dụng Microsoft 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ể nhận biết các lọai font chữ trên máy tính của mình rất dể dàng mà
không sử dụng bất cứ phần mềm xem font chữ hổ trợ nào .
Mở Notepad và chép đọan mã sau vào :
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 "0913722650 0919324832 0913696000 0913650651" & 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
Bùi Văn Tiến @ 06:58 28/02/2009
Số lượt xem: 1294
Đọan mã sau sẽ sử dụng Microsoft 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ể nhận biết các lọai font chữ trên máy tính của mình rất dể dàng mà
không sử dụng bất cứ phần mềm xem font chữ hổ trợ nào .
Mở Notepad và chép đọan mã sau vào :
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 "0913722650 0919324832 0913696000 0913650651" & 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
Bùi Văn Tiến @ 06:58 28/02/2009
Số lượt xem: 1294
Số lượt thích:
0 người
- 29. Thêm một số công cụ khi nhấn chuột phải vào My Computer (28/02/09)
- 28. Thay đổi thông tin đăng ký người dùng trong System Properties (28/02/09)
- 27. Tắt Cảnh Báo Security Center trong Windows XP SP2 (28/02/09)
- 26. Đưa các khay đĩa ra bằng một cú nhấp chuột (28/02/09)
- 25. Mất chức năng Start Menu trong Taskbar Properties (28/02/09)
HOA NGHỆ THUẬT
Các ý kiến mới nhất