---

Hallo!
Folgendes Problem:
Ich möchte per VBA abfrage ob der Farbstil "usercolor" vorhanden ist und in alktiv setzten.

So sieht derzeit mein Code aus, funzt aber net richtig.
+++++++++++++++++++++++++++++++++++++++++++++++++++++++
Dim oPartDoc As PartDocument
Dim oRenderStyle As RenderStyle

Set oPartDoc = ThisApplication.ActiveDocument

For Each oRenderStyle In oPartDoc.RenderStyles
    If oRenderStyle.Name = ("usercolor") Then
        Set oRenderStyle = oPartDoc.RenderStyles.Item("usercolor")
        oPartDoc.Update
        Exit Sub
    Else
        Debug.Print "Farbstil *usercolor* nicht vorhanden"
    End If
Next

End Sub
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Warum wird der Farbstil "usercolor" nicht Aktiv??

Danke

------------------
Grüße aus den schönen Oberösterreich
Thomas
-------------
Für Grammatik- und Rechtschreibfehler wird keine Haftung übernommen.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von thomas100:
------------------
Grüße aus den schönen Oberösterreich
Thomas
-------------

---

Hi Thomas!
Bist Du gleich ums Eck? Postleitzahl  grade um 9 weniger kann nicht weit weg sein  .

Antwort auf die Frage kann ich Dir keine geben. Aber Du wurdest ja schon im VBA-Forum geholfen  .

------------------
lg   
Tom

       
...so geht mein Boot manchmal unter...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

... und ich dachte schon, thomas100 sei der kleine Bruder von thomas109....

Gruesse,

Paul

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hab mal in dein Profil gesehen und siehe da, ich bin wirklich nicht weit weg - PLZ 4050 *gg*.

------------------
Grüße aus den schönen Oberösterreich
Thomas
-------------
Für Grammatik- und Rechtschreibfehler wird keine Haftung übernommen.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP