このマクロは、ウムラウト文字を $a 等で、または、$a などをウムラウトに一括置換するものです。UMLAUT.MAC等、適当なファイル名を付けて保存して下さい。
（マクロとしては単純です）
各種ワープロによって、ウムラウトの表示の仕方が違っているので、テキストデータとして保存するときには、ウムラウト文字を、$a $O などのように置き換えて保存する必要があります。
（$ は、=などでも構いません）
何故、ae ue のように置き換えないかと言うと、例えばue を一括してウムラウトにしてしまうと、Frauen とかの ue の連続も、ウムラウトになってしまうからです。
お役に立ちますかどうか、使ってみて下さい(^^)
（ブラウザ表示用の場合も、追加しました）
//ウムラウト文字をキーボードから直接入力できる文字に置換するマクロ
menu "☆フォント変更","☆テキスト→欧文文字","☆欧文文字→テキスト","☆テキスト→ＨＴＭＬ用","☆ＨＴＭＬ→テキスト";
if( result == 0 ) endmacro;
else if ( result == 1 ) {
config "f(Courier New) s16";
endmacro;
}
//文字が小さ過ぎる場合は、s の後の数字を大きくする
else if( result == 2 ) goto UMLAUT;
else if( result == 3 ) goto TEXT;
else if( result == 4 ) goto HTML;
else if( result == 5 ) goto TEXT2;
UMLAUT:
message "欧文フォントにします";
config "f(Courier New) s16";
$char = input ("置換文字を入力して下さい","$");
if (!result) endmacro;
title "置換中です";
replaceallfast $char +"A" ,"\xC4",casesense;
replaceallfast $char +"a" ,"\xE4",casesense;
replaceallfast $char +"O" ,"\xD6",casesense;
replaceallfast $char +"o" ,"\xF6",casesense;
replaceallfast $char +"U" ,"\xDC",casesense;
replaceallfast $char +"u" ,"\xFC",casesense;
replaceallfast $char +"s" ,"\xDF";
message "終了しました";
endmacro;
TEXT:
$char = input ("置換文字を入力して下さい","$");
if (!result) endmacro;
title "置換中です";
replaceallfast "\xC4",$char +"A",casesense;
replaceallfast "\xE4",$char +"a",casesense;
replaceallfast "\xD6",$char +"O",casesense;
replaceallfast "\xF6",$char +"o",casesense;
replaceallfast "\xDC",$char +"U",casesense;
replaceallfast "\xFC",$char +"u",casesense;
replaceallfast "\xDF",$char +"s";
message "終了しました";
endmacro;
HTML:
$char = input ("置換文字を入力して下さい","$");
if (!result) endmacro;
title "置換中です";
replaceallfast $char +"A" ,"Ä",casesense;
replaceallfast $char +"a" ,"ä",casesense;
replaceallfast $char +"O" ,"Ö",casesense;
replaceallfast $char +"o" ,"ö",casesense;
replaceallfast $char +"U" ,"Ü",casesense;
replaceallfast $char +"u" ,"ü",casesense;
replaceallfast $char +"s" ,"ß";
message "終了しました";
endmacro;
TEXT2:
$char = input ("置換文字を入力して下さい","$");
if (!result) endmacro;
title "置換中です";
replaceallfast "Ä",$char +"A",casesense;
replaceallfast "ä",$char +"a",casesense;
replaceallfast "Ö",$char +"O",casesense;
replaceallfast "ö",$char +"o",casesense;
replaceallfast "Ü",$char +"U",casesense;
replaceallfast "ü",$char +"u",casesense;
replaceallfast "ß",$char +"s";
message "終了しました";
endmacro;
ソースではブラウザ表示用に、& を & で表記してあります。