ActiveDocument.ExportAsFixedFormat OutputFileName:= _
      "C:\Dokumente und Einstellungen\viperbone\Desktop\Dok1.pdf", _
      ExportFormat:= _
      wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
      wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
      Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
      CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
      BitmapMissingFonts:=True, UseISO19005_1:=False

fg viperbone