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:
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
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
- Sub Formatierung()
- '
- Dim objRange As Range
- Dim a As Integer
- Dim zeilenanzahl As Integer
- zeilenanzahl = ActiveDocument.Tables(1).Rows.Count
- For a = 1 To zeilenanzahl
- varFindText = Array("agreed", "disagreed", "angenommen", "nicht angenommen", "modified agreed", "modifiziert angenommen", "withdrawn", "zurückgezogen", "modified", "modifiziert", "noticed")
- Set objRange = ActiveDocument.Tables(1).Cell(a, 8).Range
- With objRange.Find
- For i = LBound(varFindText) To UBound(varFindText)
- .Forward = True
- .Wrap = wdFindContinue
- .MatchCase = False 'True, Wenn der Suchvorgang Groß-/Kleinschreibung beachtet wird.
- .MatchWholeWord = True 'True, Wenn der Suchvorgang nur ganze Wörter sucht und keinen Text, der Teil eines größeren Worts ist.
- .MatchWildcards = False 'True, Wenn der zu suchende Text Platzhalter enthält.
- .MatchSoundsLike = False 'True, wenn Wörter, die ähnlichen den gesuchten Text.
- .MatchAllWordForms = False 'True, Wenn alle Formen der den gesuchten Text des Suchvorgangs gefunden werden
- .Execute FindText:=varFindText(i)
- If .Found = True Then
- Select Case .text
- Case "modified agreed", "modifiziert angenommen", "withdrawn", "zurückgezogen", "modified", "modifiziert", "noticed"
- objRange.Bold = True
- objRange.Font.ColorIndex = wdBlack
- Case "agreed", "angenommen"
- objRange.Bold = True
- objRange.Font.ColorIndex = wdGreen
- Case "disagreed", "nicht angenommen"
- objRange.Bold = True
- objRange.Font.ColorIndex = wdRed
- End Select
- End If
- Next i
- End With
- Next a
- Selection.HomeKey unit:=wdStory
- 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