Palm84 某所の日記

有為のクマにかくれり~

EdLeaf(EdTex)用 table 作成マクロ

作ってみました。しかし、新規ファイルへの書き出し方法がわからなくて・・・取り扱い注意です(汗。

  1. Excel(または、Tab区切り+改行テキスト)で表作成
  2. 新規ファイルへり貼り付け(※「すべて選択」で処理する為)
  3. マクロ実行

【ご注意追記】行が折り返し表示になっているとうまく処理できません。作り直さないと・・・すみません。

// 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