TWordapplication,TWordDocument怎么用？(100分)

用TWordapplication,TWordDocument程序如何新建一个文档，然后将整段整段内容放入其中（段落控制），还有如何在文档中绘制表格，并在表格中插入内容？
另外我使用Wordapplication1.Connect时怎么总出现“筛选程序正忙”的异常？用OLE中也出同样的问题。急急急！！！

哈哈，100分竟没人拿！

哈哈，关于 TWord... 的问题，400 分都没有人拿：<a href="DispQ.asp?LID=249393">RTF2HTML(100+300分)</a>

>>

不知道Jams想干什么，将所有word的内容都>> ,下面一篇文章看是否有用？


Delphi + Word = 数据库 + 公文处理

Delphi擅长做数据库类的MIS开发，但对于OA就有点力不从心了。不过随着Microsoft的COM技术逐渐成熟，现在普通Windows应用已经可以和Office 97无缝结合了，
尤其是在Delphi 5中提供了一组Servers组件，更是简化了程序开发。

最近接触了一个用户的案例，用Delphi控制Word做一个合同管理程序。
办公人员先根据业务需要，写好合同的文字，但在用户名称、产品名称等变化的位置
填写指定的标记字符串，然后通过Delphi把数据库中的实际数据替换掉Word中的文
字，最后让Word打印出合同。

Delphi自带了一个简单的Word例题，但功能太简单。通过查找VBA的说明，再对照
Delphi的VCL，编写了如下代码，实现了基本的公文管理功能。

启动Word时用如下代码：
begin
try
Wordapplication.Connect;
except
MessageDlg('Word may not be installed', mtError, [mbOk], 0);
Abort;
end;
Wordapplication.Visible := True;
WordApplication.Caption := 'Delphi automation';
end;

关闭Word用如下代码。如果想保存Doc文件，请修改SaveChanges变量的内容：
var
SaveChanges, OriginalFormat, RouteDocument: OleVariant;
begin
SaveChanges := WdDoNotSaveChanges;
OriginalFormat := UnAssigned;
RouteDocument := UnAssigned;
try
WordApplication.Quit(SaveChanges, OriginalFormat, RouteDocument);
WordApplication.Disconnect;
except
on E: Exception do
begin
Showmessage(E.Message);
WordApplication.Disconnect;
end;
end;
end;

让Word打开一个指定的文件，需要先放置OpenDialog，然后调用WordApplication.Documents.Open：
var
ItemIndex :OleVariant;
FileName, ConfirmConversions, ReadOnly, AddToRecentFiles,
PasswordDocument, PasswordTemplate, Revert,
WritePasswordDocument, WritePasswordTemplate, Format: OleVariant;
begin
if not dlgOpen.Execute then
Exit;

{Open document}
FileName := dlgOpen.FileName;
ConfirmConversions := False;
ReadOnly := False;
AddToRecentFiles := False;
PasswordDocument := '';
PasswordTemplate := '';
Revert := True;
WritePasswordDocument := '';
WritePasswordTemplate := '';
Format := wdOpenFormatDocument;

WordApplication.Documents.Open( FileName, ConfirmConversions,
ReadOnly, AddToRecentFiles, PasswordDocument, PasswordTemplate,
Revert, WritePasswordDocument, WritePasswordTemplate, Format );

{Assign WordDocument component}
ItemIndex := 1;
WordDocument.ConnectTo(WordApplication.Documents.Item(ItemIndex));

{Turn Spell checking of because it takes a long time if enabled and slows down Winword}
WordApplication.Options.CheckSpellingAsYouType := False;
WordApplication.Options.CheckGrammarAsYouType := False;
end;

让Word替换标记字符串要使用WordDocument.Range.Find.Execute，这里用Delphi替换了<#Name>：
var
FindText, MatchCase, MatchWholeWord, MatchWildcards, MatchSoundsLike,
MatchAllWordForms, Forward, Wrap, Format, ReplaceWith, Replace: OleVariant;
begin
FindText := '<#Name>';
MatchCase := False;
MatchWholeWord := True;
MatchWildcards := False;
MatchSoundsLike := False;
MatchAllWordForms := False;
Forward := True;
Wrap := wdFindContinue;
Format := False;
ReplaceWith := 'Delphi';
Replace := True;

WordDocument.Range.Find.Execute( FindText, MatchCase, MatchWholeWord,
MatchWildcards, MatchSoundsLike, MatchAllWordForms, Forward,
Wrap, Format, ReplaceWith, Replace );

end;

上面这4段代码完成了公文管理的基本功能，再把它和数据库结合起来，就可以开发一
个与Lotus Notes类似的产品了。

做这方面的东东，你的看看VBA的东西...

>>

参考一下这个吧，包含了在Word中插入文字（填表），以及表格操作
procedure TForm1.Button1Click(Sender: TObject);
var WordApp,MyDoc,wTable,MyRange: OLEVariant;
FileName: string;
i,j: integer;
begin
FileName := ExtractFileDir(Application.ExeName) + '/test1.dot';
if not FileExists(FileName) then
raise Exception.Create('找不到模板！');
try
WordApp := CreateOleObject('Word.Application');
MyDoc := CreateOleObject('Word.Document');
except
Raise Exception.Create('无法打开Word，请确认已安装Word。');
end;

WordApp.Visible := true;
MyDoc := WordApp.Documents.Add(FileName,false);

MyDoc.BookMarks.Item('表名1').Select;
WordApp.Selection.Text := 'Animals';
wTable := MyDoc.Tables.Item(1);
table1.First;
for i := 1 to 3 do begin
if not Table1.Eof then begin
FillCell(i,1,wtable,'Name');
FillCell(i,2,wtable,'Size');
FillCell(i,3,wtable,'Area');
Table1.Next
end else Break
end;
MyDoc.Tables.Add(MyDoc.Bookmarks.Item('表格3').Range,2,5)
end;

procedure TForm1.FillCell(i, j: byte; wTable: Variant; FieldName: String);
begin
wTable.Cell(i,j).Range.Text := table1.FieldByName(FieldName).AsString
end;

end.

参照WORD的VBA参考!很可能在机器上没装,去office光盘上找,我有一篇贴子写的就是这个问题,你可以去西祠胡同C++ Builder论坛找.

多人接受答案了。