'################################################### ' タブインデント解除マクロ(WSH) '  TjSoft-24X, Taiju, 2007.8.26、修正 9.24 ' 【使い方】 '  選択テキストをタブインデント解除する。 '  インデントにより文字が削除される場合が '  あるのを改めた。 '################################################### myStr = Editor.GetSelText Set objRegExp = New RegExp objRegExp.Pattern = "[^Chr(9)]" With objRegExp .IgnoreCase = True End with For Each sStr In Split(myStr,Chr(10)) If sStr = "" Or Left(sStr,1) <> Chr(9) Then conStr = conStr & sStr & vbCr Else repStr = "" sStr = objRegExp.Replace(sStr, repStr) conStr = conStr & sStr & vbCr End If Next '最後の改行を取り除く。 conStr=Left(conStr, Len(conStr) - 1) myStr = Editor.SetSelText(conStr)