Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: ---> 4. September: Office-Treffen Rhein-Ruhr <-
Forum-Regeln :: FAQ :: Forum-Suche :: Mitgliederliste :: Benutzergruppen :: Favoriten ::  Registrieren :: Profil :: Briefkasten :: Login
PageRef farbig markieren (Word 2002)
Office Forum -> Word Forum -> Word VBA Programmierung (Makros)
zurück: Berechnung in Word mit Textformularfeldern weiter: Makro: Ersetzen in Tabellenzellen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Gast



Verfasst am:
10. Okt 2008, 18:00
Rufname:

PageRef farbig markieren (Word 2002) - PageRef farbig markieren (Word 2002)

 Nach oben
       Version: (keine Angabe möglich)
Guten Tag,

ich möchte alle Querverweise (Feld: PageRef) farbig markieren.
so wurden die Querverweise erstellt:
Menü -> Einfügen -> Feld -> Feldname: PageRef

Wie läßt sich das bewerkstelligen? Ich benötige diese Textstellen später farbig für die Weiterverarbeitung in einem anderen Programm.

Gruss
Christoph
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
10. Okt 2008, 20:09
Rufname:
Wohnort: Leipzig

AW: PageRef farbig markieren (Word 2002) - AW: PageRef farbig markieren (Word 2002)

 Nach oben
       Version: (keine Angabe möglich)
Hallo Christoph,

könntest Du etwa so angehen:
Code:
Sub PageRefFaerben()

    Dim fld As Word.Field
   
    For Each fld In ActiveDocument.Fields
        If InStr(1, fld.Code.Text, "PageRef", vbTextCompare) > 0 Then
            If fld.Result.HighlightColorIndex = wdAuto Then
                fld.Result.HighlightColorIndex = wdYellow
            End If
        End If
    Next fld
               
End Sub

Falls die Felder auch in Kopf- und Fußzeilen oder Textfeldern usw. enthalten sind, die Schleife erweitern.
_________________
Sei doch so nett und gib eine Rückmeldung, ob es klappt!
Gruß, Lisa

Guter Rat ist teuer!
Gast



Verfasst am:
11. Okt 2008, 08:47
Rufname:

AW: PageRef farbig markieren (Word 2002) - AW: PageRef farbig markieren (Word 2002)

 Nach oben
       Version: (keine Angabe möglich)
Hallo Lisa,

das Makro klappt soweit prima, dankeschön.
Aus irgendeinem Grund wird aber die Texthintergrundfarbe bei der Weiterverarbeitung ignoriert.
Nun habe ich mir gedacht ich könnte via Font.ColorIndex den entsprechenden Feldtext farbig markieren. Leider tut sich da aber nichts.
Hast Du hierfür noch eine Idee?


Gruss
Christoph
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
11. Okt 2008, 11:16
Rufname:
Wohnort: Leipzig

AW: PageRef farbig markieren (Word 2002) - AW: PageRef farbig markieren (Word 2002)

 Nach oben
       Version: (keine Angabe möglich)
Hallo Christoph,

nimm einfach nur Color:
Code:
Sub PageRefFaerben()

    Dim fld As Word.Field
   
    For Each fld In ActiveDocument.Fields
        If InStr(1, fld.Code.Text, "PageRef", vbTextCompare) > 0 Then
            If Not fld.Result.Font.Color = wdColorRed Then
                fld.Result.Font.Color = wdColorRed
            End If
        End If
    Next fld
               
End Sub

_________________
Sei doch so nett und gib eine Rückmeldung, ob es klappt!
Gruß, Lisa

Guter Rat ist teuer!
Gast



Verfasst am:
12. Okt 2008, 08:15
Rufname:

AW: PageRef farbig markieren (Word 2002) - AW: PageRef farbig markieren (Word 2002)

 Nach oben
       Version: (keine Angabe möglich)
Hallo Lisa,

ja so klappt es prima, dankeschön.

Gruss
Christoph
Neues Thema eröffnen   Neue Antwort erstellen     Nach oben Alle Zeiten sind
GMT + 1 Stunde
Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Word Hilfe: Word 2002 Literaturverzeichnis??? 2 dr. zerstreut 229 09. Nov 2009, 10:49
dr. zerstreut Word 2002 Literaturverzeichnis???
Keine neuen Beiträge Word Gestaltungselemente: teilbereiche markieren und schraffieren? 1 Julian 1 756 14. Aug 2009, 16:28
charlybrown teilbereiche markieren und schraffieren?
Keine neuen Beiträge Word Formate: Nummerierungen mit Word 2002 0 chrissss 102 23. März 2009, 18:04
chrissss Nummerierungen mit Word 2002
Keine neuen Beiträge Word Hilfe: Text automatisch wiederholen (Word 2002) 0 Solyong 218 16. Jan 2009, 11:04
Solyong Text automatisch wiederholen (Word 2002)
Keine neuen Beiträge Word Gestaltungselemente: Problem im Abbildungsverzeichnis (Word 2002) - Zeilenumbruch 2 ZES 948 14. Nov 2008, 17:53
ZES Problem im Abbildungsverzeichnis (Word 2002) - Zeilenumbruch
Keine neuen Beiträge Word Hilfe: Inhalte von runden Klammern markieren 6 apache78 423 05. Dez 2007, 11:19
Gast Inhalte von runden Klammern markieren
Keine neuen Beiträge Word VBA Programmierung (Makros): Userform Word <-> Excel (Office 2002) 0 Patt 399 30. Okt 2007, 20:39
Patt Userform Word <-> Excel (Office 2002)
Keine neuen Beiträge Word VBA Programmierung (Makros): Markieren von Text 11 awilde 2465 13. Apr 2007, 18:17
Sandra21 Markieren von Text
Keine neuen Beiträge Word Hilfe: Nach markieren von einer Zeile wird ganzes Dokument fett 3 TomTr 1225 12. März 2007, 20:08
Ina Nach markieren von einer Zeile wird ganzes Dokument fett
Keine neuen Beiträge Word VBA Programmierung (Makros): Objekt Selection Word 2002 (Nicht Beantwortet; Geschlossen) 3 Yosh-Summer 504 06. Jul 2006, 10:16
CHF Objekt Selection Word 2002 (Nicht Beantwortet; Geschlossen)
Keine neuen Beiträge Word Gestaltungselemente: Word 2002: Feste Breite in einer Spalte einstellen 2 Testuser10 2159 19. Mai 2006, 21:24
Testuser10 Word 2002: Feste Breite in einer Spalte einstellen
Keine neuen Beiträge Word Gestaltungselemente: Webformulare in Word 2002 2 lord-spam 705 05. Apr 2006, 20:50
Tkuki Webformulare in Word 2002
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Pareto Diagramm