Public Class Form1
    Private Sub cmd_test_Click(sender As Object, e As EventArgs) Handles _
      cmd_test.Click
 
        Dim a As String
 
 
        Dim word As New Microsoft.Office.Interop.Word.Application
        Dim doc As Microsoft.Office.Interop.Word.Document
        Try
            word.Visible = True 'Word sehen zum Test?
            doc = word.Documents.Open("E:\Projekte\Test\Sachnummer.docx")
            'doc.Protect(WdProtectionType.wdNoProtection)
            doc.Activate()
 
 
            a = doc.FormFields(":Art").Range.Text
 
 
            MsgBox(a, vbOKOnly)
 
            word.Visible = True
            'doc.Protect(WdProtectionType.wdAllowOnlyReading)
            doc.Activate()
            'doc.SaveAs("c:\\test.doc")
            doc.Close()
            word.Application.Quit()
            'MessageBox.Show("Datei erstellt")
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
            ' Log.SaveLogFile(ex.ToString)
            'Finally
            word.Application.Quit()
        End Try
 
 
 
    End Sub
End Class