str = "" & vbCr _ & "" & vbCr _ & "" & String(2, vbCr) _ & "" & vbCr _ & "" & vbCr _ & "" & vbCr _ & "" & String(2, vbCr) _ & "" & vbCr _ & "" & vbCr _ & "" & vbCr & "_Taiju's Notebook" & vbCr & "" & vbCr _ & "" & vbCr _ & "" & vbCr _ & "" & vbCr _ & "
" & vbCr & " 1/[INDEX]" & vbCr _ & "[NEXT]" & vbCr _ & "
" & vbCr _ & "

" & vbCr _ & "
" & vbCr _ & "" & vbCr _ & "" & vbCr _ & "
" & vbCr _ & "(『』   
" & vbCr _ & "" & vbCr _ & "
" & vbCr _ & "
" & vbCr _ & "" & vbCr & String(2," ") _ & "" & vbCr & String(2," ") _ & "" & vbCr & String(2," ") _ & "" & vbCr _ & "" & vbCr _ & "
" & vbCr _ & "
" & vbCr _ & "[TOP]" & vbCr _ & "
" & vbCr _ & "

" & String(2, vbCr) _ & "
" & String(3, vbCr) & "
" & String(5, vbCr) _ & "" _ & "
" & vbCr _ & "" & vbCr & String(2," ") _ & "" & vbCr & String(2," ") _ & "" & vbCr & String(2," ") _ & "" & vbCr _ & "" & vbCr _ & "
" & vbCr _ & "
" & vbCr _ & "[INDEX]" & vbCr & "[NEXT]" _ & "
" & vbCr _ & "" & vbCr _ & "" str = Editor.SetSelText( str )