Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
18.11.2014 14:56:22 |
Mara |
|
|
|
19.11.2014 10:37:06 |
Gast60144 |
|
|
zum Bleistift so ? |
20.11.2014 15:12:15 |
Gast58649 |
|
|
|
20.11.2014 19:59:39 |
Gast13621 |
|
|
|
24.11.2014 08:27:23 |
Mara |
|
|
|
24.11.2014 08:40:15 |
Mara |
|
|
|
24.11.2014 09:25:08 |
Gast92691 |
|
|
|
25.11.2014 07:17:57 |
Mara |
|
|
|
03.12.2014 11:09:21 |
Mara |
|
|
|
03.12.2014 11:25:21 |
Ambg |
|
|
|
03.12.2014 11:30:43 |
Gast96518 |
|
|
|
03.12.2014 14:50:36 |
Mara |
|
|
|
03.12.2014 15:18:58 |
Ambg |
|
|
|
09.12.2014 15:27:19 |
Mara |
|
|
|
09.12.2014 20:11:17 |
Ambg |
|
|
|
10.12.2014 15:31:23 |
Mara |
|
|
Von:
Gast58649 |
Datum:
20.11.2014 15:12:15 |
Views:
612 |
Rating:
|
Antwort:
|
Thema:
zum Bleistift so ? |
Hallo, mein Code sieht wie folgt aus:
Sub FormatNachWort()
Dim vList1 As Variant, vList2 As Variant
Dim intI As Integer
Dim myRange As Range
Dim aWord As Range
vList1 = Array("Abkürzungen")
vList2 = Array("GmbH")
Set myRange = ActiveDocument.Range(Start:=0, End:=Selection.End)
For Each aWord In myRange.Words
For intI = 0 To UBound(vList1)
If LCase(vList1(intI)) = Trim$(LCase(aWord)) Then
aWord.HighlightColorIndex = wdPink
Exit For
End If
Next
For intI = 0 To UBound(vList2)
If LCase(vList2(intI)) = Trim$(LCase(aWord)) Then
aWord.Bold = True
aWord.Font.Color = wdColorRed
Exit For
End If
Next
Next
Set myRange = Nothing
End Sub
Allerdings ist dies wie gesagt in Word und auf das Wort "Abkürzungen" beschränkt (vList2 spielt keine Rolle).
Ich bekomme hier jetzt noch eine Fehlermeldung: "User-defined type not defined" in der Zeile, in der oWordApp definiert wird. Du machst mir gerade sehr viel Hoffnung *froh*
Viele Grüße
|
- 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
|
|
18.11.2014 14:56:22 |
Mara |
|
|
|
19.11.2014 10:37:06 |
Gast60144 |
|
|
zum Bleistift so ? |
20.11.2014 15:12:15 |
Gast58649 |
|
|
|
20.11.2014 19:59:39 |
Gast13621 |
|
|
|
24.11.2014 08:27:23 |
Mara |
|
|
|
24.11.2014 08:40:15 |
Mara |
|
|
|
24.11.2014 09:25:08 |
Gast92691 |
|
|
|
25.11.2014 07:17:57 |
Mara |
|
|
|
03.12.2014 11:09:21 |
Mara |
|
|
|
03.12.2014 11:25:21 |
Ambg |
|
|
|
03.12.2014 11:30:43 |
Gast96518 |
|
|
|
03.12.2014 14:50:36 |
Mara |
|
|
|
03.12.2014 15:18:58 |
Ambg |
|
|
|
09.12.2014 15:27:19 |
Mara |
|
|
|
09.12.2014 20:11:17 |
Ambg |
|
|
|
10.12.2014 15:31:23 |
Mara |
|
|