Hilfe benötigt: Word Tabellentext formatieren (Case Anweisung) funktioniert nicht wie gewünscht

  • Word

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Petersilie.

    Hilfe benötigt: Word Tabellentext formatieren (Case Anweisung) funktioniert nicht wie gewünscht

    Hallo zusammen,

    ich habe ein kleines Problem, bei dem ich nicht weiterkomme:
    ich möchte automatisiert in einer Word-Tabelle bestimmte Textteile formatieren. Das funktioniert leider nicht 1oo%ig:

    Visual Basic-Quellcode

    1. Sub Formatierung()
    2. '
    3. Dim objRange As Range
    4. Dim a As Integer
    5. Dim zeilenanzahl As Integer
    7. zeilenanzahl = ActiveDocument.Tables(1).Rows.Count
    8. For a = 1 To zeilenanzahl
    9. varFindText = Array("agreed", "disagreed", "angenommen", "nicht angenommen", "modified agreed", "modifiziert angenommen", "withdrawn", "zurückgezogen", "modified", "modifiziert", "noticed")
    10. Set objRange = ActiveDocument.Tables(1).Cell(a, 8).Range
    12. With objRange.Find
    13. For i = LBound(varFindText) To UBound(varFindText)
    14. .Forward = True
    15. .Wrap = wdFindContinue
    16. .MatchCase = False 'True, Wenn der Suchvorgang Groß-/Kleinschreibung beachtet wird.
    17. .MatchWholeWord = True 'True, Wenn der Suchvorgang nur ganze Wörter sucht und keinen Text, der Teil eines größeren Worts ist.
    18. .MatchWildcards = False 'True, Wenn der zu suchende Text Platzhalter enthält.
    19. .MatchSoundsLike = False 'True, wenn Wörter, die ähnlichen den gesuchten Text.
    20. .MatchAllWordForms = False 'True, Wenn alle Formen der den gesuchten Text des Suchvorgangs gefunden werden
    21. .Execute FindText:=varFindText(i)
    22. If .Found = True Then
    23. Select Case .text
    25. Case "modified agreed", "modifiziert angenommen", "withdrawn", "zurückgezogen", "modified", "modifiziert", "noticed"
    26. objRange.Bold = True
    27. objRange.Font.ColorIndex = wdBlack
    28. Case "agreed", "angenommen"
    29. objRange.Bold = True
    30. objRange.Font.ColorIndex = wdGreen
    31. Case "disagreed", "nicht angenommen"
    32. objRange.Bold = True
    33. objRange.Font.ColorIndex = wdRed
    35. End Select
    36. End If
    37. Next i
    38. End With
    39. Next a
    40. Selection.HomeKey unit:=wdStory
    41. End Sub


    bei Case "modified agreed" macht er einfach keine Formatierung, sondern er formatiert ausschließlich das Wort "agreed" in fett und grün, aber nichts sonst. ich verstehe nicht woher der Fehler kommt, vielleicht kann mir hier jemand helfen.

    Vielen Dank schonmal vorab.

    Schöne Grüße,
    Stephan

    Hallo,

    das liegt daran das agreed sowohl in modified agreed vorkommt als auch in agreed als auch in disagreed
    der unterschied zwischen modified agreed und diagreed ist, dass disagreed ein einzelnes Wort ist im Gegensatz zu modified agreed, welches aus zwei eigenständigen Wörtern besteht.

    Ändere alle modified agreed in modifiedagreed oder magreed o.ä um, dann geht es.

Facebook
Telefonspende