delphi调用word delphi 调用dll

delphi中把查询出来的数据导入word中？

我将我的商用《旅行社管理系统》的发团通知部分奉献给您，望对您有所帮助。

procedure TFrmMain.N327Click(Sender: TObject); var FWord :Variant; FDoc :Variant; strSQL :string; begin //首先创造对象，如果出现异常就做出提示 try FWord := CreateOleObject('Word.Application'); //WOrd程序的执行是否可见，值为false时，程序在后台运行。

FWord.Visible := True; except messagebox(0，'创建word对象失败！'，'警告'，MB_OK+MB_ICONINFORMATION); exit; end; strSQL :='select * From ＂B_T_Company_Infor＂'; 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 ：='宋体'； 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（' 现将我社组团部的'）； FWord.Selection.TypeText(' '); FWord.Selection.TypeText（'团计划发出，各地请按下列行程做接待，并及早落实'+ '团队计划和选派优秀导游员。

各地代订住宿、火车票、机票务必安排好接待，日程'+ '如有变更，及时与下站接待社或本社联系，各地接团时请举【'+ dm.ClientDataSet_Temp.Fields[0].AsString+'】接站牌。

'）； FWord.Selection.Typeparagraph；//换行 FWord.Selection.Typeparagraph；//换行 FWord.Selection.TypeText（'请速回传真确认，谢谢合作！'）； FWord.Selection.Typeparagraph；//换行 FWord.Selection.Typeparagraph；//换行 FWord.Selection.TypeText（'人数：'）； FWord.Selection.TypeText（'人数：'）； FWord.Selection.TypeText（'国籍：'）； FWord.Selection.TypeText（'国籍：'）； FWord.Selection.TypeText（'等级：'）； FWord.Selection.TypeText（'等级：'）； FWord.Selection.Typeparagraph；//换行 FWord.Selection.TypeText（'这里是团队安排'）； FWord.Selection.Typeparagraph；//换行 FWord.Selection.Typeparagraph；//换行 FWord.Selection.TypeText('TO: '); FWord.Selection.TypeText('12345678901234567890'); FWord.Selection.Typeparagraph；//换行 FWord.Selection.TypeText('TEL: '); FWord.Selection.TypeText('12345678901234567890'); FWord.Selection.Typeparagraph；//换行 FWord.Selection.TypeText('FAX: '); FWord.Selection.TypeText('12345678901234567890'); FWord.Selection.Typeparagraph；//换行 FWord.Selection.Typeparagraph；//换行 FWord.Selection.TypeText('______________________________________________'); FWord.Selection.Typeparagraph；//换行 FWord.Selection.Typeparagraph；//换行 FWord.Selection.TypeText('FROM: '); FWord.Selection.TypeText(dm.ClientDataSet_Temp.Fields[0].AsString); FWord.Selection.Typeparagraph；//换行 FWord.Selection.TypeText('TEL: '); FWord.Selection.TypeText(dm.ClientDataSet_Temp.Fields[3].AsString); FWord.Selection.Typeparagraph；//换行 FWord.Selection.TypeText('FAX: '); FWord.Selection.TypeText(dm.ClientDataSet_Temp.Fields[4].AsString); FWord.Selection.Typeparagraph；//换行 Except on e: Exception do Messagebox(0,Pchar(e.Message)，'警告'，MB_OK+MB_ICONINFORMATION); end； //保存文档 FWord.Caption ：= '组团计划保存在： '+ExtractFilePath(application.ExeName)+'Reports\GroupPlan.doc'; FDOC.SaveAS(ExtractFilePath(application.ExeName)+'Reports\GroupPlan.doc'); if messagebox(0，'组团计划已经保存成功！'+chr(13)+chr(13)+ '单击【确定】退出Word，返回到程序中！'，'您确信要退出Word吗？'， MB_YESNO+MB_ICONINFORMATION+MB_DEFBUTTON2)=IDYES then begin FWord.Quit; FWord := Unassigned; end; end; ----------------------------- Delphi与Word之间的融合技术（1）一、VBA代码含义 Microsoft Word是一个集成化环境，是美国微软公司的字处理系统，但是它决不仅仅是一个字处理系统，它集成了Microsoft Visual Basic，可以通过编程来实现对Word功能的扩展。

Microsoft Visual Basic在word中的代码即Word的宏，通过编写Word宏，可实现一些文档处理的自动化，如实现文档的自动备份、存盘等，可扩展Word文档的功能，因此，能够充分利用Word的特性，甚至使Word成为自己软件的一部分。

Word的宏既有有利的一部分，因为它能够帮助我们实现文档的自动化，但是Word的宏也不是纯粹的有利，有时它可能危害我们的文档、计算机系统甚至网络，从最开始的Taiwan NO1宏病毒到现在的...

在DELPHI 中使用 word 文档

这个问题难不住我~1.首先你可以使用ole 调用word ,将word内容在delphi界面显示出来。

2.然后利用word本身的‘宏’命令。

选择‘录制新宏’。

3.在宏录制状态下做你想做的操作（将字段插入word中你想要的任何地方）。

操作完毕后选择停止录制。

4.打开刚刚录制的‘宏’。

选择编辑，把VBA命令转换为delphi代码。

（其实你应该去大富翁看看，那里有很多答案）

如何用DELPHI中的WORD控件

WordRange:=WordDocument1.Range(aTemp,Position_b); vNumRows:=ADOQuery1.RecordCount; vNumColumns:=ADOQuery1.FieldCount; WordDocument1.Tables.AddOld(WordRange,vNumRows,vNumColumns); WordTable:=WordDocument1.Tables.Item(item); T:=WordTable; WordTable:=nil;WordRange:=nil; vNumRows:=NULL(); { NULL() is in unit Variant } vNumColumns:=NULL(); ADOQuery1.First； {向表格插入数据库记录} i:=1; while not ADOQuery1.Eof do begin j:=0; while j begin T.cell(i,j+1).range.text:=ADOQuery1.Fields[j].AsString; inc(j); end; inc(i); ADOQuery1.Next; end; --------------------------------------------------------------- 在Word中用宏来画表格，然后把它的语句copy下来！在Delphi的OLE中调用就可以了！

在delphi中怎样可以快速的实现将图片粘贴到word

参考下我写的Memo按下Ctrl+A全选的：procedure TMain.Memo1KeyUp(Sender: TObject; var Key: Word;Shift: TShiftState);beginif (Shift = [ssCtrl]) and (Key=65) then //A对应65,B对应66，依次类推Memo1.SelectAll;end;

如何从javascript直接调用word插件

1、在word插件的onConnection事件里设置插件对象的object属性，我是用delphi写的procedure TWordTest.OnConnection(const Application: IDispatch; ConnectMode: ext_ConnectMode; const AddInInst: IDispatch; var custom: PSafeArray); begin COMAddIn(AddInInst).Object_ := Self; end; 2、在js里如下调用var addin = wdApp.COMAddIns.Item（＂插件名称＂）； //插件名称是在word中注册时用到的名称 if(addin != null){ addin.Object.Test(); } 另外，告诉大家一个在delphi里调试word插件的方法在OnConnection事件里弹出一个提示框，然后使用delphi的attach to process功能，在进程列表中选word，就可以调试了

转载请注明出处51数据库 » delphi调用word