◆ [VBScript] メモ帳のフォントを「MS ゴシック」「9pt」「装飾なし」にする
今朝は、朝から頭痛が痛い。どーもボキです。

レジストリを書き換えて、メモ帳のフォントを「MS ゴシック」「9pt」「装飾なし」に書き換えるスクリプト。
プロポーショナルフォントを使うやつぁ、わしゃSEとして認めんけぇの。
key  = "HKCU\Software\Microsoft\Notepad\"
font = "MS ゴシック"
Set objWS = CreateObject("WScript.Shell")
r = objWS.RegWrite(key & "lfFaceName", font, "REG_SZ") ' フォント
r = objWS.RegWrite(key & "lfItalic", 0, "REG_DWORD") ' イタリック 0/1
r = objWS.RegWrite(key & "lfWeight", 400, "REG_DWORD") ' ボールド 400/700
r = objWS.RegWrite(key & "lfStrikeOut", 0, "REG_DWORD") ' 取り消し線 0/1
r = objWS.RegWrite(key & "lfUnderline", 0, "REG_DWORD") ' 下線 0/1
r = objWS.RegWrite(key & "iPointSize", 90, "REG_DWORD") ' 9pt×10



[PR]
by yozda | 2012-10-21 18:19 | プログラミング | Trackback | Comments(0)
トラックバックURL : http://yozda.exblog.jp/tb/16636015
トラックバックする(会員専用) [ヘルプ]
<< スヤスヤ寝る子供達 [動画] 電話ごっこする娘 >>