------------------------------------------------------------------
else if ( ans == 3 )
{
    if(Block() == 0) // 文章全体の置換
      SetRep(0x04 | 0x40);
    else // 選択範囲の置換
      SetRep(0x04 | 0x18 | 0x40);

    SetFindS("『");
    SetRepS("「");
    Replace();

    SetFindS("』");
    SetRepS("」");
    Replace();
    if(Block() != 0) // 選択範囲の置換
      Select(0); // 選択解除
}
------------------------------------------------------------------

------------------------------------------------------------------
        LoadPrFile(prtbl[ans]);   // 印刷書式ファイルを変更する
------------------------------------------------------------------
の行の後に以下のように break; 文を入れれば良いです。
------------------------------------------------------------------
        LoadPrFile(prtbl[ans]);   // 印刷書式ファイルを変更する
        break;
------------------------------------------------------------------

------------------------------------------------------------------
    char *ptex2pdf = "c:\\ptex\\bin\\ptex2pdf -l -od \"-f ptex-ipaex.map\"" ;
    char *TexWorks = "c:\\ptex\\share\\texworks\\TexWorks.exe";
------------------------------------------------------------------

------------------------------------------------------------------
    else // pdfの作成に失敗
      Message("pdfの作成に失敗しました");
------------------------------------------------------------------

------------------------------------------------------------------
    dhFile = CreateFile(pfname, GENERIC_READ, 0,
        (void*)NULL, OPEN_EXISTING, 0, (HANDLE)NULL);
    if(dhFile != -1) // pdf
    { // .pdf は存在
      GetFileTime(dhFile, (void*)NULL, (void*)NULL, &dft);
      CloseHandle(dhFile);
    
      if(CompareFileTime(&sft, &dft) < 0) // pdfが更新されているなら表示
        ShellExecute(Handle(), "open", pfname, NULL, NULL, SW_SHOWNORMAL);
    }
    else // pdfの作成に失敗
      Message("pdfの作成に失敗しました");
    SetCurDirectory(dir);
------------------------------------------------------------------

------------------------------------------------------------------
#define MAXMENU 15
#define XWIDE 60 // １行の長さを指定します
// 行頭禁則文字を指定します
char *ps=" ､｡,.:;!?)]}｣-、。, ．：；！？）〕］｝〉》」』】’″";
// 行末禁則文字を指定します
char *pe="([{｢（〔［｛〈《「『【‘″";
int cp, smode;

main()
{
    char *s[MAXMENU];
    int ans;

    s[0] = " 色付け（終了）";
    s[1] = "";
    s[2] = " red";
    s[3] = " ForestGreen";
    s[4] = " MidnightBlue";
    s[5] = " RoyalBlue";
    s[6] = " CadetBlue";
    s[7] = " SteelBlue";
    s[8] = " DarkOrange";
    s[9] = " chocolate";
    s[10] = " CornflowerBlue";
    s[11] = " DeepPink";
    s[12] = " magenta";
    s[13] = "";
    s[14] = " マクロ画面";

    PostMessage(Handle(), 0x100, 0x28, 0);
    ans = MenuXY(s, MAXMENU, 750, 450);

    char texcmd[100];
    char str[10000];
    int cps, len;
    int sIns = Ins();
    int sInd = Indent();

    if(ans == 0 || ans > 12)
      return;
    if(ans == 12) // マクロ画面を開く
    {
      Open("C:\\MmEditor\\MAM\\RGB.MAM");
      return;
    }

    if(Block() == 0) // 範囲選択なしなら
    {
      Message("範囲を選択して下さい。");
      return;
    }

    smode = 1;
    InsMode(1);
    AIndent(0);

    sprintf(texcmd, "\\textbf{\\%s", &s[ans+1][1]);
    strcat(texcmd, "{%s}}");

    GetSelText(str, sizeof(str) - 30);
    len = strlen(str) + strlen(texcmd) - 2;
    Delete();
    sprintf(str, texcmd, str);
    PutStr(str);

    InsMode(sIns);
    AIndent(sInd);
}
------------------------------------------------------------------

------------------------------------------------------------------
#define MAXMENU 15
#define XWIDE 60 // １行の長さを指定します
// 行頭禁則文字を指定します
char *ps=" ､｡,.:;!?)]}｣-、。, ．：；！？）〕］｝〉》」』】’″";
// 行末禁則文字を指定します
char *pe="([{｢（〔［｛〈《「『【‘″";
int cp, smode;

main()
{
    char *s[MAXMENU];
    int ans;

    s[0] = " 色付け（終了）";
    s[1] = "";
    s[2] = " red";
    s[3] = " ForestGreen";
    s[4] = " MidnightBlue";
    s[5] = " RoyalBlue";
    s[6] = " CadetBlue";
    s[7] = " SteelBlue";
    s[8] = " DarkOrange";
    s[9] = " chocolate";
    s[10] = " CornflowerBlue";
    s[11] = " DeepPink";
    s[12] = " magenta";
    s[13] = "";
    s[14] = " マクロ画面";

    PostMessage(Handle(), 0x100, 0x28, 0);
    ans = MenuXY(s, MAXMENU, 750, 450);

    char texcmd[100];
    char str[20010];
    int cps, len;
    int sIns = Ins();
    int sInd = Indent();

    if(ans == 0 || ans > 12)
      return;
    if(ans == 12) // マクロ画面を開く
    {
      Open("C:\\MmEditor\\MAM\\RGB.MAM");
      return;
    }

    if(Block() == 0) // 範囲選択なしなら
    {
      Message("範囲を選択して下さい。");
      return;
    }

    smode = 1;
    InsMode(1);
    AIndent(0);

    sprintf(texcmd, "\\textbf{\\%s", &s[ans+1][1]);
    strcat(texcmd, "{%s}}");

    GetSelText(str, sizeof(str) - 10);
    len = strlen(str) + strlen(texcmd) - 2;
    Delete();
    sprintf(str, texcmd, str);
    PutStr(str);

    while(Cecp() > 0 && Tcode() > 1) // 段落の先頭へ移動
      Left();
    if(Cecp() > 0)
      Right();

    cps = Cecp();
    while(Linestat() >= 0 && (Tcode() > 1 || Col() > 1))
      Right();
    cp = Cecp(); // 段落の終わりをcpへ得る
    GoCp(cps);

    while(Linestat() >= 0 && Cecp() < cp) // 段落を整形
      danraku();
    InsMode(sIns);
    AIndent(sInd);
}

// １段落を整形
void danraku()
{
    int n, num, xwide;

    num = 0;
    LEdge();
    if(Code() == 0x8140) // 段落の最初が全角スペースなら
    {
      while(Code() == 0x8140) // 全角スペースの連続数を数える
      {
        num++;
        Right();
      }
      LEdge();
    }
    while(1)
    {
      if(KbHit() == 0x1b) // [ESC]が押されたら中断
        break;
      GotoX(XWIDE + 1);
      if(Tcode() == 1) // 改行
      {
        Right();
        if(Tcode() > 1) // 改行の次が文字なら
        {
          while(Tcode() > 1) // 不要な改行があれば取り除く
          {
            Bs();
            cp -= 2;
            GotoX(XWIDE + 1);
            if(Tcode() != 1) // 改行ではないなら
              break;
            Right();
          }
        }
        else // 整形終了で、カーソル位置は次の段落の先頭へ
        {
          while(Tcode() == 1)
            Right();
          break;
        }
      }
      Left();
      if(StrChr(Code(), pe) == -1) // 行末禁則文字をチェック
      {
        Right();
        if(StrChr(Code(), ps) != -1) // 行頭禁則文字をチェック
          Right();
      }
      Ret();
      cp += 2;
      if(num > 1) // 行頭を n-1 字分インデント
      {
        for(n = num; n > 1; n--)
        {
          PutChr(0x8140);
          cp += 2;
        }
      }
      if(smode == 1 && Cecp() >= cp) // 選択範囲の終わりのチェック
        break;
      if(Tcode() == 0) // EOF
        break;
    }
    SetRep(0x46);
    SetFindS("″");
    SetRepS("″");
    Replace();

    SetRep(0x46);
    SetFindS("″");
    SetRepS("″");
    Replace();
}
------------------------------------------------------------------

------------------------------------------------------------------
#define MAXMENU 15
#define XWIDE 60 // １行の長さを指定します
// 行頭禁則文字を指定します
char *ps=" ､｡,.:;!?)]}｣-、。, ．：；！？）〕］｝〉》」』】’″";
// 行末禁則文字を指定します
char *pe="([{｢（〔［｛〈《「『【‘″";
int cp, smode;

main()
{
    char *s[MAXMENU];
    int ans;

    s[0] = " 色付け（終了）";
    s[1] = "";
    s[2] = " red";
    s[3] = " ForestGreen";
    s[4] = " MidnightBlue";
    s[5] = " RoyalBlue";
    s[6] = " CadetBlue";
    s[7] = " SteelBlue";
    s[8] = " DarkOrange";
    s[9] = " chocolate";
    s[10] = " CornflowerBlue";
    s[11] = " DeepPink";
    s[12] = " magenta";
    s[13] = "";
    s[14] = " マクロ画面";

    PostMessage(Handle(), 0x100, 0x28, 0);
    ans = MenuXY(s, MAXMENU, 750, 450);

    char texcmd[100];
    char str[20000];
    int cps, len;
    int sIns = Ins();
    int sInd = Indent();

    if(ans == 0 || ans > 12)
      return;
    if(ans == 12) // マクロ画面を開く
    {
      Open("C:\\MmEditor\\MAM\\RGB.MAM");
      return;
    }

    if(Block() == 0) // 範囲選択なしなら
    {
      Message("範囲を選択して下さい。");
      return;
    }

    smode = 1;
    InsMode(1);
    AIndent(0);

    sprintf(texcmd, "\\textbf{\\%s", &s[ans+1][1]);
    strcat(texcmd, "{%s}}");

    cp = Cecp();
    GoBlok();
    int cps = Cecp();
    GoBlok();

    GetSelText(str, sizeof(str) - 30);
    len = strlen(str) + strlen(texcmd) - 2;
    Delete();
    sprintf(str, texcmd, str);
    PutStr(str);

    Select(0);
    cp = Cecp();
    GoCp(Cecp()-len);

    while(Linestat() >= 0 && (smode == 0 || Cecp() < cp))
      danraku();
    InsMode(sIns);
    AIndent(sInd);
}

// １段落を整形
void danraku()
{
    int n, num, xwide;

    num = 0;
    LEdge();
    if(Code() == 0x8140) // 段落の最初が全角スペースなら
    {
      while(Code() == 0x8140) // 全角スペースの連続数を数える
      {
        num++;
        Right();
      }
      LEdge();
    }
    while(1)
    {
      if(KbHit() == 0x1b) // [ESC]が押されたら中断
        break;
      GotoX(XWIDE + 1);
      if(Tcode() == 1) // 改行
      {
        Right();
        if(Tcode() > 1) // 改行の次が文字なら
        {
          while(Tcode() > 1) // 不要な改行があれば取り除く
          {
            Bs();
            cp -= 2;
            GotoX(XWIDE + 1);
            if(Tcode() != 1) // 改行ではないなら
              break;
            Right();
          }
        }
        else // 整形終了で、カーソル位置は次の段落の先頭へ
        {
          while(Tcode() == 1)
            Right();
          break;
        }
      }
      Left();
      if(StrChr(Code(), pe) == -1) // 行末禁則文字をチェック
      {
        Right();
        if(StrChr(Code(), ps) != -1) // 行頭禁則文字をチェック
          Right();
      }
      Ret();
      cp += 2;
      if(num > 1) // 行頭を n-1 字分インデント
      {
        for(n = num; n > 1; n--)
        {
          PutChr(0x8140);
          cp += 2;
        }
      }
      if(smode == 1 && Cecp() >= cp) // 選択範囲の終わりのチェック
        break;
      if(Tcode() == 0) // EOF
        break;
    }
    SetRep(0x46);
    SetFindS("″");
    SetRepS("″");
    Replace();

    SetRep(0x46);
    SetFindS("″");
    SetRepS("″");
    Replace();
}
------------------------------------------------------------------

------------------------------------------------------------------
#define XWIDE 60 // １行の長さを指定します
// 行頭禁則文字を指定します
char *ps=" ､｡,.:;!?)]}｣-、。, ．：；！？）〕］｝〉》」』】’″";
// 行末禁則文字を指定します
char *pe="([{｢（〔［｛〈《「『【‘″";
int cp, smode;

main()
{
    char *texcmd = "\\textbf{\\red{%s}}";
    char str[20010];
    int cps, len;
    int sIns = Ins();
    int sInd = Indent();

    smode = 1;
    InsMode(1);
    AIndent(0);

    if(Block() == 0) // 範囲選択なしなら
    {
      Message("範囲を選択して下さい。");
      return;
    }

    cp = Cecp();
    GoBlok();
    int cps = Cecp();
    GoBlok();

    GetSelText(str, sizeof(str) - 10);
    len = strlen(str) + strlen(texcmd) - 2;
    Delete();
    sprintf(str, texcmd, str);
    PutStr(str);

    Select(0);
    cp = Cecp();
    GoCp(Cecp()-len);

    while(Linestat() >= 0 && (smode == 0 || Cecp() < cp))
      danraku();
    InsMode(sIns);
    AIndent(sInd);
}

// １段落を整形
void danraku()
{
    int n, num, xwide;

    num = 0;
    LEdge();
    if(Code() == 0x8140) // 段落の最初が全角スペースなら
    {
      while(Code() == 0x8140) // 全角スペースの連続数を数える
      {
        num++;
        Right();
      }
      LEdge();
    }
    while(1)
    {
      if(KbHit() == 0x1b) // [ESC]が押されたら中断
        break;
      GotoX(XWIDE + 1);
      if(Tcode() == 1) // 改行
      {
        Right();
        if(Tcode() > 1) // 改行の次が文字なら
        {
          while(Tcode() > 1) // 不要な改行があれば取り除く
          {
            Bs();
            cp -= 2;
            GotoX(XWIDE + 1);
            if(Tcode() != 1) // 改行ではないなら
              break;
            Right();
          }
        }
        else // 整形終了で、カーソル位置は次の段落の先頭へ
        {
          while(Tcode() == 1)
            Right();
          break;
        }
      }
      Left();
      if(StrChr(Code(), pe) == -1) // 行末禁則文字をチェック
      {
        Right();
        if(StrChr(Code(), ps) != -1) // 行頭禁則文字をチェック
          Right();
      }
      Ret();
      cp += 2;
      if(num > 1) // 行頭を n-1 字分インデント
      {
        for(n = num; n > 1; n--)
        {
          PutChr(0x8140);
          cp += 2;
        }
      }
      if(smode == 1 && Cecp() >= cp) // 選択範囲の終わりのチェック
        break;
      if(Tcode() == 0) // EOF
        break;
    }
    SetRep(0x46);
    SetFindS("″");
    SetRepS("″");
    Replace();

    SetRep(0x46);
    SetFindS("″");
    SetRepS("″");
    Replace();
}
------------------------------------------------------------------

------------------------------------------------------------------
#define GENERIC_READ   (0x80000000L)
#define OPEN_EXISTING  3
#define SW_SHOWNORMAL  1
main()
{
    char *p, dir[300], fname[300], pfname[300], cfname[300], command[500];
    HANDLE shFile, dhFile;
    FILETIME sft, dft;
    char *ptex2pdf = "ptex2pdf -l -od \"-f ptex-ipaex.map\"" ;
    char *TexWorks = "TexWorks.exe";

    Save();
    GetFileName(fname);
    p = Strrchr(fname, '.');
    if(p == NULL || (Strcmpi(p+1, "tex") != 0 && Strcmpi(p+1, "dtx") != 0))
    {
      Message("このファイルの拡張子は tex ではありません。\n終了します。");
      return;
    }

    strcpy(pfname, fname);
    p = strrchr(pfname, '.');
    if(p)
      strcpy(p+1, "pdf");
    else
      strcat(pfname, ".pdf");

    shFile = CreateFile(pfname, GENERIC_READ, 0,
        (void*)NULL, OPEN_EXISTING, 0, (HANDLE)NULL);
    if(shFile != -1) // pdf
    { // .pdf は存在
      GetFileTime(shFile, (void*)NULL, (void*)NULL, &sft);
      CloseHandle(shFile);
    }

    p = strrchr(fname, '\\');
    strcpy(cfname, p+1);
    *p = '\0';
    GetCurDirectory(dir);
    SetCurDirectory(fname);
    sprintf(command, "%s %s", ptex2pdf, cfname);
    WinExec2(command);
    Sleep(2000); // 少し時間を置く
//Message(command);
    dhFile = CreateFile(pfname, GENERIC_READ, 0,
        (void*)NULL, OPEN_EXISTING, 0, (HANDLE)NULL);
    if(dhFile != -1) // pdf
    { // .pdf は存在
      GetFileTime(dhFile, (void*)NULL, (void*)NULL, &dft);
      CloseHandle(dhFile);
    
      if(CompareFileTime(&sft, &dft) < 0) // pdfが更新されているなら表示
        ShellExecute(Handle(), "open", pfname, NULL, NULL, SW_SHOWNORMAL);
    }
    SetCurDirectory(dir);
}
------------------------------------------------------------------

------------------------------------------------------------------
#define MenuSelect()   PostMessage(Handle(), 0x100, 0x28, 0)
main()
{
    int ans;
    char *ms[4];

    ms[0] = "現在のファイルをTeXで処理(&T)";
    ms[1] = "pdfをプレビュー(&V)";
    ms[2] = "";  // セパレータ
    ms[3] = "終  了(&E)";
    MenuSelect(); // メニューの一番上を選択表示する
    ans = Menu(ms, 4); // メニューの表示
    if(ans == 0)
      Compile();
    else if(ans == 1)
      Preview();
}

// コンパイル
void Compile()
{
    char *p, dir[300], fname[300], cfname[300], command[500];
    char *ptex = "platex";
    char *ppdf = "dvipdfmx -f ptex-ipaex.map";

    Save();
    GetFileName(fname);
    p = Strrchr(fname, '.');
    if(p == NULL || (Strcmpi(p+1, "tex") != 0 && Strcmpi(p+1, "dtx") != 0))
    {
      Message("このファイルの拡張子は tex ではありません。\n終了します。");
      return;
    }
    p = Strrchr(fname, '\\');
    Strcpy(cfname, p+1);
    *p = '\0';
    GetCurDirectory(dir);
    SetCurDirectory(fname);
    sprintf(command, "%s %s", ptex, cfname);
    WinExec2(command);

    p = Strrchr(cfname, '.');
    Strcpy(p+1, "dvi");
    sprintf(command, "%s %s", ppdf, cfname);
//Message(command);
    WinExec2(command);
    SetCurDirectory(dir);
}

// プレビュー
void Preview(void)
{
    int i;
    char *p, dir[300], fname[300], dfname[300], command[500];
    char *TexWorks = "TexWorks.exe";

    GetFileName(fname);
    p = Strrchr(fname, '\\');
    strcpy(dfname, p+1);
    *p = '\0';
    GetCurDirectory(dir);
    SetCurDirectory(fname);

    if((p = Strrchr(dfname, '.')) != NULL)
      strcpy(p+1, "pdf");

    sprintf(command, "%s %s", TexWorks, dfname);
//Message(command);
    WinExec2(command);
    SetCurDirectory(dir);
}
------------------------------------------------------------------

------------------------------------------------------------------
main()
{
    char *str, buf[10];
    int lnum, ec, cmode, col;
    int nbytes, ln, ans;
    
    str = ">>"; // str へ引用符を指定して下さい

    cmode = LineMode(); // 現在の行の数え方
    if(cmode == 1)
      SetLineMode(0); // 論理行モードへ

    ec = CurPsPos();
    SetCurPsPos(0); // 貼り付け後のカーソル位置は先頭へ
    lnum = Totalline();

    ClipPast(); // まず貼付けをおこないます
    lnum = Totalline() - lnum; // 引用符を書く行数
    ans = GetClipTextLen(&nbytes, &ln);
    if(ans != -1 && nbytes > 0)
    { // クリップボードの中の最後の文字が改行でないかを調べます
      ans = GetClipText(buf, nbytes - 1, 1); // 最後の文字の1文字を読込
      if(ans != -1 && buf[0] != 0x0d && buf[0] != 0x0a)
        lnum++;
    }

    while(lnum > 0)
    {
      LDEdge(); // 行頭へ移動して
      PutStr(str); // 引用符を書く
      
      for(;;)
      {
        Right();
        col = Col();
        if(col == 1)
          break;
        if(col >= Margin()-2)
        {
          Ret();
          PutStr(str); // 引用符を書く
        }
      }
      lnum--;
    }
    LDEdge(); // 行頭へ移動
    SetCurPsPos(ec);
    if(cmode == 1)
      SetLineMode(1);
}
------------------------------------------------------------------