delphi 保存到word文档 delphi 生成word文档
delphi 怎样安全地保存密码到文件
用MD5加密吧，将正确的密码用MD5加密保存为ini，之后每次调用就将输入的密码用MD5加密然后和INI文件里的比较，一样就可以通过，这种方法我以前用过，而且也很容易，MD5加密是不可逆的，所以完全不用担心会被人破解，自己研究一下，很简单，不会的，再百度HI我，我给你例子……
在 Delphi 中怎样实现将文件保存到指定文件夹
uses FileCtrl; function SelectDirectory(var Directory: string； // 英文对话框 Options: TSelectDirOpts; HelpCtx: Longint): Boolean; overload; function SelectDirectory(const Caption: string； // 中文对话框 const Root: WideString; var Directory: string): Boolean; overload； //以下是Delphi帮助的Demo: uses FileCtrl; const SELDIRHELP = 1000; procedure TForm1.Button1Click(Sender: TObject); var Dir: string; begin Dir := "C:/MYDIR"； // 缺省为C:/MYDIR if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then Label1.Caption := Dir; // Dir返回选择的文件夹 end;...
请问在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宏病毒到现在的...
word文档无法保存,如何解决？
1、是否是文档被保护了？你打开“工具”-“选项”-“保存”，看下面的修改权限密码里面是否有密码，如果有说明你没有修改权限，所以你修改了不能保存的。
2、也可能是文件是只读的，那么你右键点击该文件图标，选“属性”将“只读”前复选框的勾去掉即可..........
word文件不能保存是什么原因？
原因和解决方法： 1.temp文件夹里文件过多，默认是c:\windows\temp下面，清理一下。
2.某些杀毒软件会产生这种错误，先卸载了试试。
3.尼姆达病毒修改了system32里的iched20.dll文件，从另外机器上，或安装光盘上拷个。
4.公式编辑器里的某个公式坏了，向上逐个删除法。
5.Ctl+A Ctl+C 关闭Wod程序 退出Wod后这些文本仍可用于其他程序 重新打开Wod程序 按Ctl+V 在使用wod编辑文件时，尤其是用公式编辑器输入公式时，当要保存时，Wod会弹出一个对话框说是磁盘空间已满，无法保存文件，可实际上磁盘上空间还很大，这是非常令人恼火的一件事情，下面的方法可能会帮助你。
这个方法是笨了点，不过肯定好用，我经常这么做了^_^）。
通常导致这个问题的原因是输入的公式，尤其最近输入公式，可以肯定的最近输入公式中的某一个或某几个： （1）首先将最近输入的片断剪切下来，并复制到一个新的文档中，然后再保存你的文件，如果还是不能保存，则继续剪切次近输入的文字，直到能保存为止； （2） 将新文档中的文字一小段一小段的向回COPY，并不断保存，这样你就能找出导致问题的地方，然后将其删除，重新输入有问题的地方就可以了，通常只是一个公式，这可以节省不少时间. 另外下面还有一个方法，也不错： 在【资源管理器】中右击安装有Windows系统的磁盘，在出现的快捷菜单中单击【属性】，将出现【属性】对话框，从【常规】选项卡中选择【磁盘清理】按钮，此时将出现如图11.2所示的【磁盘清理】对话框。
执行磁盘清理完毕以后，Windows会弹出一个新的对话框。
在【要删除的文件】框中选中【临时文件】选项，然后选择【确定】。
Windows将删除临时文件。
要人工删除临时文件，进入临时文件夹，删除任何旧的临时文件（临时文件以波浪号开始，以.tmp扩展名结束）.返回Wod，再次试着保存文件。
如果此时还不能正确保存文档，可以采取以下的方法，步骤如下： （l）按Ctl+A选定整个文档。
（2）按Ctl+C将整个文档复制到内存中。
（3）关闭Wod程序。
此时系统会提示：＂您将大量文本放在了"剪贴板"中，是否希望在退出Wod后这些文本仍可用于其他程序？＂。
（4）选择【是】按钮。
（5）重新打开Wod程序。
（6）按Ctl+V，将复制下来的文本粘贴到新文件中。
（7）命名并保存新的文件。
注意：在删除临时文件时，可能会出现一个对话框，提示不能删除正在使用的文件。
这是因为Windows运行的时候，需要不断地用到一些临时文件。
因而，在人工删除临时文件时，试着在开始时只删除几个文件，然后对桌面上的回收站进行清空。
否则可能无法删除所有选择的文件。
【怎么用文本打开文件】打开一个WORD文档,如何看出文档的名称...
20 Oct 2009 19:02:03 GMTTue, 20 Oct 2009 19:02:03 GMT60 07 May 2009 02:05:00 GMT 家肯定都是深恶痛绝的，往往我们只是去做修补，却忘了更重要的事情，那就是追溯根源，避免类似的不兼容再次出现。
在下不才，归纳几点html编码要素，望能指点各位： 1.文字本身的大小不兼容。
同样是font-size:14px的宋体文 字，在不同浏览器下占的空间是不一样的，ie下实际占高16px，下留白3px,ff下实际占高17px，上留白1px，下留白3px,opera下就更 不一样了。
解决方案：给文字设定 line-height 。
确保所有文字都有默认的 line-height 值。
这点很重要，在高度上我们不能容忍1px 的差异。
2.ff下容器高度限定，即容器定义了height之后，容器边框的外形就确定了，不会被内容撑大，而ie下是会被内容撑大，高度限定失效。
所以不要轻易给容器定义height。
delphi 如何将WORD转换为PDF
使用vba来指定保存的文件格式为pdf，当然前提必须已安装MS Office的PDF输出插件（默认应该有）procedure TForm1.btn1Click(Sender: TObject);varwdo,wdoc,wdocs : OleVariant;beginwdo := CreateOleObject("Word.Application");wdocs := wdo.Documents;wdoc := wdocs.Open("d:\test.docx");wdoc.ExportAsFixedFormat(OutputFileName:="d:\test.pdf", ExportFormat:=17);//查word的宏帮助{ OpenAfterExport:="True", OptimizeFor:="wdExportOptimizeForPrint", Range:="wdExportAllDocument", From:=1, To:=1, Item:="wdExportDocumentContent",IncludeDocProps:="True", KeepIRM:="True", CreateBookmarks:="wdExportCreateNoBookmarks", DocStructureTags:="True", BitmapMissingFonts:="True", UseISO19005_1:="False"); }end;