用OLEObject也可以. Var VarWord: Variant; begin try // Create word OleObject VarWord:=CreateOleObject('word.basic'); // Create a new document VarWord.FileNew; // Zoom To 75% VarWord.ViewZoom75; VarWord.ViewPage; //Center Alignment VarWord.CenterPara; Varword.font('MS Sans Serif'); VarWord.FontSize(14); //Export text varword.insert(#13+#13+ Edit1.Text+#13+#13+#13);
VarWord.font('MS Serif'); // you can set the font size VarWord.Fontsize(16); VarWord.insert( Edit2.text+#13);
VarWord.LeftPara; VarWord.Font('Times New Roman'); VarWord.fontSize(14); VarWord.Insert(#13+ Edit3.Text+' '+#13);
wordDocument:建立word文件方档.
wordApplication启动WORD并建立同WORD的连接.
Var
VarWord: Variant;
begin
try
// Create word OleObject
VarWord:=CreateOleObject('word.basic');
// Create a new document
VarWord.FileNew;
// Zoom To 75%
VarWord.ViewZoom75;
VarWord.ViewPage;
//Center Alignment
VarWord.CenterPara;
Varword.font('MS Sans Serif');
VarWord.FontSize(14);
//Export text
varword.insert(#13+#13+ Edit1.Text+#13+#13+#13);
VarWord.font('MS Serif');
// you can set the font size
VarWord.Fontsize(16);
VarWord.insert( Edit2.text+#13);
VarWord.LeftPara;
VarWord.Font('Times New Roman');
VarWord.fontSize(14);
VarWord.Insert(#13+ Edit3.Text+' '+#13);
VarWord.fontSize(14);
VarWord.Insert( Edit4.Text+#13);
VarWord.RightPara;
VarWord.fontSize(14);
VarWord.Insert( Edit5.Text+#13);
VarWord.StartOfdocument;
VarWord.AppMaxiMize;
VarWord.AppShow;
except
showmessage('Error! Can''t Save to Microsoft Word.');
end; //end of try
end;