I still don't understand, what you want to do.
Try this:
Sub Init
menuName = "&TLUPS"
addMenuItem "&Format Row To Block", menuName, "FormatRowToBlock", "CTRL+F3"
End Sub
Sub FormatRowToBlock
Set ed = newEditor()
ed.openFile("D:\MyProgramm\PSPad editor\Script\svn_xml.h")
ed.Highlighter("C")
Set ed = newEditor()
ed.openFile("D:\MyProgramm\PSPad editor\Script\VBScript\ListTransform.vbs")
ed.highlighter("MS VBScript")
End Sub
--
<http://forum.pspad.com/read.php?2,57827,58869>
PSPad freeware editor http://www.pspad.com