Skip to content

Daniels Tagesmeldungen

Kleine IT-Episoden & das wahre Leben

  • Startseite
  • About me…
    • Lebenslauf
    • Weiterbildung
  • Disclaimer
  • Toggle search form

Word-VBA: Rote Schrift per Makro anpassen

Posted on 23. Juni 201323. Juni 2013 By Chef vom Dienst 2 Kommentare zu Word-VBA: Rote Schrift per Makro anpassen

Ich habe ein großes Word-Dokument erhalten, welches wichtige Daten in rot gekennzeichnet hat. Da mir für den Ausdruck nur ein Schwarz-Weiß-Drucker zur Verfügung steht, benötige ich ein anderes Unterscheidungsmerkmal.

Als Idee hatte ich nun die roten Zeichen als Unterscheidungsmerkmal in „fett“ und „kursiv“ zu setzen. Da es viele Seiten zu editieren galt, behalf ich mich mit dem folgenden Makro, welches mir die Umsetzung abnahm:

Sub RedChanger
 'Falls das Zeichen die Farbe "Rot" besitzt, folgendes durchführen:
 '- Schrift auf "automatisch" setzen
 '- Schrift auf "fett" setzen
 '- Schrift auf "kursiv" setzen
 
 Dim WordDocument As Word.Document
 Dim longCount As Long
 Set WordDocument = ActiveDocument
 Application.ScreenUpdating = False
 
 For longCount = 1 To WordDocument.Range.Characters.Count
  If WordDocument.Characters(longCount).Font.Color = wdColorRed Then
      WordDocument.Characters(longCount).Font.Color = 0
      WordDocument.Characters(longCount).Font.Bold = True
      WordDocument.Characters(longCount).Font.Italic = True
  End If
  Application.ScreenUpdating = True
 DoEvents
 Next
End Sub

Dieses Skript kann natürlich auch für andere Zwecke erweitert und angepasst werden. Jedes Zeichen wird dabei einzeln analysiert, so dass die Anpassung eines Textes eine gewisse Zeit in Anspruch nimmt.

Office, VBA

Beitrags-Navigation

Previous Post: Sprachbefehle in Android deaktivieren
Next Post: Gruppenrichtlinien auf Client analysieren

Comments (2) on “Word-VBA: Rote Schrift per Makro anpassen”

  1. Erich Körber sagt:
    29. Januar 2022 um 08:24 Uhr

    Hallo,
    wie geht man vor, wenn die Farbe bestimmter Daten keine Standardfarbe ist, man also keine wdColor Konstante verwenden kann.
    Wäre für Hilfe sehr dankbar.

  2. Chef vom Dienst sagt:
    29. Januar 2022 um 10:01 Uhr

    Hallo Erich,
    wenn dir die definierte Farbe bekannt ist, kannst du die Zeile austauschen:
    If WordDocument.Characters(longCount).Font.Color = RGB(255, 0, 0) Then
    Dieses ist das adaptive Beispiel für Rot.

    Viele Grüße
    Daniel

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert

Daniel Lensing

Ich betreibe diesen Blog, wo ich meine Erfahrungen aus der IT sowie dem damit verbundenen Berufsalltag dem Internet zur Verfügung stelle.

Zwischenzeitlich bringe ich auch noch die eine oder andere Gegebenheit aus meinem Offline-Leben zur digitalen Nutzung.

Follow us

  • rss
  • mail
  • twitter
  • instagram
  • xing
  • linkedin

Kategorien

  • Allgemein (13)
  • Client (207)
    • Android (3)
    • Fedora (Linux) (4)
    • iOS (3)
    • Mac OS X (3)
    • Peripherie (4)
    • Ubuntu (Linux) (5)
    • Windows 10 (40)
    • Windows 11 (1)
    • Windows 7 (99)
    • Windows 8 (36)
    • Windows 8.1 (28)
    • Windows Mobile (2)
    • Windows Vista (64)
    • Windows XP (20)
  • Cloud (11)
    • Microsoft Azure (4)
    • Office 365 (7)
  • Fortbewegung (36)
    • Auto (12)
    • Bahn (13)
    • Beinarbeit (1)
    • Zweirad (10)
  • IT-Nachrichten (34)
  • Leben & Beruf (70)
    • Arbeitszimmer (2)
    • Gedanken (12)
    • Kino (2)
    • Lebensmittel & Essen (3)
    • Lesestoff (3)
    • Podcast (5)
  • Lehren & Lernen (44)
    • Konferenzen (1)
    • Präsentation (1)
    • Zertifizierung (42)
  • Programme (304)
    • Android-Apps (21)
    • Eigene Tools (11)
    • iOS-Apps (1)
    • Office (82)
    • Patchday+Updates (66)
    • Software (141)
    • Spiele (3)
    • Windows Phone-Apps (2)
  • Programmierung (78)
    • AutoIT (1)
    • KiXtart (1)
    • PHP (2)
    • Power Automate (1)
    • Powershell (49)
    • VB.NET (7)
    • VBA (10)
    • VBS (10)
  • Server (137)
    • Citrix XenServer (2)
    • Exchange Server (25)
    • Lync Server (1)
    • System Center (4)
    • Windows Home Server (2)
    • Windows Server (86)
    • Windows Server 2012 (43)
    • Windows Server 2016 (10)
    • Windows Server 2019 (2)
  • Telekommunikation (28)
    • Festnetz (3)
    • Internet (6)
    • Mobilfunk (19)
  • Verkauf & Verlosung (1)
  • Web-Installationen (32)
    • Joomla (4)
    • MediaWiki (9)
    • phpMyAdmin (1)
    • Piwik (4)
    • Wordpress (19)

Copyright © 2022 Daniels Tagesmeldungen.

Powered by PressBook WordPress theme