delphi,word表格文字换行.doc

delphi,word表格文字换行 篇一：delphi 换行操作 我将我的商用《旅行社管理系统》的 发团通知 部分奉献给您，望对您有所帮助。 procedure TFrmMain.N327Click(Sender: TObject); var FWord :Variant; FDoc :Variant; strSQL :string; begin //首先创造对象,如果出现异常就做出提示 try FWord := CreateOleObject(#39;Word.Application#39;); //WOrd程序的执行是否可见，值为false时，程序在后台运行。 FWord.Visible := True; except messagebox(0,#39;创建word对象失败！#39;,#39;警告#39;,MB_OK+MB_ICONINFORMATION); exit; end; strSQL :=#39;select * From B_T_Company_Infor#39;; with dm.ClientDataSet_Temp do begin if Active then Active:=False; CommandText:=strSQL; Open; end; //现在打开的Word中，创建一个新的页面，然后在其中键入需要的内容 try FDOC :=FWord.Documents.Add; {对于Word的新页面} FWord.Selection.Font.Name :=#39;宋体#39;; FWord.Selection.Font.Size :=20; FWord.Selection.Font.Bold :=2; FWord.Selection.paragraphs.Alignment := wdAlignParagraphCenter; FWord.Selection.TypeText(dm.ClientDataSet_Temp.Fields[0].AsString); FWord.Selection.Typeparagraph;//换行 FWord.Selection.Typeparagraph; FWord.Selection.paragraphs.Alignment := wdAlignParagraphLeft; FWord.Selection.Font.Size :=12; FWord.Selection.Font.Bold :=0; FWord.Selection.TypeText(#39; 现将我社组团部的#39;); FWord.Selection.TypeText(#39; #39;); FWord.Selection.TypeText(#39;团计划发出，各地请按下列行程做接待，并及早落实#39;+ #39;团队计划和选派优秀导游员。各地代订住宿、火车票、机票务必安排好接待，日程#39;+ #39;如有变更，及时与下站接待社或本社联系，各地接团时请举【#39;+ dm.ClientDataSet_Temp.Fields[0].AsString+#39;】接站牌。#39;); FWord.Selection.Typeparagraph;//换行 FWord.Selection.Typeparagraph;//换行 FWord.Selection.TypeText(#39;请速回传真确认，谢谢合作！#39;); FWord.Selection.Typeparagraph;//换行 FWord.Selection.Typeparagraph;//换行 FWord.Selection.TypeText(#39;人数：#39;); FWord.Selection.TypeText(#39;人数：#39;); FWord.Selection.TypeText(#39;国籍：#39;); FWord.Selection.TypeText(#39;国籍：#39;); FWord.Selection.TypeText(#39;等级：#39;); FWord.Selection.TypeText(#39;等级：#39;); FWord.Selection.Typeparagraph;//换行 FWord.Selection.TypeText(#39;这里是团队安排#39;); FWord.Selection.Typeparagraph;//换行 FWord.Selection.Typeparagraph;//换行 FWord.Selection.TypeText(#39;TO: