読者です 読者をやめる 読者になる 読者になる

インストール済みのフォントを見やすく一覧するPowerShellスクリプト(日本語対応版)

フォントを選ぶときに簡単に一覧を出したいと思い調べてみたら、インストール済みのフォントの一覧をIEブラウザに一覧してくれる大変便利なスクリプトが見つかりました。

https://technet.microsoft.com/en-us/library/ff730944.aspx

  ただ、これだと日本語特有のひらがな、カタカナ、漢字に対応できなかったので、少しだけ改造してみました。  

$Hiragana  = "あいうえお"
$Katakana  = "かきくけこ"
$Kanji     = "亜伊宇絵尾"
$Eigo      = "AIUEO"

[void] [System.Reflection.Assembly]::LoadWithPartialName("System.Drawing")
$objFonts = New-Object System.Drawing.Text.InstalledFontCollection
$colFonts = $objFonts.Families

$objIE = New-Object -com "InternetExplorer.Application"
$objIE.Navigate("about:blank")
$objIE.ToolBar = 0
$objIE.StatusBar = 0
$objIE.Visible = $True

$objDoc = $objIE.Document.DocumentElement.LastChild 
$strHTML = ""
$strHTML += '<table border="1" cellspacing="0" bordercolor="#000000" align="left">'
foreach ($objFont in $colFonts)
    {
        $style =    "style=`"font-size : 15px; font-family : $($objFont.Name)`""
        $strHTML += "<tr><td>$($objFont.Name)</td>"
        $strHTML += "<td $style>$Hiragana</td>"
        $strHTML += "<td $style>$Katakana</td>"
        $strHTML += "<td $style>$Kanji</td>"
        $strHTML += "<td $style>$Eigo</td>"
        $strHTML += "</tr>"
    }
$strHTML += "</table>"


$objDoc.InnerHTML = $strHTML

   

きれいに表示されました! これで今後はフォント選びが楽になりそうです。