コメントアウト挿入（START～END間）

コメントアウト開始タグから終了タグまで先頭に文字列を挿入する

/*←コメントアウト開始位置

--←挿入文字

*/←コメントアウト終了位置

'=========================================================
'機能名 : Function CommentOutRange
'引数   : pm_OutStart   コメントアウト開始位置
'       : pm_OutEnd     コメントアウト終了位置
'       : pm_strOut     挿入文字
'処理   : コメントアウト開始位置～終了位置を指定し、
'         その間に文字を挿入する
'=========================================================
Function CommentOutRange( pm_OutStart ,pm_OutEnd ,pm_strOut )

    '//チェック文字を検索（開始）
    SearchNext pm_OutStart,4
    StartLine = GetSelectLineFrom()

    '//チェック文字を検索（終了）
    SearchNext pm_OutStart,4
    StartLine = GetSelectLineFrom()

    '//開始位置と終了位置をMSGで出力
    MsgBox pm_OutStart & "　" & pm_OutEnd

    '//開始行に移動
    MoveCursor StartLine,1,0
    StartLine = StartLine + 1

    '//開始行から終了行までコメントアウト
    For i = StartLine To EndLine

    '//一行ずつ移動して、文字を挿入
    MoveCursor i,1,0
    InsText pm_strOut

    Next

End Function