Tabellen in Word Formatieren
Hallo,
Was bereits funktioniert: Alle Tabellen formatieren in denen das Wort irgendwo vorkommt.
Jedoch stoppt die Prozedur, wenn der Begriff ein zweites mal in einer Tabelle erscheint.
vergeblich habe ich auch Versucht die Prozedur so zu programmieren, dass nur die Tabellen formatiert werden die das Wort in einer Bestimmten Zelle (z.B. der ersten) beinhalten.
Der bisherige Code:
Sub HinweistabellenFormat()
Dim Suchtext As String
Suchtext = InputBox("Gib den Text ein, der in der ersten Zeile vorkommen sollte", , "Test")
Dim dimTabelle As Table
For Each dimTabelle In ActiveDocument.Tables
With Selection.Find
.ClearFormatting
.Text = Suchtext
End With
Selection.Find.Execute
Selection.Style = "Helle Schattierung - Akzent 4"
Next
End Sub
Vielen Dank schon einmal für eure Hilfe
Robert |