delphi操作word 有com接口啊,具体忘了,网上搜一下 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 最近我已做了一个类似的软件,delhi操作word要用到Vba。我给贴点东西,你看看对你有没有帮助:一些Word里VBA语法在delphi中的运用:1. 在Uses单元中一定要加入Comobj和WordXp单元。2. 定义和word有关的变量为Vatiant型,例如Var Fword,Fdoc :Variant;3. 首先创建一个Word的Application:FWord := CreateOleObject('Word.Application');4. 在创建了Word的Apllication后,就可以用这个Application创建word的文档了。例如:FDoc:= FWord.Documents.Add\Open(Template:='F:\专业型简历.dot');可以打开一个存在的模板或者文档。如果FDoc := FWord.Documents.Add;则将创建一个空白的文档,其加载模板为默认的Normal.dot;5. Fword.Visible可设置可设置打开的word程序是否可见,True为可见,false为不可见。6. Fdoc.AttachedTemplate可以返回文档加载的模板名。7. Fdoc.content.Font.Name :=’华文彩云’可以设置整个word文档的字体;8. Fdoc.saveas(‘路径\文件名’)可以保存当前的word文档。9. Fword.Documents 代表了所有文档的集合,要保存所有打开的文档,只需使用Fword.Documents.save。而Fword.documents.Close将关闭所有的文档,默认自动保存文档的改动。Fword.documents.close(savechanges :=WdDoNotSavechanges)将不保存直接退出。Savechanges := Wdsavechanges将保存所有的改动。10. 以下语句将打印文档的1~2页 FWord.ActiveDocument.PrintOut(Range:=WdPrintFromTo,From:='1',To:='2');11. FWord.Options.PrintHiddenText:=True;FWord.Activedocument.PrintOut; Fword的options属性可以在打印之前指定文档中要打印的内容。而PageSetup对象来设定页面的方向。例如下面的代码设定页面的方向为横向并打印相应的活动文档: Fword.Activedocument.pageSetUp.Orientation :=WdOrientLandScape;Fword.Activedocument.Printout;12. Wordapp.documents.Shapes.addpicture('D:\共享.bmp',SaveWithDocument := True, Left := X1, Top := y1); 这个问题我已经找到答案了, 那你知道不那,图片怎么浮于文字上方,和衬于文字上方吗???13.可以用Fdoc.sentences.item(i),去选中word文档中的第I个句子,同样可以用此方法去选中一个段落.注意只有range对象才有insertAfter方法。14.可以用Range.inertparagraphAfter方法插入一个段落。15.例子: Var Rng1:Variant; Rng1:=Fdoc.paragraphs(1).range; Rng1.collapse(direction:=WdcollapseEnd); Rng1.InsertAfter(‘New Text’); Rng1.InsertParagrphAfter; Rng1.Style:=WdStyleHeanding3;16.MoveEnd(Unit:=,count:=)可以移动结尾字符的位置重新定义一个区域。Unit是移动的单位,count指定移动单位的数目。17.在设定一个range对象后,对range.text赋值后可以覆盖这个区域。18.VBA Word中的Color值为WDCOlor颜色,如WDColorRed; 多看看Word2000.pas的源码,里面很全面,很清楚 为什么我无权给可用分 postren大哥:Indy /如何只用TIdUDPServer实现数据的发送和接受 一个非常奇怪的问题。。。。。! 关于读取内存信息全攻略!!! 应征Corba 各位来看一下我写的这点东西,能不能找到个工作呀 一个类型匹配的问题,edit1.text=3.4+5.6; 救命啊 !!!!???? 请问题在win2000p下用delphi6连sql server 2000 personal要加什么补丁? 插件啊!!!为何极少人懂?? 哪位朋友介绍一个学习fastreport的网站或教程~分全部送出~ keybd_event 可以模拟输入一行字符串吗?
1. 在Uses单元中一定要加入Comobj和WordXp单元。
2. 定义和word有关的变量为Vatiant型,例如Var Fword,Fdoc :Variant;
3. 首先创建一个Word的Application:FWord := CreateOleObject('Word.Application');
4. 在创建了Word的Apllication后,就可以用这个Application创建word的文档了。例如:FDoc:= FWord.Documents.Add\Open(Template:='F:\专业型简历.dot');可以打开一个存在的模板或者文档。如果FDoc := FWord.Documents.Add;则将创建一个空白的文档,其加载模板为默认的Normal.dot;
5. Fword.Visible可设置可设置打开的word程序是否可见,True为可见,false为不可见。
6. Fdoc.AttachedTemplate可以返回文档加载的模板名。
7. Fdoc.content.Font.Name :=’华文彩云’可以设置整个word文档的字体;
8. Fdoc.saveas(‘路径\文件名’)可以保存当前的word文档。
9. Fword.Documents 代表了所有文档的集合,要保存所有打开的文档,只需使用
Fword.Documents.save。而Fword.documents.Close将关闭所有的文档,默认自动保存文档的改动。Fword.documents.close(savechanges :=WdDoNotSavechanges)将不保存直接退出。Savechanges := Wdsavechanges将保存所有的改动。
10. 以下语句将打印文档的1~2页
FWord.ActiveDocument.PrintOut(Range:=WdPrintFromTo,From:='1',To:='2');
11. FWord.Options.PrintHiddenText:=True;
FWord.Activedocument.PrintOut; Fword的options属性可以在打印之前指定文档中要打印的内容。而PageSetup对象来设定页面的方向。例如下面的代码设定页面的方向为横向并打印相应的活动文档:
Fword.Activedocument.pageSetUp.Orientation :=WdOrientLandScape;
Fword.Activedocument.Printout;
12. Wordapp.documents.Shapes.addpicture('D:\共享.bmp',SaveWithDocument := True,
Left := X1, Top := y1);
这个问题我已经找到答案了,
那你知道不那,图片怎么浮于文字上方,和衬于文字上方吗???
13.可以用Fdoc.sentences.item(i),去选中word文档中的第I个句子,同样可以用此方法去选中一个段落.注意只有range对象才有insertAfter方法。
14.可以用Range.inertparagraphAfter方法插入一个段落。
15.例子:
Var
Rng1:Variant;
Rng1:=Fdoc.paragraphs(1).range;
Rng1.collapse(direction:=WdcollapseEnd);
Rng1.InsertAfter(‘New Text’);
Rng1.InsertParagrphAfter;
Rng1.Style:=WdStyleHeanding3;
16.MoveEnd(Unit:=,count:=)可以移动结尾字符的位置重新定义一个区域。Unit是移动的单位,count指定移动单位的数目。
17.在设定一个range对象后,对range.text赋值后可以覆盖这个区域。
18.VBA Word中的Color值为WDCOlor颜色,如WDColorRed;