Ueber VBA TXT Dateien einfügen

08/08/2009 - 12:07 von Willy Steffen | Report spam
Guten Tag
Vermehrt müssen wir für die Dokumentation ca. 100 unterschiedliche kleine
TXT dateien in Word einfüge, was manuell sehr zeitaufwàndig ist.
Nun Frage ich, ob dies automatisch mit einem Macro über ein button möglich
ist.
Die TXT-Dateien sind jeweils unter der entsprechenden Doknr in 1 Verzeichnis
gespeichert. Die Dateinamen sind z,B. 100.sxp unregelmàssig durchnumeriert
bis 999.sxp und TEC11.sxt bis TEC14 und grösste TEC51.sxt bis TEC54. In Word
sollte nun jeweils der Inhalt dieser Dateien eingefügt werden und mit jeweils
mit ;plus Dateiname und mit ; abschliessen. Eine Text-Datei
kann etwa so aussehen
%
;Dressing
G5 Z0
RV= 30%
G5 Z-1000
ENDP
Die Wordatei sollte so aussehen:
;100.sxp
%
;Dressing
G5 Z0
RV= 30%
G5 Z-1000
ENDP
;--
Ist sowas mit Word möglich und kann mir jemand einen Tipp geben?
Ich benütze Word2003 und bin in VBA nicht bewandert.
Vielen Dank für Eure hilfe im Voraus
Willy
 

Lesen sie die antworten

#1 Wolfram Jahn
08/08/2009 - 22:05 | Warnen spam
Willy Steffen schrieb:
Nun Frage ich, ob dies automatisch mit einem Macro über ein button möglich
ist.
Die TXT-Dateien sind jeweils unter der entsprechenden Doknr in 1 Verzeichnis
gespeichert. Die Dateinamen sind z,B. 100.sxp unregelmàssig durchnumeriert
bis 999.sxp und TEC11.sxt bis TEC14 und grösste TEC51.sxt bis TEC54.



Woran soll das Makro erkennen, welche der Dateien eingefügt werden soll?
Steht da irgendwas im Text? Oder heißt das Word-Dokument passend?


Wolfram

Ähnliche fragen