منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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

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

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

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

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

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

كود :

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

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

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

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

يفي بالغرض

شاكر لك عزيزي

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Ksa004

Ahmed_Mansoor

Ksa004

AhmedSamir3