Daniels Tagesmeldungen

Daniels Tagesmeldungen

Kleine IT-Episoden & das wahre Leben

Daniels Tagesmeldungen
  • About me…
    • Lebenslauf
    • Weiterbildung
  • Toolbox
    • Betriebssystem
    • Office, Browser & Applikationen
    • Active Directory
    • Hardware
  • Disclaimer

Word-VBA: Rote Schrift per Makro anpassen

  • Office
  • VBA

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.

23. Juni 2013

Post navigation

Gruppenrichtlinien auf Client analysieren → ← Sprachbefehle in Android deaktivieren

Schreibe einen Kommentar Antworten abbrechen

Deine E-Mail-Adresse wird nicht veröffentlicht.

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.

Kontaktmöglichkeiten

  • Twitter
  • RSS Feed
  • Xing Profil
  • eMail

Google Language Translator

Kategorien

  • Allgemein
  • Android
  • Android-Apps
  • Arbeitszimmer
  • Auto
  • AutoIT
  • Bahn
  • Beinarbeit
  • Citrix XenServer
  • Eigene Tools
  • Exchange Server
  • Fedora (Linux)
  • Festnetz
  • Gedanken
  • Internet
  • iOS
  • IT-Nachrichten
  • Joomla
  • Kino
  • KiXtart
  • Konferenzen
  • Leben & Beruf
  • Lebensmittel & Essen
  • Lesestoff
  • Lync Server
  • Mac OS X
  • MediaWiki
  • Microsoft Azure
  • Mobilfunk
  • Office
  • Office 365
  • Patchday+Updates
  • Peripherie
  • PHP
  • phpMyAdmin
  • Piwik
  • Podcast
  • Power Automate
  • Powershell
  • Präsentation
  • Software
  • Spiele
  • System Center
  • Ubuntu (Linux)
  • VB.NET
  • VBA
  • VBS
  • Verkauf & Verlosung
  • Windows 10
  • Windows 7
  • Windows 8
  • Windows 8.1
  • Windows Home Server
  • Windows Mobile
  • Windows Phone-Apps
  • Windows Server
  • Windows Server 2012
  • Windows Server 2016
  • Windows Server 2019
  • Windows Vista
  • Windows XP
  • Wordpress
  • Zertifizierung
  • Zweirad