完成将vc利用word对象的排序功能对输入的汉字进行排序

AfxOleInit();//初始化一个com对象

//以下是完成将利用word对象的排序功能对输入的汉字进行排序

#include "msword.h"
#include <atlbase.h>
BSTR CWordocx5Ctrl::sortword(LPCTSTR str)
{
CString strResult=str;
// TODO: Add your dispatch handler code here
_Application app;//创建一个word对象
app.CreateDispatch(_T("Word.Application"));//启动word对象
app.SetVisible(FALSE);
Documents docs=app.GetDocuments();//获得文档对象
//初始化话文档参数值
CComVariant Template(_T("")),NewTemplate(false),DocumentType(0),Visible;
docs.Add(&Template,&NewTemplate,&DocumentType,&Visible);
Selection sel=app.GetSelection();//获得文档对象选区
//str.Trim();
if(strResult.IsEmpty())//判断字符串是否为空
{
return NULL;
}
//对输入的汉字进行排序
for(int i=0; i<strResult.GetLength()/2; i++)
{
sel.TypeText(strResult.Mid(i*2,2)+"/r/n");//两个字符表示一个汉字,对输入的汉字字符串进行处理
}
sel.WholeStory();//全部选择
/* 这是进行段落按汉字笔画排序的宏
Selection.Sort ExcludeHeader:=False, FieldNumber:="段落数", SortFieldType:= _
wdSortFieldStroke, SortOrder:=wdSortOrderAscending, FieldNumber2:="", _
SortFieldType2:=wdSortFieldSyllable, SortOrder2:=wdSortOrderAscending, _
FieldNumber3:="", SortFieldType3:=wdSortFieldSyllable, SortOrder3:= _
wdSortOrderAscending, Separator:=wdSortSeparateByTabs, SortColumn:=False, _
CaseSensitive:=False, LanguageID:=wdSimplifiedChinese, SubFieldNumber:= _
"段落数", SubFieldNumber2:="段落数", SubFieldNumber3:="段落数"
*/
CComVariant ExcludeHeader(false), FieldNumber(_T("段落数")), SortFieldType(5),
SortOrder(0), FieldNumber2(_T("")), SortFieldType2(3), SortOrder2(0),
FieldNumber3(_T("")),SortFieldType3(3), SortOrder3(0), Separator(0),
SortColumn(false), CaseSensitive(false), LanguageID(2052), SubFieldNumber(_T("段落数")),
SubFieldNumber2(_T("段落数")), SubFieldNumber3(_T("段落数"));
//COleVariant vOptional((long)DISP_E_PARAMNOTFOUND,VT_ERROR);//针对word2003参数补齐，声明
CComVariant BidiSort,IgnoreThe, IgnoreKashida,IgnoreDiacritics,IgnoreHe;
/*
在宏定义中 使用MsgBox显示定义的常量值
wdSortFieldStroke 5
wdSortOrderAscending 0
wdSortFieldSyllable 3
wdSortSeparateByTabs 0
wdSimplifiedChinese 2052
//MsgBox wdSortSeparateByTabs
*/
//排序
sel.Sort(
&ExcludeHeader, &FieldNumber, &SortFieldType, &SortOrder,
&FieldNumber2, &SortFieldType2, &SortOrder2, &FieldNumber3,
&SortFieldType3, &SortOrder3, &SortColumn, &Separator,
&CaseSensitive, &BidiSort, &IgnoreThe, &IgnoreKashida,
&IgnoreDiacritics,&IgnoreHe, &LanguageID, &SubFieldNumber,
&SubFieldNumber2, &SubFieldNumber3);
//对word文档中的汉字完成排序，可以使用sel.GetText()取得文本
//现在使用复制到剪贴板的方式
sel.Copy();
if(OpenClipboard())
{//从剪贴板取出排序后的文字
HGLOBAL hMem=::GetClipboardData(CF_TEXT);
//对获得的剪贴板对象加锁
LPCTSTR lp=(LPCTSTR)::GlobalLock(hMem);
strResult=lp;//取出数据
//释放锁
::GlobalUnlock(hMem);
CloseClipboard();//关闭剪贴板
strResult.Replace("/r/n"," ");//删除回车换行符
}
//释放资源
sel.ReleaseDispatch();
docs.ReleaseDispatch();
//初始化退出参数值
CComVariant SaveChanges(false),OriginalFormat,RouteDocument;
app.Quit(&SaveChanges,&OriginalFormat,&RouteDocument);
app.ReleaseDispatch();
return strResult.AllocSysString();
}