Thema Datum  Von Nutzer Rating
Antwort
04.01.2025 17:12:27 Karsten
NotSolved
04.01.2025 17:58:57 xlKing
NotSolved
04.01.2025 19:27:55 Gast47454
NotSolved
05.01.2025 08:31:47 Gast75333
NotSolved
Rot Formatierung einzelner Zeilen anpassen
 05.01.2025 16:49:36 xlKing
Solved
05.01.2025 17:27:11 Gast26057
Solved
05.01.2025 08:15:49 Gast4821
NotSolved

Ansicht des Beitrags:
Von:
xlKing		 Datum:
05.01.2025 16:49:36		 Views:
19		 Rating:
     
Antwort:
 Nein
Thema:
Formatierung einzelner Zeilen anpassen

Kann man die Suche so formulieren, daß die Bedingungen "^t*;" auf einer Zeile stehen müssen - also Abschluß mit ENter bze. CR?

Leider nicht. Das habe ich gestern schon ausprobiert. Leider lässt Word eine Suche die gleichzeitig nach Absatzmarken sucht und Wildcards beinhaltet nicht zu. Hier sollte Microsoft dringend nachbessern. Wenn es dich stört, dass der Erste Treffer ignoriert wird und du diesen nicht manuell anpassen willst, kann man die offizielle Suche leider nicht verwenden. Falls du dich mit einer geringfügig längeren Laufzeit zufriedengibst, kannst du aber auch alle Absätze durchlaufen und jeden Absatz einzeln auf das vorhandensein der Bedingung prüfen. Ganz ohne Word-Suche:

Sub FormatierenNeu()

  Dim p As Paragraph
  
  For Each p In ActiveDocument.Paragraphs
    If p.Range.Text Like Chr(9) & "*;*" & Chr(13) Then
      With Range(p.Range.Start + 1, p.Range.Start + InStr(p.Range.Text, ";") - 1).Font
          .Size = 20
          .Name = "Courier New"
      End With
    End If
  Next p
  
  MsgBox "Fertig!"

End Sub

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
04.01.2025 17:12:27 Karsten
NotSolved
04.01.2025 17:58:57 xlKing
NotSolved
04.01.2025 19:27:55 Gast47454
NotSolved
05.01.2025 08:31:47 Gast75333
NotSolved
Rot Formatierung einzelner Zeilen anpassen
 05.01.2025 16:49:36 xlKing
Solved
05.01.2025 17:27:11 Gast26057
Solved
05.01.2025 08:15:49 Gast4821
NotSolved