问一个关于 delphi 操作word ，还有 olecontainer 内嵌 Word 的问题 :(

2005-05-17 12:34:57 443 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

简单的TOleContainer控件内嵌WORD 在做项目的时候，很容易碰到操作WORD的情况，delphi提供一种简单的方式利用TOleContainer控件内嵌WORD。如果在单一窗体里调用OLE很容易发生OLE把整个窗体都占据的情况。建立专用的OLE窗体来避免这样的情况放生，使OLE显示在第一个窗体指定的位置（panel）1.建立工程program Prj_OleContainer;usesForms,Unit_OleCon 阅读详情

1。问一个关于 delphi 操作word ，

var
oledoc,oleapp:variant;

oleapp:=createoleobject('word.applicaiton')

oledoc:=oleapp.openfile(filename);

我想知道，oledoc 能访问word 的属性，以及能实现的功能，

如果不好说，有例子也可以，没有delphi，其它语言的也可以。

2。还有 olecontainer 内嵌 Word 的问题

a. oleContainer.loadfromFile()

b.oleContainer.loadfromstream()

我想知道 a 和 b 两种方法访问的word文档的属性及方法？

最主要的是实现查找，替换，即可！

太多的话，可以概述，以及一些支离代码都可以哦

谢谢！

flydaydream@163.com

...全文

IBM System x3650 M5 IMM配置 1、IMM基本介绍 IMM，全称是Intel Mobile Module是IBM服务器上的集成管理模块，该模块是独立于服务器系统，可以通过一个单独的IP地址，使用Web和虚拟端口方式直接启动、停止和管理远程服务器，即使主板、处理器或者内存故障导致主机无法启动，也依然可以远程管理服务器，可以远程直接操作启动画面和服务器工作界面。 2、IP地址配置 2.1 通过Web方式修改IP地址 IBM服... 阅读详情

FlyDayDream

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

lyguo 2005-05-17

打赏
举报

打开word：
var wrd=new ActiveXObject("Word.Application")
加载模板：
wrd.Documents.Open("D:\\QianZY\\Document\\外贸\\单证模版\\汇票.dot")
得到书签：
var bm=wrd.ActiveDocument.Bookmarks
在特定书签处填入数据：
bm.Item("openingdate").Range.Text="<%=strTemp%>"
得到表格：
var ContractTable=wrd.ActiveDocument.tables(1)
在表格中填入数据：
ContractTable.Rows(1).Cells.Item(9).Range.InsertAfter("总体积 TOTAL MEANS (CBM)")
在表格中插入一行：
var newRow = ContractTable.Rows.Add(ContractTable.Rows(2))
在行中填入数据：
newRow.Cells.Item(1).Range.InsertAfter("<%=arrDetail[i][0]%>")
得到行数：
ContractTable.Rows.Count

lyguo 2005-05-17

打赏
举报

以下是我找到的一段控制WORD文档的程序，谨供参考。希望能提供一些思路。更详细的情况
最好能去看一下Word的关于编程方面的帮助，应该是没有问题的。
procedure TForm1.Button1Click(Sender: TObject);
begin
WordApplication1.Connect;
WordApplication1.Visible := True;
visible:=true;
// wordapplication1.Documents.Add()
WordApplication1.Documents.Add(EmptyParam,EmptyParam);
WordDocument1.Connect;
WordApplication1.ActiveWindow.View.Type_:= wdNormalView;
WordApplication1.Selection.Font.Name :='黑体';
WordApplication1.Selection.Font.Size := 16;
WordApplication1.Selection.ParagraphFormat.Alignment := wdAlignParagraphCenter;
WordApplication1.Selection.TypeText('自定义表头内容');
WordApplication1.Selection.TypeParagraph;
WordApplication1.Selection.TypeParagraph;
WordApplication1.Selection.Font.Name := '宋体';
WordApplication1.Selection.Font.Size :=12;
WordApplication1.Selection.ParagraphFormat.Alignment := wdAlignParagraphRight;
WordApplication1.Selection.TypeText('日期'+formatdatetime('yyyy"年"mm"月"dd"日"',now));
WordApplication1.Selection.TypeParagraph;
WordApplication1.Selection.TypeParagraph;//回车
WordApplication1.Selection.ParagraphFormat.Alignment := wdAlignParagraphLeft;
end;

lyguo 2005-05-17

打赏
举报

可以控制从数据库中取文字添加到Word模板中，可以操作word中的表。
可以向word贴图。
你应该在模板中设定标志字符，然后用系统来查找这些标志字符，然后从数据库中取数据进行替换。
可以多参看一下Office的在线帮助，多试一下吧。
先告诉你如何替换文字吧。注意：要uses Word97。procedure openwordfile(Myword:TWordApplication;Myfile:string);//打开Word文档函数。
//Myword:文档工程名称；Myfile:word文件名。
var
ItemIndex :OleVariant;
FileName, ConfirmConversions, ReadOnly, AddToRecentFiles,
PasswordDocument, PasswordTemplate, Revert,
WritePasswordDocument, WritePasswordTemplate, Format,
MatchCase,MatchWholeWord,find1,rep1,
MatchWildcards, MatchSoundsLike, MatchAllWordForms, Forward,
Wrap, Replace : OleVariant;
begin
Myword.Visible := false;
FileName :=MyFile;
confirmConversions := False;
ReadOnly := False;
AddToRecentFiles := False;
PasswordDocument := '';
PasswordTemplate := '';
Revert := True;
WritePasswordDocument := '';
WritePasswordTemplate := '';
Format := wdOpenFormatDocument;
myWord.Documents.Open( FileName, ConfirmConversions,
readOnly, AddToRecentFiles, PasswordDocument, PasswordTemplate,
Revert, WritePasswordDocument, WritePasswordTemplate, Format );
myword.Visible:=false;
end;
//打开Word文档函数（结束）
Procedure RepData(MyDoc:TWordDocument;FindStr,RepStr:string);//利用数据库替换Word字符串函数
//FindStr:被查找的字符串。RepStr：要替换的字符串。
var
MatchCase,MatchWholeWord,find1,rep1,Format,
MatchWildcards, MatchSoundsLike, MatchAllWordForms, Forward,
Wrap, Replace : OleVariant;
begin
Find1:=FindStr;
Rep1:=RepStr;
MatchCase:=false;
MatchWholeWord:=true;
MatchWildcards:=false;
MatchSoundsLike:=false;
MatchAllWordForms:=false;
Format:=true;
Forward:=true;
replace:=wdReplaceall;
// WordApplication2.StartOfdocument; //到文首
{if} Mydoc.Range.Find.Execute( find1, MatchCase, MatchWholeWord,
MatchWildcards, MatchSoundsLike, MatchAllWordForms, Forward,
Wrap, Format, Rep1, Replace );{ then showmessage('OK!!!!')}
{else showmessage('finish!!');}
end;
以下是根据模板新建一个Doc文件。
FileName := Opendialog1.FileName;
itemindex:=1;
tempPlate:=Filename;
newtemplate:=false;
WordApplication1.Connect;
WordApplication1.Visible:=true;
WordApplication1.Documents.Add(TempPlate,newtemplate);
WordDocument1.ConnectTo(WordApplication1.Documents.Item(itemindex));

问一个关于 delphi 操作word ，还有 olecontainer 内嵌 Word 的问题 :(

相关推荐