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.

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