Thema Datum  Von Nutzer Rating
Antwort
10.10.2012 20:28:53 Ferdinand Goss
NotSolved
11.10.2012 13:19:58 Dekor
NotSolved
11.10.2012 14:02:10 Gast98915
NotSolved
Blau Word- Textausgabe nach Farbe
 15.10.2012 12:26:06 Dekor
NotSolved

Ansicht des Beitrags:
Von:
Dekor		 Datum:
15.10.2012 12:26:06		 Views:
944		 Rating:
     
Antwort:
  Ja
Thema:
Word- Textausgabe nach Farbe

Hallo Ferdinand,

kann sein das du eine andere Farbnummer hast, probier mal dieses..

 

Sub test()
   Dim Text As Object
   Dim Laenge As Long
   Dim n As Long
   Dim Ausgabe As String
   Dim Farbe_Frage As Integer
   Dim Farbe_Antwort As Integer
   Dim Farbe As Integer
   Dim Anzahl As Long
    
   Set Text = Documents.Item(1).Content
   Laenge = Len(Text)
   
   Farbe_Frage = Text.Characters(1).Font.ColorIndex
   Farbe_Antwort = 0
   Farbe = Farbe_Frage
   Anzahl = 0
   Ausgabe = ""
    
   For n = 1 To Laenge
      If n = 1 Then
         If Text.Characters(n).Font.ColorIndex = Farbe Then
            Anzahl = 1
         Else
            MsgBox "Text beginnt nicht mit einer Frage!"
            Exit For
         End If
      End If
       
      If Anzahl > 0 Then
         If Text.Characters(n).Font.ColorIndex <> Farbe Then
            MsgBox Ausgabe
            Ausgabe = Text.Characters(n)
            If Farbe = Farbe_Frage Then
               Farbe = Farbe_Antwort
            Else
               Farbe = Farbe_Frage
               Anzahl = Anzahl + 1
            End If
         Else
            Ausgabe = Ausgabe & Text.Characters(n)
         End If
      End If
   Next
End Sub

Gruß Detlev

Ihre Antwort
  • 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: Name: Email:



  • 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
10.10.2012 20:28:53 Ferdinand Goss
NotSolved
11.10.2012 13:19:58 Dekor
NotSolved
11.10.2012 14:02:10 Gast98915
NotSolved
Blau Word- Textausgabe nach Farbe
 15.10.2012 12:26:06 Dekor
NotSolved