سوال: کامپوننت جهت تبدیل Word به HTML [بایگانی]

FirstLine

چهارشنبه 08 خرداد 1387, 15:41 عصر

با سلام
یه کامپوننت که فایل Word را به HTML تبدیل کند؟
لطفا معرفی کنید
با تشکر

B_YAGHOBI

یک شنبه 12 خرداد 1387, 23:46 عصر

نيازي به كامپوننت خاصي نيست. كافيست Word را روي دستگاه نصب كنيد و از طريق OLE فايل Word را

باز كرده و به MHT ذخيره كنيد.

Uses Variants, ComObj, WordXP ;

procedure TForm6.Button1Click(Sender: TObject);
Var WordApp : Variant ;
begin

WordApp := CreateOLEObject('Word.Application');
WordApp.Documents.Open( FileName :='d:\aaaaa.docx', ConfirmConversions:=False, ReadOnly :=False, AddToRecentFiles:=False, PasswordDocument:='', PasswordTemplate :='', Revert:=False, WritePasswordDocument:='', WritePasswordTemplate:='' , Format:=wdOpenFormatAuto, XMLTransform:='', DocumentDirection:= wdRightToLeft ) ;
WordApp.ActiveDocument.SaveAs(FileName:='d:\aaaaa. mht', FileFormat:= wdFormatWebArchive, LockComments:=False, Password:='', AddToRecentFiles:= True, WritePassword:='', ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False ) ;
WordApp.Free ;
end;

taknegaar

جمعه 28 تیر 1387, 18:54 عصر

Delphi RichEdit Alternative: RichView Components for Delphi and C++Builder (http://www.trichview.com)

Hsimple11

جمعه 28 تیر 1387, 21:06 عصر

Doc و Html را جستجو کنید. قبلا در سایت در مورد آن صحبت شده است. اطلاعات بیشتری بدست میاورید.

joojoo

سه شنبه 09 مهر 1387, 12:10 عصر

سلام
یه کامپوننت برای تبدیل Html بهPdf لازم دارم.

laleh_gb

سه شنبه 20 تیر 1391, 16:37 عصر

نيازي به كامپوننت خاصي نيست. كافيست Word را روي دستگاه نصب كنيد و از طريق OLE فايل Word را

باز كرده و به MHT ذخيره كنيد.

Uses Variants, ComObj, WordXP ;

procedure TForm6.Button1Click(Sender: TObject);
Var WordApp : Variant ;
begin

WordApp := CreateOLEObject('Word.Application');
WordApp.Documents.Open( FileName :='d:\aaaaa.docx', ConfirmConversions:=False, ReadOnly :=False, AddToRecentFiles:=False, PasswordDocument:='', PasswordTemplate :='', Revert:=False, WritePasswordDocument:='', WritePasswordTemplate:='' , Format:=wdOpenFormatAuto, XMLTransform:='', DocumentDirection:= wdRightToLeft ) ;
WordApp.ActiveDocument.SaveAs(FileName:='d:\aaaaa. mht', FileFormat:= wdFormatWebArchive, LockComments:=False, Password:='', AddToRecentFiles:= True, WritePassword:='', ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False ) ;
WordApp.Free ;
end;

شما همین کد رو به زبان vb.net هم میتونید بنویسید؟ اگر کسی بتونه ممنون میشم.