>>data:6728 の件の英単語をキャピタライズするマクロです。

// Capitalize.ppa  by nasukoji  2008.07.29
// 半角英単語をキャピタライズする。
// 選択範囲がある場合、選択範囲内の単語を全てキャピタライズする。
// 選択範囲がない場合、カーソル位置以降の単語を1つキャピタライズする。
// 
// PPA.DLL を SAKURA.EXE と同じディレクトリに置いてください。
// マクロファイルの拡張子は.PPAとしてください。

var
    selectMode : integer;   // マクロ実行開始時の選択状態の記憶
    areaColmFrom : integer; // 選択範囲記憶用
    areaLineFrom : integer;
    areaColmTo : integer;
    areaLineTo : integer;
    temp : integer;         // 一時変数
begin
    // 選択モードを記憶する
    selectMode := S_IsTextSelected();

    // 選択範囲を記憶する
    areaColmFrom := S_GetSelectColmFrom();
    areaLineFrom := S_GetSelectLineFrom();
    areaColmTo   := S_GetSelectColmTo();
    areaLineTo   := S_GetSelectLineTo();

    // 選択範囲の左上にカーソルを移動する
    if( selectMode = 1 ) then   // 普通の選択
        S_Left()
    else if( selectMode = 2 ) then  // 矩形選択
        begin
            S_Copy();   // 矩形選択を完了させるためのダミー
            S_Left();   // 選択範囲の左上に移動する

            // 左上から右下となるように範囲を調整
            if( areaColmFrom > areaColmTo ) then
                begin
                    temp := areaColmFrom;
                    areaColmFrom := areaColmTo;
                    areaColmTo := temp;
                end;

            if( areaLineFrom > areaLineTo ) then
                begin
                    temp := areaLineFrom;
                    areaLineFrom := areaLineTo;
                    areaLineTo := temp;
                end;
        end;

−− つづく −−