大家好，请高手赐教，有关在应用程序中如何打开并编辑Word 文档？？急需

Question

我在现在的工作中遇到了一点难题，就是如何在Delphi应用程序中打开、编辑、保存Word 文档？我非常急需，请各位高手赐教！！非常感激！！我用Servers组件面板上的TWordApplication组件，怎么不行呀，它是怎么使用的？？

Answer 1

AR myr,z1,z2,z3,z4,z5,z6,TEMPLATE,NEWTEMPLATE,ITEMINDEX:OLEVARIANT;
begin
ITEMINDEX:=1;
z1:=0;z2:=0;
z3:=12;z4:=12;
z6:=wdpagebreak;
TEMPLATE:=EMPTYPARAM;
NEWTEMPLATE:=TRUE;
wordfont1.ConnectTo(worddocument1.Sentences.get_last.Font);
//wordfont1.Bold:=1;
//wordfont1.Name:='隶书';
//wordfont1.Size:=20;
WORDAPPLICATION1.Connect;
WORDAPPLICATION1.Visible:=TRUE;
WORDAPPLICATION1.Caption:='ZW';
//wordfont1.ConnectTo(WordApplication1.Selection.Font);
//WORDAPPLICATION1.Documents.Add(TEMPLATE,NEWTEMPLATE,,,);
//WORDAPPLICATION1.Documents.Add()
WORDDOCUMENT1.ConnectTo(WORDAPPLICATION1.Documents.Item(ITEMINDEX));
WORDDOCUMENT1.Range.Font.Name:='隶书';
WORDDOCUMENT1.Range.Font.Size:=20;
WORDDOCUMENT1.Range.InsertAfter('123');
WORDDOCUMENT1.Range.InsertAfter('郑重UDTG123'+#13);
WordApplication1.Selection.SetRange(12,12);
WordDOCUMENT1.Tables.Add(WordApplication1.Selection.Range,8,8,z1,z2);
WordDOCUMENT1.Tables.Item(1).Cell(1,1).Range.Text:='线路';
WordDOCUMENT1.Tables.Item(1).Cell(1,1).Range.font.name:='宋体';
WordDOCUMENT1.Tables.Item(1).Cell(1,1).Range.font.Size:=10;
WordDOCUMENT1.Tables.Item(1).Cell(1,2).Range.Text:='zw';
//WordDOCUMENT1.PageSetup.PaperSize:=wdPaperCustom;
//WordDOCUMENT1.PageSetup.PageWidth:=250;
//WordDOCUMENT1.PageSetup.PageWidth:=180;
WordDOCUMENT1.PageSetup.PaperSize:=wdPAPERA5;
//WordDOCUMENT1.PageSetup.Orientation:=WDORIENTLANDSCAPE;
WORDDOCUMENT1.Range.InsertAfter('郑重UDTG123'+#13);
WORDDOCUMENT1.Range.InsertAfter('郑重UDTG123'+#13);
z4:=42;z5:=42;
//WORDDOCUMENT1.Range.Orientation:=WDORIENTLANDSCAPE;
//WORDDOCUMENT1.Range(z4,z5).Orientation:=WDORIENTLANDSCAPE;
WORDDOCUMENT1.Range(z4,z5).InsertBreak(z6);
z4:=10;z5:=100;
//WORDDOCUMENT1.Range(z4,z5).Orientation:=WDORIENTLANDSCAPE;
WORDDOCUMENT1.Range.InsertAfter('郑重UDTG123'+#13);
WORDDOCUMENT1.Range.Orientation:=WDORIENTLANDSCAPE;
WordDOCUMENT1.PageSetup.Orientation:=WDORIENTPORTRAIT;
//WORDDOCUMENT1.he.PageSetup.FooterDistance:=1;
WordDOCUMENT1.PrintPreview;
end;
end.

Answer 2

TWordApplication是用来连接Word的程序进程
要操作里面的文档,还要用TWordDocument