如何使word实例选中所有文本?

Question

CLSID clsid;
CLSIDFromProgID(L"Word.Application", &clsid);  
CComPtr<IUnknown>  spUnk = NULL;
CComPtr<IDispatch> spDisp = NULL;
HRESULT hr = GetActiveObject(clsid, NULL, (IUnknown**)&spUnk);
if(SUCCEEDED(hr)) 
{
hr = spUnk->QueryInterface(IID_IDispatch, (void **)&spDisp);
if(SUCCEEDED(hr))
{
m_app.AttachDispatch(spDisp);
m_sel.AttachDispatch(m_app.GetSelection());
}
}像用上面的代码得到运行的WORD实例后,怎么让它word选中所有文本(相当于按下Ctrl+A).

Answer 1

_Application Word;
...
Selection sel = Word.GetSelection();
...
sel.WholeStory();