请问如何在一篇word文档的最后，添加新的一行或段落。

Question

请问如何在一篇word文档的最后，添加新的一行或段落。

Answer 1

_Application WordApp; //代表WORD程序
Documents docs; //代表一个WORD程序里的所有文档
_Document doc; //代表一个文档 if(!WordApp.CreateDispatch("Word.Application",NULL))//创建一个新的word程序
{
AfxMessageBox("创建ms_word服务失败");
exit(1);
} //让用户能够查看自动化的过程
WordApp.SetVisible(true);
//让docs和word程序连接，docs代表word中所有文档
docs=WordApp.GetDocuments();
COleVariant covOptional((long)DISP_E_PARAMNOTFOUND,VT_ERROR);
//用docs来打开一个文档，并将句柄返回给doc
doc=docs.Add(COleVariant(".\\ox.doc"),covOptional,covOptional,covOptional); Paragraph paragraph;//用来表示文档中某一段
Paragraphs paragraphs;//用来表示文档中所有段
paragraphs=doc.GetParagraphs();
paragraph=paragraphs.GetLast();//得到最后一段
Range r=paragraph.GetRange();

r.SetText("中国");//用这种方式可以加入文本

Answer 2

//前面的代码同gzshd(郁闷)兄
……
Paragraphs paragraphs;//用来表示文档中所有段
paragraphs=doc.GetParagraphs();long ParNum = paragraphs.GetCount();
Selection selection;
selection = WordApp.GetSelection();
CString temp1, temp2; 
temp1 = "4";
temp2.Format("%d", ParNum);
selection.MoveEnd((COleVariant)temp1, (COleVariant)temp2);
selection.MoveDown((COleVariant)temp1, (COleVariant)temp2, covOptional);
selection.TypeParagraph();
selection.TypeText("123456");

Answer 3

我上面的方法就是在其后添加一行，你可以试试，如果不行的话你也可以试试下面的代码：
Application WordApp; //代表WORD程序
Documents docs; //代表一个WORD程序里的所有文档
_Document doc; //代表一个文档 if(!WordApp.CreateDispatch("Word.Application",NULL))//创建一个新的word程序
{
AfxMessageBox("创建ms_word服务失败");
exit(1);
} //让用户能够查看自动化的过程
WordApp.SetVisible(true);
//让docs和word程序连接，docs代表word中所有文档
docs=WordApp.GetDocuments();
COleVariant covOptional((long)DISP_E_PARAMNOTFOUND,VT_ERROR);
//用docs来打开一个文档，并将句柄返回给doc
doc=docs.Add(COleVariant(".\\ox.doc"),covOptional,covOptional,covOptional); Paragraph paragraph;//用来表示文档中某一段
Paragraphs paragraphs;//用来表示文档中所有段
paragraphs=doc.GetParagraphs();
paragraph=paragraphs.GetLast();//得到最后一段
Range r=paragraph.GetRange();

r.SetText(r.GetText+"/r/n");//用这种方式可以加入文本
         paragraph=paragraphs.GetLast();//得到最后一段
Range r=paragraph.GetRange();
         r.SetText("abcd");