Home VB script to export to pdf in Command Button (ActiveX) in Word 2010
 Ok, so I have this Word 2010 Macro enabled template with my handy dandy forms that people can fill out. I have created a button that says "Convert to PDF" because people dont know how to do it natively. I entered the VB editor of the particular CommandButton that I want to have this functionality. Here's whats in that button: Private Sub CommandButton1_Click() Sub Convert_PDF() Dim desktoploc As String Dim filename As String Dim mypath As String desktoploc = CreateObject("WScript.Shell").SpecialFolders("Desktop") filename = ThisDocument.Name mypath = desktoploc & "\" & filename ActiveDocument.ExportAsFixedFormat OutputFileName:= _ mypath, _ ExportFormat:=wdExportFormatPDF, OpenAfterExport:=True, OptimizeFor:= _ wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _ Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _ CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _ BitmapMissingFonts:=True, UseISO19005_1:=False End Sub End Sub  When I run the code I get..... BAM! Compile error: Expected End Sub If I take out the Sub Convert_PDF() and its pertaining End Sub, suddenly i dont get the sub error messages, but I get another error message: The file [file name] cannot be opened beacause there are problems with the contents. Details: The file is corrupt and cannot be opened. Replace [file name] with my file's actual name. I'll be completely honest, I'm a complete n00b at VB and Google is turning out to not being very helpful thus far :/ Any insight?