VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Bestimmte Formate in Word-Dokument hervorheben	06.12.2020 20:10:22	Raphael
Bestimmte Formate in Word-Dokument hervorheben	07.12.2020 01:20:15	xlKing
Bestimmte Formate in Word-Dokument hervorheben	07.12.2020 01:41:22	xlKing
Bestimmte Formate in Word-Dokument hervorheben	07.12.2020 20:17:21	Gast75619
Bestimmte Formate in Word-Dokument hervorheben	07.12.2020 22:21:32	xlKing

Ansicht des Beitrags:

Von:
xlKing

Datum:
07.12.2020 01:20:15

Views:
485

Rating:

Antwort:

Thema:
Bestimmte Formate in Word-Dokument hervorheben

Hallo Raphael,

ich kenne dein Dokument nicht und weiß absolut nix über dessen Aufbau. Aber wenn es sich um Fließtext handeln sollte dann versuch mal folgenden Code:

Sub Markieren()
  
  Dim wrd As Range, x As String, y As String, i As Long, cnt As Long
  
  cnt = ActiveDocument.Words.Count
  
  For Each wrd In ActiveDocument.Words
    i = i + 1
    If wrd.Bold = True Then wrd.HighlightColorIndex = wdBrightGreen
    If wrd Like "Document*" Then wrd.HighlightColorIndex = wdPink
    
    If i < cnt - 2 Then x = wrd & wrd.Next(wdWord) & wrd.Next(wdWord).Next(wdWord)
    If i < cnt - 3 Then y = x & wrd.Next(wdWord).Next(wdWord).Next(wdWord)
    
    If IsDate(y) Then
      ActiveDocument.Range(wrd.Start, wrd.Next(wdWord).Next(wdWord).Next(wdWord).End).HighlightColorIndex = wdYellow
    ElseIf IsDate(x) Then
      ActiveDocument.Range(wrd.Start, wrd.Next(wdWord).Next(wdWord).End).HighlightColorIndex = wdYellow
    End If
  Next wrd
  
End Sub

Falls der Code nicht wie gewünscht funktioniert, solltest du nähere Angaben über dein Dokument machen oder am besten ein Beispieldokument mit Beispieldaten irgendwo hochladen. Kannst du z.B. hier machen: https://workupload.com/

Gruß Mr. K.

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
Bestimmte Formate in Word-Dokument hervorheben	06.12.2020 20:10:22	Raphael
Bestimmte Formate in Word-Dokument hervorheben	07.12.2020 01:20:15	xlKing
Bestimmte Formate in Word-Dokument hervorheben	07.12.2020 01:41:22	xlKing
Bestimmte Formate in Word-Dokument hervorheben	07.12.2020 20:17:21	Gast75619
Bestimmte Formate in Word-Dokument hervorheben	07.12.2020 22:21:32	xlKing