Thema Datum  Von Nutzer Rating
Antwort
Rot Fehler 424
12.04.2023 16:00:46 Heinz Gerhard
NotSolved
12.04.2023 17:51:14 ralf_b
NotSolved
12.04.2023 20:57:21 Ulrich
NotSolved
13.04.2023 07:25:54 Gast66816
NotSolved
13.04.2023 12:21:19 Ulrich
NotSolved
14.04.2023 07:20:18 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
Heinz Gerhard
Datum:
12.04.2023 16:00:46
Views:
706
Rating: Antwort:
  Ja
Thema:
Fehler 424

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

 

 

 

 

 

 

 

 

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Fehler 424
12.04.2023 16:00:46 Heinz Gerhard
NotSolved
12.04.2023 17:51:14 ralf_b
NotSolved
12.04.2023 20:57:21 Ulrich
NotSolved
13.04.2023 07:25:54 Gast66816
NotSolved
13.04.2023 12:21:19 Ulrich
NotSolved
14.04.2023 07:20:18 ralf_b
NotSolved