Sub Main
 
    '##################     Variablen Deklarieren   ###################
 
    'Überobjekt, das alle Funktionen zu verfügung stellt
    Dim MyDragonVocabularyTool     As New DgnVocTools.DgnVocTools
 
    'Objekt, dass direkt auf das Vokabular zugreifen kann
    Dim VocabularyManipulator     As DgnVocTools.IDgnVocabularyBuilder
 
    'Objekt, dass Dateien analysiert und daraus vokabeln generiert
    Dim FileAnalyser             As DgnVocTools.IDgnTextAnalyzer
 

 
    '###################  Programmstart  ##############################
 
    'Voctool initialisieren
    MyDragonVocabularyTool.Initialize
 

    'Dateianalyse- und Vokabelmanipulator-Objekte erstellen
    Set FileAnalyser =          MyDragonVocabularyTool.TextAnalyzer
    Set VocabularyManipulator = MyDragonVocabularyTool.VocabularyBuilder
 
    'Mit dem Dateianalyse-Objekt eine Vokableliste auslesen
        Set WordsFromFile = FileAnalyser.ProcessWordList("C:/myVocList.txt")
 

    'HIER FEHLT DER ENTSCHEIDENDE TEIL!!!
    'Es sollen die ausgelesenen Vokabeln in das aktive Vokabular eingebaut werden
    'Außerdem sollten die Erweiterten Eigenschaften angepasst werden. Leider weiß ich an der Stelle noch nicht welche Funktion dafür zuständig sein soll
    'VocabularyManipulator.AddWords(WordsFromFile)  'Endet leider in einem: "(10090) ActiveX Automation error"  warum???
 

 
    '######################  Testausgabe ##############################
    For Each Word In WordsFromFile
        i=i+1
    Next
    MsgBox "Vokabeln in der Datei: " & CStr(i)& vbLf _
         & "Erste Vokabel: " & WordsFromFile.Item(0).WrittenForm
 

 
    '##################### PS ##########################################
    ' Übrigens an das aktuell geladene Vokabular kommt mann per
    ' Set WordsFromActiveVocabulary =  VocabularyManipulator.GetWords
 
End Sub
 
 

Sub Main
    On Error GoTo Error_Abfangen
 
    '##################     Variablen Deklarieren   ###################
    Dim MyDragonVocabularyTool         As New DgnVocTools.DgnVocTools
    Dim VocabularyManipulator          As DgnVocTools.IDgnVocabularyBuilder
    Dim Word                        As DgnVocTools.IDgnWord
    Dim i                            As Integer
 

    '###################  Programmstart  ##############################
    MyDragonVocabularyTool.Initialize
 
    Set VocabularyManipulator = MyDragonVocabularyTool.VocabularyBuilder
    Set WordsFromActiveVocabulary =  VocabularyManipulator.GetWords
 
    For Each Word In WordsFromActiveVocabulary
        i=i+1
        VocabularyManipulator.SetWordFormating(Word ,dgnwfmtNoSpaceAfter)  'Keine Leerstelle nach dem Wort
        VocabularyManipulator.SetWordFormating(Word ,dgnwfmtReturn )            'Neue Zeile nach dem Wort
    Next
 
Exit Sub
Error_Abfangen:
    MsgBox "Es ist ein Fehler bei der " & i & "-(s)ten Vokabel aufgetreten"
End Sub
 
 

Sub Main
    On Error GoTo Error_Abfangen
 
    '##################     Variablen Deklarieren   ###################
    Dim MyDragonVocabularyTool             As New DgnVocTools.DgnVocTools
    Dim VocabularyManipulator             As DgnVocTools.IDgnVocabularyBuilder
    Dim nIndex                             As Long
 
    Dim Ausnahmen(20)                     As String
 
    Ausnahmen(1) = "ein"
    Ausnahmen(2) = "zwei"
    Ausnahmen(3) = "drei"
    Ausnahmen(4) = "vier"
    Ausnahmen(5) = "fünf"
    Ausnahmen(6) = "sechs"
    Ausnahmen(7) = "sieben"
    Ausnahmen(8) = "acht"
    Ausnahmen(9) = "neun"
    Ausnahmen(10) = "zehn"
 
    Ausnahmen(11) = "fünfundzwanzig"
    Ausnahmen(12) = "fünfzig"
    Ausnahmen(13) = "fünfundsiebzig"
    Ausnahmen(14) = "hundert"
 
    Ausnahmen(15) = "kilo"
    Ausnahmen(16) = "kilogramm"
    Ausnahmen(17) = "gramm"
    Ausnahmen(18) = "liter"
    Ausnahmen(19) = "milliliter"
 
    Ausnahmen(20) = "bis"
 

    '###################  Programmstart  ##############################
    MyDragonVocabularyTool.Initialize
 
    Set VocabularyManipulator = MyDragonVocabularyTool.VocabularyBuilder
    Set WordsFromActiveVocabulary =  VocabularyManipulator.GetWords
 
    geanderteVokabeln=0
    ungeaenderteVokabeln=0
 
    For i=0 To WordsFromActiveVocabulary.Count-1
 
        nIndex = IsInArray(Ausnahmen(), WordsFromActiveVocabulary.Item(i).WrittenForm)
        If nIndex >= 0 Then
          ungeaenderteVokabeln = ungeaenderteVokabeln + 1
        Else
          'Erweiterte Einstellung andern
          VocabularyManipulator.SetWordFormating(WordsFromActiveVocabulary.Item(i) ,dgnwfmtNoSpaceAfter)  'Keine Leerstelle nach dem Wort
          VocabularyManipulator.SetWordFormating(WordsFromActiveVocabulary.Item(i) ,dgnwfmtReturn )            'Neue Zeile nach dem Wort
          geanderteVokabeln=geanderteVokabeln+1
        End If
 
    Next i
 
    MsgBox     "Vokabular mit "& WordsFromActiveVocabulary.Count & " Woertern erfolgreich manipuliert!" & vbLf & vbLf & _
             "Es wurden "& geanderteVokabeln &" Vokabeln geaendert" & vbLf & _
             "Es wurden "& ungeaenderteVokabeln &" Vokabeln beibehalten"
 
Exit Sub
Error_Abfangen:
    MsgBox "Es ist ein Fehler bei der " & i & "-(s)ten Vokabel aufgetreten"
End Sub
 

 
Public Function IsInArray(ByRef sArray() As String, _
  ByVal sItem As String, _
  Optional ByVal nStart As Variant, _
  Optional ByVal nEnd As Variant) As Long
 
  ' Prüfen, ob das Element "sItem" im Array "sArray" enthalten ist
  ' Rückgabewert: Index des Elements bzw. -1, wenn nicht vorhanden
  Dim i As Long
  Dim nIndex As Long
  Dim nLen As Long
 
  On Error GoTo ErrHandler
  nIndex = -1
 
  If IsMissing(nStart) Then nStart = LBound(sArray)
  If IsMissing(nEnd) Then nEnd = UBound(sArray)
 
  nLen = Len(sItem)
  For i = nStart To nEnd
    If Len(sArray(i)) = nLen Then
      If sArray(i) = sItem Then
        nIndex = i: Exit For
      End If
    End If
  Next i
  On Error GoTo 0
 
ErrHandler:
  IsInArray = nIndex
End Function