Hallo zusammen,
ich möchte einen deutschen Text in niederrheinisches Platt übersetzen. Der Text kann ein Word Dokument sein, kann aber auch in eine bestehende Datei kopiert werden. In einem Excel Arbeitsblatt sollen die deutschen Wörter in der linken Spalte gesucht werden, dann in der rechten Spalte die Wörter in Platt kopiert werden.
Aalkorb |
Üül |
Aalreuse |
Fükk |
Aas |
Oos |
ab |
av |
abbrechen |
avbräke |
abdecken |
avdäkke |
Das Macro sollte also so aussehen, dass das erste und danach jedes weitere Wort in der Spalte gesucht wird, und durch das Wort in der zweiten Spalte ersetzt wird bis der Text zu Ende ist. In einer Spalte sind ca. 8000 Worte. Bei Fehlern sollte das nächste Wort gewählt werden.
Sub Ersetzen_Platt()
Dim document As Object
Dim replace As Object
Dim iNumber As Integer
Dim dWort As String
Dim pWort As String
Dim dWort2 As String
Dim pWort2 As String
Dim aFile As String
Set document = ThisComponent
Set replace = document.createReplaceDescriptor
ChDir "C:\Heinz\Parken\Platt"
Workbooks.Open Filename:="C:\Heinz\Parken\Platt\Test\ListePlattTest.txt"
iNumber = FreeFile
Open aFile For Input As iNumber
Rem While Not EOF(iNumber)
Do While Not EOF(iNumber)
Line Input #iNumber, dWort
If EOF(iNumber) Then
Exit Do
End If
Line Input #iNumber, pWort
If dWort <> "" And pWort <> "" Then
dWort2 = dWort & " "
pWort2 = pWort & " "
replace.SearchString = dWort2
replace.ReplaceString = pWort2
document.replaceAll (replace)
dWort2 = dWort & "."
pWort2 = pWort & "."
replace.SearchString = dWort2
replace.ReplaceString = pWort2
document.replaceAll (replace)
dWort2 = dWort & ","
pWort2 = pWort & ","
replace.SearchString = dWort2
replace.ReplaceString = pWort2
document.replaceAll (replace)
dWort2 = dWort & "!"
pWort2 = pWort & "!"
replace.SearchString = dWort2
replace.ReplaceString = pWort2
document.replaceAll (replace)
dWort2 = dWort & "?"
pWort2 = pWort & "?"
replace.SearchString = dWort2
replace.ReplaceString = pWort2
document.replaceAll (replace)
End If
Rem Wend
Loop
Close #iNumber
MsgBox "Fertig!"
End Sub
Nachdem mir ein Antivirdeinstallationsprogramm meinen Laptop zerissen hat bekomme ich die Fehlermeldung " 424 ". Nach einigen Versuche gebe ich jetzt auf. Ich hoffe ihr könnt mir weiter helfen. Im Voraus vielen Dank.
Mit freundlichen Grüßen
Heinz Gerhard
|