CSDN论坛 > Delphi > VCL组件开发及应用

请高手指教DELPHI里面操作WORD的问题 [问题点数:31分,结帖人sxgs]

Bbs3
本版专家分:553
结帖率 100%
CSDN今日推荐
Bbs3
本版专家分:553
Bbs3
本版专家分:553
Bbs3
本版专家分:553
Bbs8
本版专家分:31206
Blank
进士 2001年 总版技术专家分年内排行榜第八
Blank
铜牌 2001年5月 总版技术专家分月排行榜第三
2001年4月 总版技术专家分月排行榜第三
Blank
红花 2001年5月 Delphi大版内专家分月排行榜第一
2001年4月 Delphi大版内专家分月排行榜第一
2001年3月 Delphi大版内专家分月排行榜第一
2001年2月 Delphi大版内专家分月排行榜第一
2001年1月 Delphi大版内专家分月排行榜第一
2000年12月 Delphi大版内专家分月排行榜第一
Blank
蓝花 2000年11月 Delphi大版内专家分月排行榜第三
Bbs1
本版专家分:55
匿名用户不能发表回复!
其他相关推荐
请高手指教。
小弟想入门DELPHI 请问从那里入手比较好。
delphi对Word操作
在delphi中使用createoleobject方法对word文件进行操作 使用CreateOleObject方法对WORD文档操作具有先天所具备的优势,与delphi所提供的那些控件方式的访问相比,CreateOleObject方法距离WORD核心的操作“更近”,因为它直接使用OFFICE所提供的VBA语言对WORD文档的操作进行编程。 以下是我在本机上所做的实验,机器软件配置如下: Windows XP+delphi7.0+OFFICE 2003 这个程序很简单,在页面上放置了一个edit和一个button,每单击一次按钮,就会自动把edit中的内容添加在后台中的word文档中,程序关闭时文件自动保存在当前程序的主目录中。
Delphi操作Word的方法
Delphi操作Word的方法 一、VBA代码含义 Microsoft Word是一个集成化环境,是美国微软公司的字处理系统,但是它决不仅仅是一个字处理系统,它集成了Microsoft Visual Basic,可以通过编程来实现对Word功能的扩展。 Microsoft Visual Basic在word中的代码即Word的宏,通过编写Word宏,可实现一些文档处理的自动化,如实现
在Delphi中很精确地控制生成的WORD文档的格式
var    WordApplication1: TWordApplication; 通过以下的方式就可以在DELPHI中很精确地控制生成的WORD文档的格式。     //-----------------打开WORD-------------------------------      Wordapplication1.visible := true;    //显示WROD    
delphi 多步操作产生错误(转)
多步操作产生错误。请检查每一步的状态值 今天填写一个数定,换行就报这个错。在网上查了一些资料。有以下三种看法。 1.无主键 2.字段允许为空 3.字段类型不匹配 试了前二种不是的,第三种才解决问题。原来我在后台把数据类型设置在Decimal(16,16),就是说只允许16位小数啦,点号左边有数就报错啦。 附:Decimal的官方定义 decimal[(p[, s])] 和 numer
Delphi 名站以及高手Blog
http://cnblogs.com/del (万一兄的,这个不用解释了) http://www.cnblogs.com/del/archive/2010/04/25/1720750.html  万一的博客总目录(2007.11.12 - 2010.4.25) http://cnblogs.com/dxsoft (不得闲,很多原创,但现在不怎么更新了) http://blog.c
Delphi操作Word中的表
Procedure GetWordCellStr; var     WordApp: TWordApplication;     WordDoc: TWordDocument;     DocInx,FileName,CfCversions,IsReadOnly,AddToRctFiles,PswDocument,     PswTemplate,Revert,WPswDocument,
delphi向word写入数据
1.所需的三个控件: ChooseWA: TWordApplication; ChooseWD: TWordDocument; ChooseWF: TWordFont; 2.检查计算机是否安装了WORD try ChooseWA.Connect; except MessageBox(handle,'无法链接,请确认电脑上是否安装Word XP/2003及以上版本','连接出错', MB_Ok or MB_ICONERROR); Abort; end; 3.关闭WORD拼写检查 //因为Word进行拼写检查需要很多时间,所以首先关闭检查 ChooseWA.Options.CheckSpellingAsYouType := False; ChooseWA.Options.CheckGrammarAsYouType := False; 4.新建一个文档并设置文档的标题 var NewDocument: _Document; ItemIndex: OleVariant; ItemIndex := 1; NewDocument := ChooseWA.Documents.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam); ChooseWD.ConnectTo(NewDocument); ChooseWD.Windows.Item(ItemIndex).Caption := '我新建的第一个文档';//此文档的第一个窗口的标题,试卷 名称 5.写入数据 ChooseWD.Range.InsertAfter('第一行数据'+#13);//#13代表换行 6.设置字体格式 procedure SetFont(aBold,aItalic,aShadow,aSize:integer); begin ChooseWF.ConnectTo(ChooseWD.Sentences.Get_Last.Font); ChooseWF.Name := '宋体'; ChooseWF.Bold := aBold; ChooseWF.Italic := aItalic; ChooseWF.Shadow := aShadow; ChooseWF.Size := aSize; end; 如:SetFont(1,0,0,22);//设置字体为22号 7.向WORD中写入表格 (1)插入表格: ChooseWD.Tables.Add(ChooseWD.Words.Last, RowNum, ColNum,EmptyParam,EmptyParam);//RowNum为行数, ColNum为列数 (2)插入数据: ChooseWD.Tables.Item(1).Cell(1,1).Range.Text := '第一行第一列'; ChooseWD.Tables.Item(1).Cell(2,1).Range.Text := '第二行第一列'; 8.向WORD写入图片 var Img: TImage; MyFormat: Word; AData: Cardinal; APalette: HPALETTE; Img.Picture.LoadFromFile('文件路径');//从文件夹中导入图片至控件 Img.Picture.SaveToClipboardFormat(MyFormat,AData,APalette);//将图片转存到剪贴板中 Clipboard.SetAsHandle(MyFormat,AData);//将剪贴板中的图片复制出来,注意添加Clipbrd单元 ChooseWD.Sentences.Last.Paste;//在WORD中粘贴图片 9.在界面中显示WORD文档 ChooseWA.Visible:=true; 10.断开与WORD的链接 ChooseWA.Disconnect; ChooseWD.Disconnect; Chart1.SaveToBitmapFile(‘文件名.bmp’);
delphi操作word基类,插入表格,分页符,日期,页码,替换,图片
unit utMyword;(*By 闫磊 编写 2004.09.06 Email:landgis@126.com yanleigis@21cn.com*)interfaceuses word2000, ActiveX, Variants, Dialogs, SysUtils;type    TMyWord = class(TObject)    private
SliverLight图片轮换
SliverLight图片轮换, 高手请指教。谢谢
关闭
关闭