PDA

View Full Version : سوال: دلفی به vb.net



laleh_gb
سه شنبه 20 تیر 1391, 15:21 عصر
سلام کسی معادل این تکه کد به زبان دلفی رو در vb.net میدونه؟
از طريق 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;

m.4.r.m
سه شنبه 20 تیر 1391, 15:25 عصر
خدایی یه نگاه به تاپیک و بخش سوالت بنداز ؟ لطفا تو بخش خودش سوالتونو مطرح کنین .

laleh_gb
سه شنبه 20 تیر 1391, 15:32 عصر
یعنی می خاید بگید هیچ کس از vb ورژن بالاترش رو بلد نیست اگرم منظورتون دلفیه خیالتون راحت از اونا هم پرسیدم شما فقط اگه میتونی جواب بده نه گیر...

محسن واژدی
سه شنبه 20 تیر 1391, 19:51 عصر
یعنی می خاید بگید هیچ کس از vb ورژن بالاترش رو بلد نیست اگرم منظورتون دلفیه خیالتون راحت از اونا هم پرسیدم شما فقط اگه میتونی جواب بده نه گیر...
سلام
میبخشید، چرا هستند عزیزانی که با سایر نسخه ها و زبانها کارمی کنند اما حتی اگر کسی کد را هم برگشت دهد باز مجاز نیست در این تالار پاسخ دهد چرا که این بخش نه تالار VB.Net است و نه Delphi

موفق باشید