J
jinyfboss
Unregistered / Unconfirmed
GUEST, unregistred user!
FWord := CreateOleObject('Word.Application');
FWord.Visible := False;
FDoc := FWord.Documents.Add;
FWord.Selection.TypeText(Text := sText);
FDoc.SaveAs(ExtractFilePath(application.ExeName) +'test.doc');
FWord.Quit;
FWord := null;
请问:怎样对sText的字体属性进行编辑,比如大小颜色等等,以及每行的缩格问题,多谢
FWord.Visible := False;
FDoc := FWord.Documents.Add;
FWord.Selection.TypeText(Text := sText);
FDoc.SaveAs(ExtractFilePath(application.ExeName) +'test.doc');
FWord.Quit;
FWord := null;
请问:怎样对sText的字体属性进行编辑,比如大小颜色等等,以及每行的缩格问题,多谢