Guten Tag Mitglieder,
ich hätte gerne das unten gelistete Programm Kommentiert haben? Bekommt das jemand hin?
Erklärung des Programmes:
Wir haben eine ASC Datei mit verschiedenen Produkten. Jedes Produkt hat in der selben Zeile jeweils die Englische und die Deutsche Bezeichnung + die Bezeichnung der Farbe.(Natürlich sind noch mehr Information in der Datei enthalten, aber nur diese beiden werden übersetzt.
Nun nehmen wir ein Word Dokument und schreiben die Deutsche Bezichnung des Produktes hinein und dieses Makro überschreibt diese Bezeichnung mit der Englischen Bezeichnung.
Wäre nett, wenn mir beim auskommentieren jemand helfen kann, ich habe diesen Code bekommen, weil ein Fehler enthalten sein soll. Wenn jemand das auskommentieren könnte wäre mir sehr geholfen!
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Dim fs, f, ts, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile("C:\Users\edv\Desktop\Packliste\Test.asc")
Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
Do While ts.AtEndOfStream <> True
s = ts.ReadLine
laenge = Len(s)
ArtikelbezeichnungDE = RTrim(Right((Left(s, laenge - 150)), 40))
WerkstoffDE = RTrim(Right((Left(s, laenge - 489)), 40))
ArtikelbezeichnungEN = RTrim(Right((Left(s, laenge - 448)), 40))
WerkstoffEN = RTrim(Right((Left(s, laenge - 407)), 40))
With ActiveDocument.Content.Find
.ClearFormatting
.Replacement.ClearFormatting
.MatchWholeWord = True
.Execute FindText:=ArtikelbezeichnungDE, _
ReplaceWith:=ArtikelbezeichnungEN, Replace:=wdReplaceAll
.Execute FindText:=WerkstoffDE, _
ReplaceWith:=WerkstoffEN, Replace:=wdReplaceAll
End With
Loop
ts.Close
End Sub