Text zwischen zwei Zeichen im Dokument löschen

  • Word

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von peterfido.

    Text zwischen zwei Zeichen im Dokument löschen

    Hallo,

    ich habe folgendes Problem.

    Ich möchte im gesamten Word-Dokument alles was in Klammern steht entfernen, sodass nur die Klammern übrig beiben.

    Bsp:

    Text Text Text Text

    Text (Text Text) Text Text

    Text Text

    soll so aussehen:

    Text Text Text Text

    Text () Text Text

    Text Text



    Ich habe folgenden Code hier im Forum gefunden, aber es tut sich leider nichts:

    Quellcode

    1. Dim p1 As Integer
    2. Dim p2 As Integer
    3. Dim Text As String
    4. Dim neuerText As String
    6. Text = "(dazwischen)"
    7. p1 = InStr(1, Text, "(")
    8. p2 = InStr(p1 + 1, Text, ")")
    9. neuerText = Left(Text, p1) & Mid(Text, p2)


    Kann mir da vielleicht einer helfen ?

    gabriel-b schrieb:

    For Each var As String In "text (text text) text"
    Wird in VBA nicht funktionieren.
    Da müsste man schon mit der "herkömmlichen" Methode arbeiten.

    Visual Basic-Quellcode

    1. Dim s As String, c As String, Found as Boolean, Text As String
    2. s = "123 (456 789) 0123"
    3. For i = 1 To Len(s)
    4. c = Mid(s,i,1)
    5. If c = ")" Then Found=False
    6. If Not Found Then text = text & c
    7. If c = "(" Then Found = True
    8. Next


    Aber ich sehe auch keinen Grund, weshalb der InStr-Ansatz nicht funktionieren sollte.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „petaod“ ()

    Evtl. long statt integer, wenn die Texte länger werden. Dann noch vbtextcompare als Option mit angeben. Sollte aber auch so funktionieren.

    Oder so, wenn beide Klammerteile vorhanden sein müssen:

    Visual Basic-Quellcode

    1. Private Sub los()
    2. Debug.Print KlammerLeer("davor(dazwischen)danach")
    3. End Sub
    5. Private Function KlammerLeer(ByVal QuellText As String) As String
    6. Dim Anfang As Long
    7. Dim Ende As Long
    8. Anfang = InStr(1, QuellText, "(", vbTextCompare)
    9. Ende = InStr(Anfang + 1, QuellText, ")", vbTextCompare)
    10. If Anfang > 0 And Ende > 0 Then
    11. KlammerLeer = Left$(QuellText, Anfang) & Mid$(QuellText, Ende)
    12. Else
    13. KlammerLeer = QuellText
    14. End If
    15. End Function

    Gruß
    Peterfido

    Keine Unterstützung per PN!

Facebook
Telefonspende