まんぼう さんのサイトからＱＸマクロのコーナーがなくなったみたいですねえ。
こんなんでいいでしょうか。テスト不足かもしれません。あと１行長さなどは環
境にあわせて変更してください。

'すぐ下に１行追加でアンダーライン 2001/09/20 Kabuneko

proc main
if @hwnd = 0 then exit proc
if @Select = 0 then exit proc
dim m, n
'選択文字列のバイト数を取得
m = lenb(@TextSelect$)
'選択された文字列が長すぎるか１行が長すぎるとき中止
if m > 80 or lenb(@TextCr$(@Line)) > 80 then exit proc
@UndoBlock = 1
'行のなかでの選択開始位置を取得
n = instrb(@TextCr$(@Line),@TextSelect$)
@Select = 0
@MoveEndLine
@CharReturn2
@Insert space$(n-1)
@Insert string$(m,`~`)
@UndoBlock = 0
end proc