社区
Delphi
帖子详情
我使用twordapplication控件,如何取得当前编辑文件的文件名
happy1123
2004-03-31 02:58:27
如标题
...全文
116
2
打赏
收藏
我使用twordapplication控件,如何取得当前编辑文件的文件名
如标题
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
2 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
flyye
2004-09-13
打赏
举报
回复
我试了,好像不行
8341
2004-06-25
打赏
举报
回复
好象不可能啊,因为有可能还没有文件名呢!比如你双击编辑一个新文档时。
使用
Delphi 7控制
Word
2000生成文档的方法.rar_Delphi
word
2000_delphi 生成
word
_w
使用
Delphi 7控制
Word
2000生成文档的方法.
delphi 图标 学习资料
delphi 图标 学习资料 编程 100例子 等等
delphi向
word
写入数据
1.所需的三个
控件
: ChooseWA: T
Word
Application
; ChooseWD: T
Word
Document; ChooseWF: T
Word
Font; 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.
Word
s.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 7控制
Word
2000生成文档的方法
最近帮同学用Delphi 7写的一个数据库应用中的一个功能是将查询的结果导出到一个
Word
文档中保存。虽然Delphi 7的Servers面板中提供了T
Word
Application
和T
Word
Document组件,但是帮助中却几乎没有写它们的
使用
方法。于是在中国期刊网上down了许多的相关文章来看,只可惜几乎都是用Delphi 5写的(Delphi 7中不能兼容),而且都只是简单的介绍了一下,甚
DELPHI第三方
控件
及组件大全(安装方法与
使用
)
一,DELPHI第三方
控件
安装方法介绍 1、对于单个
控件
,Componet–>install component..–>PAS或DCU
文件
–>install; 2、对于带*.dpk
文件
的
控件
包,File–>Open(下拉列表框中选*.dpk)–>install即可; 3、对于带*.bpl
文件
的
控件
包,Install Packages–>Add–>bpl
文件
名
即可; 4、如果以上Install按钮为失效的话,试试Compile按钮; 5、是run time
Delphi
5,927
社区成员
262,931
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章