作ってみました。しかし、新規ファイルへの書き出し方法がわからなくて・・・取り扱い注意です(汗。
- Excel(または、Tab区切り+改行テキスト)で表作成
- 新規ファイルへり貼り付け(※「すべて選択」で処理する為)
- マクロ実行
【ご注意追記】行が折り返し表示になっているとうまく処理できません。作り直さないと・・・すみません。
// Start of EdTex Macro SelectAllString( ) ; InsertStringEx( 2 , "</td></tr>" ) ; SelectAllString( ) ; InsertStringEx( 1 , "<tr>\r\n<td>" ) ; ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , FALSE , "\\t" , "</td><td>" ) ; ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , FALSE , "</td></tr>" , "</td>\\n</tr>" ) ; InsertString( "\r\n</table>" ) ; KeyDown( VK_HOME , 2 ) ; InsertString( "<table class=\"\" summary=\"\">\r\n" ) ; InsertString( "<caption></caption>\r\n" ) ; ReplaceString( 2 , FALSE , TRUE , TRUE , TRUE , FALSE , FALSE , FALSE , "^<td>" , "\\t<td>" ) ; KeyDown( VK_END , 2 ) ; // End of EdTex Macro