rem 手順
rem  TTEditの一括コピーでTQKozMinProVI-Regular.ttfからTQKozMinProVIb-Regular.ttfを作成。
rem  下記VB Script内の「C:\fontforge」を各自の環境に合はせて變更。
rem  當.txtを.vbsに改名。
rem  TateCopyOTF2TTF.vbsをダブル・クリックして實行。

Option Explicit
Dim objOTEditApp1, objOTEditDoc1, objTTEditApp2, objTTEditDoc2
Dim objFs, objText, objRe1
Dim wline, wmatches, witem

If MsgBox("實行しますか？", 4) = vbNO Then
  WScript.Quit
End If

Set objOTEditApp1 = CreateObject("OTEdit.Application")
objOTEditApp1.Visible = False
Set objOTEditDoc1 = objOTEditApp1.OpenFile("C:\fontforge\KozMinProVI-Regular.otf")

Set objTTEditApp2 = CreateObject("TTEdit.Application")
objTTEditApp2.Visible = True
Set objTTEditDoc2 = objTTEditApp2.OpenFile("C:\fontforge\TQKozMinProVIb-Regular.ttf", 0)

Set objFs = CreateObject("Scripting.FileSystemObject")
Set objText = objFs.OpenTextFile("C:\fontforge\tate107.txt")
Set objRe1 = New RegExp
objRe1.Pattern = "\s+"

Do While objText.AtEndOfStream <> True
  wline = objText.ReadLine
  wline = objRe1.Replace(wline, " ")
  wline = Trim(wline)
  witem = Asc(wline) + &H10000
  objOTEditDoc1.SetCode2 0, witem, True, False
  objTTEditDoc2.SetCode2 0, witem, True, False
  objTTEditDoc2.SelectAll
  objTTEditDoc2.Delete
  objOTEditDoc1.SelectAll
  objOTEditDoc1.Copy
  objTTEditDoc2.Paste
Loop

objOTEditDoc1.Close False, ""
objTTEditDoc2.CloseAskSave
objText.Close