//TRADOS翻訳メモリより対訳君インポートデータ作成
// ヘッダーを範囲選択して削除
gofiletop;	
beginsel;	
searchdown "</RTF Preamble>";
endsel;
delete;

//対訳区切り文字置換
gofiletop;
replaceallfast "</TrU>", "@@@"; 

//対訳行のタグを●に変更（temp）
gofiletop;
replaceallfast "<Seg L=[^>]+>","●",regular;

//タグで始まる行を削除
gofiletop;
replaceallfast "^<[^>]+>.*","",regular;

//空行を削除
gofiletop;
replaceallfast "^\n","",regular;

//●を削除
gofiletop;
replaceallfast "●","";

//TRADOSタグ残存チェック
gofiletop;
searchdown "{";
if (result==no)
{gofiletop;
message "変換処理は正常に終了しました。ファイルを保存して「対訳君」にインポートしてください。";
endmacro;
}
else {gofiletop;
message "処理は完了しましたが、クォテーションマークなどが文字化けしている可能性があります。検索語に半角中カッコ（{）を入力して検索してみてください。";
}