按照以下方法解决
void CTextCtrlPropertyPage02::OnButton1()
{
.....
// clr
CRichEditCtrl *pEdit = (CRichEditCtrl *)GetDlgItem(IDC_RICHEDIT1_TEXT);
CHARFORMAT cf;
ZeroMemory(&cf, sizeof(CHARFORMAT));
pEdit->SetSel(0, -1);
cf.dwMask = CFM_COLOR;
cf.cbSize = sizeof(CHARFORMAT);
pEdit->GetSelectionCharFormat(cf);
cf.dwEffects = 0;
cf.crTextColor = m_Font_Color;
pEdit->SetSelectionCharFormat(cf);
}