VB VBA Word-Makro Häufigkeit

[DadyCool]

Hallo,

evtl kennt sich ja jemand mit Word-Makros 2007 aus.

Ich habe mehrere Word Dokumente die ich analysieren möchte. Es befinden sich Tabellen in den Dokumenten

der Aufbau ist etwa so:
z.B.

Tabelle 1
[cut..]

Fremdsprachen|Englisch {br} Polnisch {br} Spanisch

[cut..]


Die Tabellen kann ich wie folgt ansprechen:

sPfad = "C:\test\"      ' Pfad setzen.
sName = Dir(sPfad & "*.doc")        ' Ersten Eintrag abrufen.

Do While sName > ""                 ' Schleife beginnen.
    'Debug.Print sName               ' Eintrag anzeigen
     Set doc = Documents.Open(FileName:=sPfad + sName)
     
    'Tabellen ansprechen
    Set aName = ActiveDocument.Tables(1).Cell(2, 2).Range
    ' Eintrag anzeigen
    Debug.Print sName              
      
    sName = Dir                     ' Nächsten Eintrag abrufen.
Loop

Mein Ziel ist es zu ermitteln wie häufig eine Fremdprache vorhanden ist. Dazu muss ich erst ermitteln welche Fremsprachen es überhaupt gibt und anchließend diese zählen.

Ich dachte mir:

Ich lese alle Dokumente und schreibe alle Fremdsprachen in ein anderes Dokument.
Leider stehen in einer Spalte mehrer Fremdsprachen drin. Also meine Fragen:

- Wie kann ich denn die Texte trennen? (dachte da an substring oder split)
- Wie schreibe ich diese in ein neues Dokument?
- Wie verhindere ich doppelte Einträge (gibt es da ne Funktion, oder muss man das selber prüfen?)

Jemand eine Idee?

DANKE

Mfg
DadyCool