[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