+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف يتم فتح ملف وورد محمي بكلمة مرور (/showthread.php?tid=508)
كيف يتم فتح ملف وورد محمي بكلمة مرور - nacer335 - 30-01-2009
السلام عليكم
كيف يتم فتح ملف وورد محمي بكلمة مرور
وشكرا
كيف يتم فتح ملف وورد محمي بكلمة مرور - ThePrince - 02-02-2009
إقتباس :كيف يتم فتح ملف وورد محمي بكلمة مرور
سؤالك خارج عن نطاق المنتدى وجوابة يتعلق بالهندسة العكسية
كيف يتم فتح ملف وورد محمي بكلمة مرور - nacer335 - 03-02-2009
القصد من السؤال أخي هو فتح ملف word محمي بكلمة مرور بدلفي
وشكرا
كيف يتم فتح ملف وورد محمي بكلمة مرور - kachwahed - 11-04-2011
وعليكم السلام ورحمة الله وبركاته
جرب:
كود :
procedure TForm1.Button1Click(Sender: TObject);
var
range: Variant;
FileName, Password: OLEVariant;
begin
try
Word := GetActiveOleObject('Word.Application');
except
Word := CreateOleObject('Word.Application');
end;
FileName := 'C:\temp\t2.doc';
Password := 'thepass';
//open the doc
Word.Documents.Open (FileName, EmptyParam, EmptyParam, EmptyParam,
Password, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
//copy the contents
range := Word.ActiveDocument.Content;
range.Select;
range.Copy;
//paste it into the OleContainer
OleContainer1.CreateObject('Word.Document.8',False);
OleContainer1.Paste;
OleContainer1.DoVerb (ovPrimary);
end;كود :
http://www.delphigroups.info/2/10/943605.html