strFolder = "Z:\ordner\" & ThisDoc.FileName(False)&"_"& y'ThisDoc.Document.Value
	
 					ThisDoc.Document.SaveAs(strFolder & ".jpg", True)
					ThisDoc.Document.SaveAs(strFolder & ".pdf", True)		
          						
ThisDoc.Launch("Z:\ordner\")