ดูฟอนต์วในเครื่องจาก word
กระทู้เก่าบอร์ด อ.Yeadram

 656   2
URL.หัวข้อ / URL
ดูฟอนต์วในเครื่องจาก word

เคยมีอาจารย์ท่านหนึ่งในบอร์ดนี้ เขียน VB ใน word เพื่อดูฟอนต์ในเครื่องทั้งหมด โดยเรียงตามตัวอักษร หาดูแล้วไม่เจอ ไม่ทราบว่าท่านใดมีบ้างครับ หรือมีวิธีอื่นที่ดูได้ โดยเรียงฟอนต์ด้วยครับ
(ขออภัยครับที่จำชื่ออาจารย์ที่ทำไม่ได้)

2 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R23891
Private Sub listFonts()
    Dim wd As Object, fontID As Variant

    Set wd = CreateObject("Word.Application")

    For Each fontID In wd.FontNames
        Me.List1.AddItem fontID
    Next
    wd.Quit
    Set wd = Nothing
End Sub

อันนี้คือไม่ Sort ถ้าจะ sort ก็เอาไปใส่ตารางแล้ว sort เอาครับ
2 @R23892
กรณีจะเลือก font ผมแนะนำให้ใช้ Win API จะดีกว่า เพราะทำงานได้เร็วกว่าการไปสร้างไฟล์ word แล้วไปดึงรายชื่อ font ออกมา

ตัวอย่างการใช้ Win API โหลดได้จาก

http://www.lebans.com/fontcolordialog.htm
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.2618s