Text einer bestimmten Farbe per VBA aus Dokument löschen

[Gast] Foren Programme Office Microsoft Office Text einer bestimmten Farbe per VBA aus Dokument löschen

Office - Alles fürs Büro

Themen

Beiträge

Moderatoren

Letzter Beitrag

Microsoft Office

1622

6216

16. Aug 2023, 11:27

JoPo

Elisa9

Beiträge gesamt:

6. Mai 2008, 09:25
Beitrag # 1 von 7
Bewertung:
(8823 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

Guten Morgen,

ich bin eine blutige VBA-Anfängerin. Hier im Forum ist mir schon sehr viel geholfen worden und dafür möchte ich mich nochmals herzlich bedanken.

Ich möchte allen grünen Text in einem Worddokument per Macro rauslöschen. Alles, was ich bis jetzt hingebracht habe ist, dass genau der grüne Text nicht gelöscht wird. Ich benütze folgenden Code

Code

Sub GruenLoeschen() 
' Gruenen Text loeschen 
    With Selection.Find 
    .Font.ColorIndex = GruenSpecial 
        .Replacement.Text = "" 
        .Forward = True 
        End With 
    Selection.Find.Execute Replace:=wdReplaceAll 
End Sub

Was mache ich wohl falsch?

Ich bin danbar um jeden Gedankenanstoss,
Elisa

Text einer bestimmten Farbe per VBA aus Dokument löschen

bröp

Beiträge gesamt: 160

6. Mai 2008, 10:46
Beitrag # 2 von 7
Beitrag ID: #349240
Bewertung:
(8794 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

Die Farbe GruenSpecial gibt es nicht bzw. hast Du nicht definiert.

Folgende "Grün" gibt es:
wdColorBrightGreen
wdColorSeaGreen
wdColorGreen

Oder wenn Du eine selber definierte Farbe hast, musst Du diesen Befehl benutzen:

Code

    .Font.Color = RGB(0, 255, 0)

Natürlich noch die RGB-Werte anpassen.

Gruss
Bruno

als Antwort auf: [#349227]

Text einer bestimmten Farbe per VBA aus Dokument löschen

Elisa9

Beiträge gesamt:

6. Mai 2008, 10:58
Beitrag # 3 von 7
Beitrag ID: #349241
Bewertung:
(8789 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

Danke für Deine Antwort Bruno!

Die Farbe habe ich selber definiert.
Kannst Du mir bitte sagen, was ich eingeben muss, damit der gefundene Text gelöscht wird?

Gruss,
Elisa

als Antwort auf: [#349240]

Text einer bestimmten Farbe per VBA aus Dokument löschen

bröp

Beiträge gesamt: 160

6. Mai 2008, 11:29
Beitrag # 4 von 7
Beitrag ID: #349247
Bewertung:
(8775 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

Um die RGB-Werte herauszufinden, wähle eine Textpassage an, die Grün ist. Dann benutze im Kontextmenü (Rechtsklick) den Punkt "Zeichen..." um die Schrift zu formatieren. Nun wähle bei Schriftfarbe "Weitere Farben" aus. Im Register "Benutzerdefiniert" siehst Du die benötigten Werte.

Gruss
Bruno

als Antwort auf: [#349241]

Text einer bestimmten Farbe per VBA aus Dokument löschen

Elisa9

Beiträge gesamt:

6. Mai 2008, 11:45
Beitrag # 5 von 7
Beitrag ID: #349249
Bewertung:
(8763 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

Hallo Bruno,

ich möchte gerne per Makro, also in Visual Basic programmiert, allen grünen Text löschen.
Weisst Du, wie ich den Code schreiben muss, damit alles grüne gelöscht wird?

Danke,
Elisa

als Antwort auf: [#349247]

Text einer bestimmten Farbe per VBA aus Dokument löschen

bröp

Beiträge gesamt: 160

6. Mai 2008, 12:48
Beitrag # 6 von 7
Beitrag ID: #349263
Bewertung:
(8741 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

Nochmals kurz zusammengefasst:

1. RGB-Wert der grünen Schrift ermitteln.
2. Makro erstellen:

Code

Sub GruenLoeschen() 
  ' Gruenen Text loeschen 
   With Selection.Find 
    .Font.Color = RGB(0, 255, 0) 'RGB-Werte eintragen 
    .Replacement.Text = "" 
    .Forward = True 
    .Format = True 
  End With 
  Selection.Find.Execute Replace:=wdReplaceAll 
End Sub

3. Makro starten.

Gruss
Bruno

als Antwort auf: [#349249]
(Dieser Beitrag wurde von bröp am 6. Mai 2008, 12:49 geändert)

Text einer bestimmten Farbe per VBA aus Dokument löschen

Elisa9

Beiträge gesamt:

6. Mai 2008, 13:01
Beitrag # 7 von 7
Beitrag ID: #349270
Bewertung:
(8733 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

Vielen Dank Bruno!

Ich wusste einfach nicht, wie ich es hinbringe, dass der grüne Text verschwindet. Dank Deinem Code habe ich wieder Einiges dazugelernt.

Gruss
Elisa

als Antwort auf: [#349263]

Aktuell

PDF / Print

callas software veröffentlicht pdfaPilot 12

| 28.11.2022

Weitere Events

Neuste Foreneinträge

Pfade mit weiï¿½en Hintergrund hinterlegen

Adobe Acrobat DC Pro 23.006.20320 (Mac) / Sonderbares

OSX 14 SONOMA

Leistungseinschrï¿½nkung?

Markierten Text in eine neue Tabellenzelle verschieben (INDD18.5 WIN10)

Indesign-Umstellung fï¿½r arabisch

Fotos: Ordner mit mehreren Alben verï¿½ffentlichen

Lightroom: Katalog mit mehreren Alben verï¿½ffentlichen

In PDF Formular das eingetragene Datum um 6 oder 12 Monate spï¿½ter berechnen

Indesign 2022 Versionen der Abteilung sukzessive nicht mehr startbar.

Weitere Stellenangebote