Private Sub CommandButton1_Click()
    Dim wdApp As Object, wdDoc As Object
    Const docName As String = "D:\WordTest.doc"
    Const pdfName As String = "D:\WordTest.pdf"
    Set wdApp = CreateObject("Word.Application")
    wdApp.Visible = True
    Set wdDoc = wdApp.Documents.Add
    With wdDoc
        .Font.Name = "Helvetica"
        .Font.Size = 20
        .Font.Color = wdColorRed
        .Font.Bold = True
        .Font.Italic = True
        .TypeText Text:="Text"
        .TypeParagraph
        'SaveAs2 Parameters: FileName, FileFormat, LockComments, Password, AddToRecentFiles, & _
            WritePassword, ReadOnlyRecommended, EmbedTrueTypeFonts, SaveNativePictureFormat, & _
            SaveFormsData, SaveAsAOCELetter, Encoding, InsertLineBreaks, AllowSubstitutions, & _
            LineEnding, AddBiDiMarks, CompatibilityMode
        .SaveAs2 docName, 0, , , False    '0 = wdFormatDocument
        .SaveAs2 pdfName, 17, , , False ' 17 = wdFormatPDF
        .Close False
    End With
    wdApp.Quit
    Set wdDoc = Nothing: Set wdApp = Nothing
End Sub