laleh_gb
سه شنبه 20 تیر 1391, 16: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;
از طريق 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;