daheads blog²

Um aus einem Word-Dokument die Variablen auszulesen genügt folgender Code und das Einbinden des Verweises "Microsoft Office 9.0" (bzw. höher).

Public Shared Function GetVariables(ByVal aFilename As String) As List(Of String)
 
    Dim result As New List(Of String)
 
    If System.IO.File.Exists(aFilename) Then
 
      Dim wa As New Word.Application
      Dim wd As New Word.Document
 
      Try
        wd = wa.Documents.Open(aFilename)
 
        If wd.Variables.Count > 0 Then
          For Each var As Word.Variable In wd.Variables
            result.Add(var.Name & " = " & var.Value)
          Next
        Else
          result.Add("Keine Variablen in Dokument " & aFilename)
        End If
 
        wd.Close()
        wa.Quit()
 
      Catch ex As Exception
        result.Add(ex.Message)
      End Try
 
    Else
      result.Add("Datei nicht gefunden " & aFilename)
    End If
 
    Return result
  End Function