[Ksa004]

مرحبا أعضاء فيجول بيسك العرب

عندما أقوم بحفظ ملف وورد الى صيغة pdf

يتم حفظ الملف افي المسار المحدد الا انني لا استطيع فتحه وتظهر لي رسالة خطا

استخدمت هذا الكود

Wrd.Documents.Open(App.Path & "\doc1.doc", , 1)
Wrd.Visible = False
Wrd.ActiveDocument.SaveAs App.Path & "\pdf1.pdf", 9


ارجوا مساعدتي في البحث عن الخطا

---

يا اخوان ردوا جميع مشاركاتي لم يتم الرد عليها  

[Ahmed_Mansoor]

اهلا جرب هذا الكود ، انا لم اجربه بعد :

كود :

Word_App.ActiveDocument.ExportAsFixedFormat OutputFileName:="C:\p\Cartinha.pdf", _
ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, _
OptimizeFor:=wdExportOptimizeForOnScreen, Range:=wdExportAllDocument, _
Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, BitmapMissingFonts:=True, _
UseISO19005_1:=False

[Ksa004]

الف شكر لك أستاذ احمد ما قصرت
زادك الله علما ونفع بك

الكود يعمل بصوره صحيحه

MyWord.ActiveDocument.SaveAs App.Path & "\Temp.pdf", wdExportFormatPDF, wdExportOptimizeForOnScreen

يفي بالغرض

شاكر لك عزيزي

[AhmedSamir3]

اذن الن المشكله في الاصدار المثبت بالجهاز للاوفيس
حاول ان تتأكد من ذلك وقم بتثبيت على الاقل اوفيس 2007 ليقوم بالتحويل الى pdf