Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
21.03.2009 18:21:27 |
Robert |
|
|
|
22.03.2009 09:47:06 |
Holger |
|
|
|
22.03.2009 13:23:21 |
Robert |
|
|
Aw:Aw:Aw:Ausgewählte Tabellen formatieren |
22.03.2009 14:20:44 |
Holger |
|
|
|
22.03.2009 16:49:09 |
Holger |
|
|
|
22.03.2009 19:19:48 |
Robert |
|
|
Von:
Holger |
Datum:
22.03.2009 14:20:44 |
Views:
1114 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Aw:Ausgewählte Tabellen formatieren |
Hallo Robert,
versuche:
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
dimTabelle.Select
With Selection.Find
.ClearFormatting
.Text = Suchtext
.Execute
If .Found = True Then Selection.Style = "Helle Schattierung - Akzent 4"
End With
Next
End Sub
Gruß
Holger
Robert schrieb am 22.03.2009 13:23:21:
Danke Holger, für deinen Hinweis.
Zwar bleibt die Prozedur jetzt tatsächlich nicht mehr hängen, wenn der Suchtext mehrmals in einer Tabelle vorkommt.
Allerdings werden jetzt auch die Tabellen formatiert, die denen Begriff überhaupt nicht vorkommt.
Mein Ziel ist, dass nur diejenigen Tabellen formatiert werden, die den Suchtext in einer bestimmten Zelle oder Position beinhalten.
Z.B. in der ersten Zeile.
Gruß, Robert
Holger schrieb am 22.03.2009 09:47:06:
Hallo Robert,
deine For-Next-Schleife wird nicht so oft durchlaufen, wie dein Suchwort auftritt, sondern wie viele Tabellen du in deinem Dokument hast. Die Suche wird aber immer beim zuletzt gefundenen Wort fortgesetzt, so dass spätere nicht mehr gefunden werden, wenn das Suchwort in einer Tabelle mehrfach gefunden wird oder auch zwischen den Tabellen auftritt.
Abhilfe: Markiere die nächste Tabelle noch einem Durchlauf durch die For-Next-Schleife:
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
dimTabelle.select
With Selection.Find
.ClearFormatting
.Text = Suchtext
End With
Selection.Find.Execute
Selection.Style = "Helle Schattierung - Akzent 4"
Next
End Sub
Gruß
Holger |
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
|
21.03.2009 18:21:27 |
Robert |
|
|
|
22.03.2009 09:47:06 |
Holger |
|
|
|
22.03.2009 13:23:21 |
Robert |
|
|
Aw:Aw:Aw:Ausgewählte Tabellen formatieren |
22.03.2009 14:20:44 |
Holger |
|
|
|
22.03.2009 16:49:09 |
Holger |
|
|
|
22.03.2009 19:19:48 |
Robert |
|
|