Private Sub CommandButton1_Click()
    Dim MSWord As Object                            
    Set MSWord = CreateObject("Word.Application")   
    MSWord.Visible = True                          

    Datei = "D:\WordTest.doc"                   
    pdfName = "D:\WordTest.pdf"
                                                    
    MSWord.Documents.Add                           
    With MSWord.Selection
        .Font.Name = "Helvetica"                        
        .Font.Size = 20                           
        .Font.Color = wdColorRed                  
        .Font.Bold = True                       
        .Font.Italic = True                     
        .TypeText Text:="Text"                  
        .TypeParagraph                             
    End With

    MSWord.ActiveDocument.SaveAs Datei            
    

       MSWord.ActiveDocument.ExportAsFixedFormat OutputFileName:=pdfName, _
        ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
        wdExportOptimizeForPrint, Range:=wdExportAllDocument, Item:= _
        wdExportDocumentContent, IncludeDocProps:=False, KeepIRM:=True, _
        CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
        BitmapMissingFonts:=True, UseISO19005_1:=False
    

    
    
    MSWord.ActiveDocument.Close                   

    MSWord.Quit                                     
    Set MSWord = Nothing                            






End Sub