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 |
|
|
|
22.03.2009 14:20:44 |
Holger |
|
|
|
22.03.2009 16:49:09 |
Holger |
|
|
Aw:Aw:Aw:Aw:Aw:Ausgewählte Tabellen formatieren |
22.03.2009 19:19:48 |
Robert |
|
|
Von:
Robert |
Datum:
22.03.2009 19:19:48 |
Views:
1065 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Aw:Aw:Aw:Ausgewählte Tabellen formatieren |
Hallo Holger, nochmals vielen Dank für deine angagierte Hilfe.
Deine letzte Prozedur ist perfekt, sie funktioniert super und ist sehr kompakt.
Ausgehend von deinem vorletzten Vorschlag habe ich noch eine Variante erarbetitet, bei der die Position des Suchbegriffs ausschlaggebend ist. Allerdings ist deine Lösung flexibler, wenn es z.B. darum geht alle Tabellen zu formatieren, die die in der Überschrift z.B "Tabelle 1." heisen.
Sub HinweistabellenFormatX()
Dim strSuchtext As String
Dim objAuswahl As Object
Dim intWordPosition As Integer
Dim objTabelle As Table
strSuchtext = InputBox("Gib den Text ein, der über eine Formatierung entscheidet", , "test")
intWordPosition = InputBox("Gib Position ein, an der das Entscheidende Wort steht", , "1")
For Each objTabelle In ActiveDocument.Tables
objTabelle.Select
With Selection.Find
.ClearFormatting
.Text = strSuchtext
If Selection.Words(intWordPosition).Text = strSuchtext Or Selection.Words(intWordPosition).Text = strSuchtext & " " Then
Selection.Style = "Helle Schattierung - Akzent 4"
End If
End With
Next
End Sub
Holger schrieb am 22.03.2009 16:49:09:
Hallo Robert,
mir fiel jetzt erst auf, dass du die Suche auf die erste Zeile der Tabellen beschränken willst. Insgesamt geht es sowieso einfacher. Ich schlage vor:
Sub HinweistabellenFormat()
Dim Suchtext As String
Dim dimTabelle As Table
Suchtext = InputBox("Gib den Text ein, der in der ersten Zeile vorkommen sollte", , "test")
For Each dimTabelle In ActiveDocument.Tables
dimTabelle.Rows(1).Select
If InStr(Selection.Text, Suchtext) Then 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 |
|
|
|
22.03.2009 14:20:44 |
Holger |
|
|
|
22.03.2009 16:49:09 |
Holger |
|
|
Aw:Aw:Aw:Aw:Aw:Ausgewählte Tabellen formatieren |
22.03.2009 19:19:48 |
Robert |
|
|