السلام عليكم
كيفيت نقل نص الى word وحسب تنسيقات انا اختارها في الدلفي
انا استخدمت كود معين ولكن توجد مشكلة في الفونت العربي وهي
اذا كتبت مثلا كلمة معينه بالعربي وبحجم 30 فانه يكتب النص ولكن
لايعطي الكلمة بالحجم 30 وتبقى على الحجم الموجود الافتراض في
الword بينما لوكانت الكلمة بالانكليزي لاتوجد مشكله واليكم الكود
if not Assigned(WordObject) then
begin
WordObject := TWordObject.Create;
with WordObject do
begin
// Caption := 'Delphi is RAD!';
Visible := true;
OnQuit := AppQuit;
OnDocumentChange := AppDocumentChange;
OnNewDocument := DocNew;
OnOpenDocument := DocOpen;
OnCloseDocument := DocClose;
end;
end;
try
WordObject.NewDoc('');
except
ShowMessage('It seems like somebody killed Word and didn''t tell me about it...');
if Assigned(WordObject) then begin
WordObject.Free;
WordObject := nil;
end;
end;
WordObject.Application.Selection.Font.Size :=30;
WordObject.Application.Selection.Font.ColorIndex:=6;
WordObject.Application.Selection.Font.name :='Andalus';
WordObject.InsertText('محمد');
فان (محمد ) لا تظهر بحجم 30
والسلام عليكم
اخوكم
مهدي محمد