Imports Microsoft.Office.Interop
Imports System.IO
Public Class Form1
    Dim WordApplication As Word.Application
    Dim WordDocument As Word.Document
 
    Const wdFormatDocument As Integer = 1
    Private Sub bnStart_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles bnStart.Click
        Dim FileCounter As Integer = 0
        If cbAllDoc.Checked Then
            ListBox1.Items.Add("Ermittle Anzahl Dateien zum konventieren")
            For Each DocCounter As String In My.Computer.FileSystem.GetFiles( _
              tbSourcePath.Text, FileIO.SearchOption.SearchAllSubDirectories)
                FileCounter += 1
            Next DocCounter
            ListBox1.Items.Add(FileCounter.ToString & " Dateien wurden" & _
              "ermittelt")
 
            ListBox1.Items.Add("Starte konventierung")
 
            For Each Doc As String In My.Computer.FileSystem.GetFiles( _
              tbSourcePath.Text, FileIO.SearchOption.SearchAllSubDirectories)
 
                OpenWordDoc(Doc)
                Select Case cbFormat.SelectedItem
                    Case Is = "Word 97 - 2003 Vorlage DOT (.dot)"
                        SaveDocument(New IO.FileInfo(Doc), _
                          DocumentTyp.wdFormatTemplate)
                    Case Is = "Word Vorlage mit Makros DOTM (.dotm)"
                        SaveDocument(New IO.FileInfo(Doc), _
                          DocumentTyp.wdFormatXMLTemplateMacroEnabled)
                    Case Is = "Word 97 - 2003 Dokument DOC (.doc)"
                        SaveDocument(New IO.FileInfo(Doc), _
                          DocumentTyp.wdFormatDocument)
                    Case Is = "Word Vorlage DOTX (.dotx)"
                        SaveDocument(New IO.FileInfo(Doc), _
                          DocumentTyp.wdFormatXMLTemplate)
                    Case Is = "Word Document mit Makros DOCM (.docm)"
                        SaveDocument(New IO.FileInfo(Doc), _
                          DocumentTyp.wdFormatXMLDocumentMacroEnabled)
                End Select
                WordDocument.Reload()
                WordDocument.Close()
                WordApplication.Quit(False)
 
 
 
 
 
            Next
            ListBox1.Items.Add("Konventierung beendet")
 
        Else
            ListBox1.Items.Add("Ermittle Anzahl Dateien zum konventieren")
            For Each DocCounter As String In My.Computer.FileSystem.GetFiles( _
              tbSourcePath.Text, FileIO.SearchOption.SearchTopLevelOnly)
                FileCounter += 1
            Next DocCounter
            ListBox1.Items.Add(FileCounter.ToString & " Dateien wurden" & _
              "ermittelt")
            ListBox1.Items.Add("Starte konventierung")
 
 
            For Each Doc As String In My.Computer.FileSystem.GetFiles( _
              tbSourcePath.Text, FileIO.SearchOption.SearchTopLevelOnly)
 
                OpenWordDoc(Doc)
                Select Case cbFormat.SelectedItem
                    Case Is = "Word 97 - 2003 Vorlage DOT (.dot)"
                        SaveDocument(New IO.FileInfo(Doc), _
                          DocumentTyp.wdFormatTemplate)
                    Case Is = "Word Vorlage mit Makros DOTM (.dotm)"
                        SaveDocument(New IO.FileInfo(Doc), _
                          DocumentTyp.wdFormatXMLTemplateMacroEnabled)
                    Case Is = "Word 97 - 2003 Dokument DOC (.doc)"
                        SaveDocument(New IO.FileInfo(Doc), _
                          DocumentTyp.wdFormatDocument)
                    Case Is = "Word Vorlage DOTX (.dotx)"
                        SaveDocument(New IO.FileInfo(Doc), _
                          DocumentTyp.wdFormatXMLTemplate)
                    Case Is = "Word Document mit Makros DOCM (.docm)"
                        SaveDocument(New IO.FileInfo(Doc), _
                          DocumentTyp.wdFormatXMLDocumentMacroEnabled)
                End Select
 
                WordDocument.Close()
                WordApplication.Quit(Word.WdSaveOptions.wdSaveChanges, _
                  Word.WdOriginalFormat.wdPromptUser)
                WordApplication = Nothing
 
 
 
 
            Next
            ListBox1.Items.Add("Konventierung beendet")
 
        End If
    End Sub