Private Sub bnSourcePathGet_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles bnSourcePathGet.Click
        If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            tbSourcePath.Text = FolderBrowserDialog1.SelectedPath
        End If
    End Sub
    Private Sub OpenWordDoc(ByVal Path As String)
        WordApplication = New Word.Application
        WordApplication = CreateObject("Word.Application")
        WordDocument = WordApplication.Documents.Open(Path)
        WordDocument.Activate()
        WordApplication.Visible = True
 
    End Sub
    Private Sub SaveDocument(ByVal path As IO.FileInfo, ByVal Format As Integer)
 
 
        Dim Splitter1() As String = path.Name.Split(".")
        Dim Splitter2() As String = cbFormat.SelectedItem.Split(")")
        Dim Splitter3() As String = Splitter2(0).Split("(")
 
 
        Dim NewExtension As String = Splitter3(1)
 
        Dim NewFilename As String = Splitter1(0) & NewExtension
        WordDocument.Convert()
 
 
 
        WordApplication.ChangeFileOpenDirectory(tbTargetPath.Text)
        For Each Document As Word.Document In WordApplication.Documents
            If String.Equals(Document.Name, path.Name) Then
                'Document.SaveAs2(FileName:=NewFilename, FileFormat:=Format, 
                ' LockComments:=False, Password:="", AddToRecentFiles:=True, 
                ' WritePassword:="", ReadOnlyRecommended:=False, 
                ' EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, 
                ' SaveFormsData:=False, SaveAsAOCELetter:=False, 
                ' CompatibilityMode:=14)
                Document.SaveAs(FileName:=NewFilename, FileFormat:=Format, _
                  LockComments:=False, Password:="", AddToRecentFiles:=True, _
                  WritePassword:="", ReadOnlyRecommended:=False, _
                  EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, _
                  SaveFormsData:=False, SaveAsAOCELetter:=False)
 
 
 
                Document.Save()
            End If
        Next
 
    End Sub
    Private Enum DocumentTyp
        wdFormatDocument = 0 'doc 97 - 2003
        wdFormatTemplate = 1 'dot
        wdFormatText = 2 'txt
        wdFormatRTF = 6 'rtf
        wdFormatHTML = 8
        wdFormatWebArchive = 9
        wdFormatFilteredHTML = 10
        wdFormatXML = 11 ' Word 2003 XML Document
        wdFormatXMLDocument = 12 'docx
        wdFormatXMLDocumentMacroEnabled = 13 'docm
        wdFormatXMLTemplate = 14 'dotx
        wdFormatXMLTemplateMacroEnabled = 15 'dotm
        wdFormatFlatXML = 19 ' Word XML
        wdFormatOpenDocumentText = 23
    End Enum
 
    Private Sub bnTargetDirectories_Click(ByVal sender As System.Object, ByVal _
      e As System.EventArgs) Handles bnTargetDirectories.Click
        If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            tbTargetPath.Text = FolderBrowserDialog1.SelectedPath
        End If
    End Sub
End Class