MS-Office:Text aus Vokabelliste erstellen dann Sprachausgabe

[Frank G. (frank_g53)]

Hallo zusammen,

Um was geht es:
Ein MP3-file erstellen, welche eine von mir erstellte Vokabelliste 
abspielt. Erst in Englisch, dann die deutsche Übersetzung.
Die Vokabelliste wird nach und nach mit technischen Begriffen ergänzt.

Das habe ich bereits gefunden:
Das Programm DSpeech 
http://www.heise.de/download/dspeech-09d1a91bd1aec2fee048e77ad7f0f237-1448488761-2662973.html

Dieses Programm kann Texte vorlesen. Ok, nichts besonderes.
Der Clou: man kann Tags in den Text einfügen, mit denen man die Sprecher 
umschalten kann:

#VOICE Microsoft Zira Desktop
five
#VOICE Microsoft Hedda Desktop
fünf
#VOICE Microsoft Zira Desktop
stupid
#VOICE Microsoft Hedda Desktop
blöd

Das funktioniert sehr gut und ich kann das Gesprochene als MP3 
speichern.

Das möchte ich:
In Excel oder Word eine Tabelle mit zwei Spalten erstellen. Links der 
englische Begriff und rechts die deutsche Übersetzung. Dann soll ein 
Macro oder ähnliches mir aus dieser Tabelle einen Text, wie oben 
angegeben, erzeugen.

Ist das machbar?
Gibt es bereits fertige Lösungen?

Über Denkanstöße oder weiterführende Links würde ich mich freuen.

Danke.

[Mike B. (mike_b97)]

klar kann man das machen ist aber umständlich zu erklären
eine Schleife
läuft alle nicht-leeren Zeilen durch
darin
-Textausgabe "#VOICE Microsoft Zira Desktop"
-Textausgabe Zeilex_Spalte1
-Textausgabe "#VOICE Microsoft Hedda Desktop"
-Textausgabe Zeilex_Spalte2

Ausgabe in Textdatei müsste ich selbst erstmal nachschauen

[Frank G. (frank_g53)]

Hallo Mike,

danke für deine Unterstützung.

Das habe ich gefunden und etwas angepasst:
Excel-Makro:

Option Explicit
Sub Create_New_Text_Files_from_Column()
'Variablen definieren
Dim Cr As Long, Cc As Integer, CrE As Long, CcE As Integer
Dim i As Long, n As Long, y As Long
Dim CHeader As String, ExPfad As String, Exfile As String
'Exportpfad mit Backslash am Schluss definieren !!
ExPfad = "C:\vokabeln\"
Cr = 65536
'Schliessen einer evetnuell noch geöffneten Datei
Close #1
'1. Öffnen der Datei
'Den Namen und Pfad bitte anpassen
Exfile = ExPfad & ".txt"
Open Exfile For Output As #1
'Beginn des Datenexports in die Textdatei
For n = 2 To Cr
    'Write oder Print verwenden
    Print #1, "#VOICE Microsoft Zira Desktop" 'umschalten auf englisch
    Print #1, Cells(n, 1) 'englisches verb aus der Tabelle in txt-file schreiben
    Print #1, "#VOICE Microsoft Hedda Desktop" 'umschalten auf deutsch
    Print #1, Cells(n, 2) 'deutsches verb aus der Tabelle in txt-file schreiben
Next n
    'Schliessen der Datei weil Dateiende erreicht wurde
    Close #1
    MsgBox n & " Textdateien wurden in " & ExPfad & " erstellt"
End Sub

Ergibt diesen Text:

#VOICE Microsoft Zira Desktop
Five
#VOICE Microsoft Hedda Desktop
Fünf
#VOICE Microsoft Zira Desktop
Stupid
#VOICE Microsoft Hedda Desktop
blöd
#VOICE Microsoft Zira Desktop

#VOICE Microsoft Hedda Desktop

#VOICE Microsoft Zira Desktop

#VOICE Microsoft Hedda Desktop

#VOICE Microsoft Zira Desktop

#VOICE Microsoft Hedda Desktop

#VOICE Microsoft Zira Desktop

Bin ganz nahe an der Lösung.
Muss noch die richtigen Steuerzeichen einfügen und den Zeilenzähler n 
umstricken.

[Frank G. (frank_g53)]

Ach das ging schneller als ich dachte:

Zeilenanzahl = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

Jetzt habe ich diesen Text:

#VOICE Microsoft Zira Desktop
Five
#VOICE Microsoft Hedda Desktop
Fünf
#VOICE Microsoft Zira Desktop
Stupid
#VOICE Microsoft Hedda Desktop
blöd

Nun kann ich mein kleines Vokabelheft abtippen und mir die Vokabeln auf 
dem Weg zur Arbeit anhören.

Vorausgesetzt mein Anfänger-script macht das mit.
Werde mich mal in dieses Office-VBA einarbeiten. Kann man bestimmt 
eleganter lösen.

Hier der aktuelle Code:

Option Explicit
Sub Create_New_Text_Files_from_Column()
'Variablen definieren
Dim Zeilenanzahl As Long
Dim n As Long
Dim CHeader As String, ExPfad As String, Exfile As String
'Exportpfad mit Backslash am Schluss definieren !!
ExPfad = "C:\vokabeln\"
Zeilenanzahl = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
'Schliessen einer evetnuell noch geöffneten Datei
Close #1
'1. Öffnen der Datei
'Den Namen und Pfad bitte anpassen
Exfile = ExPfad & ".txt"
Open Exfile For Output As #1
'Beginn des Datenexports in die Textdatei
For n = 2 To Zeilenanzahl
    'Write oder Print verwenden
    Print #1, "#VOICE Microsoft Zira Desktop" 'umschalten auf englisch
    Print #1, Cells(n, 1) 'englisches verb aus der Tabelle in txt-file schreiben
    Print #1, "#VOICE Microsoft Hedda Desktop" 'umschalten auf deutsch
    Print #1, Cells(n, 2) 'deutsches verb aus der Tabelle in txt-file schreiben
Next n
    'Schliessen der Datei weil Dateiende erreicht wurde
    Close #1
    MsgBox n & " Vokabeln wurden in " & ExPfad & " erstellt"
End Sub

Die Excel-Tabelle:

Englisch  Deutsch
Five          Fünf
Stupid          blöd

[Mike B. (mike_b97)]

öhm, das ist VBA
wieso eleganter lösen? es kommt raus was du raus haben willst
Durch die Abfrage der letzten Zeile bist du für Erweiterungen gerüstet.
Punkt. Fertig.

[Keep It Simple! (Gast)]

Warum muss die Eingabe eigentlich unbedingt aus so etwas kompliziert zu 
handhabendem wie einer Excel-Tabelle kommen? Man könnte das ganze doch 
einfach in eine Textdatei nach dem folgenden Schema schreiben:

five fünf
stupid blöd

Das dann weiter zu verarbeiten ist in jeder Programmiersprache trivial. 
Sogar mit einem dreckigen Einzeiler für Kommandozeilenfrickler:

awk '{ printf "#VOICE Microsoft Zira Desktop\n%s\n#VOICE Microsoft Hedda Desktop\n%s\n", $1, $2 }' vokabeln.txt > ausgabe.txt