'-------------------------------------- ' 空行削除 ' TjSoft-54 Taiju 2007.11.9 ' 「真魚」エディタから実行する。 '-------------------------------------- str = Editor.GetSelText Set s = new RegExp With s .pattern = "\n+" .global = true End With str = s.Replace(str, vbCr) str = Editor.SetSelText(str)