Thema Datum  Von Nutzer Rating
Antwort
19.07.2018 11:26:10 Yacinio
NotSolved
19.07.2018 16:03:29 Gast99836
****
Solved
19.07.2018 16:11:22 Yacinio
NotSolved
19.07.2018 16:59:58 Gast49943
NotSolved
19.07.2018 17:25:01 Yacinio
NotSolved
19.07.2018 17:27:12 Yacinio
NotSolved
19.07.2018 17:47:33 Gast33960
NotSolved
19.07.2018 22:05:42 Yacinio
NotSolved
20.07.2018 08:36:53 Gast17777
NotSolved
20.07.2018 10:43:30 Yacinio
NotSolved
20.07.2018 10:54:15 Gast29668
NotSolved
20.07.2018 11:54:46 Yacinio
NotSolved
20.07.2018 20:27:53 Gast29696
*****
Solved
20.07.2018 21:06:22 Yacinio
NotSolved
Rot Rot Solved
 20.07.2018 21:16:17 Yacinio
Solved

Ansicht des Beitrags:
Von:
Yacinio		 Datum:
20.07.2018 21:16:17		 Views:
653		 Rating:
     
Antwort:
 Nein
Thema:
Solved

Es fehlte nur die Deklaration von c. Klappt hervorragend! Vielen Dank, auch für die Geduld! :-)

Sub Yuci()
Dim p As Paragraph
Dim rng As Range
Dim c As Long

    For Each p In ActiveDocument.Paragraphs
        If Len(p.Range.text) > 80 Then
            c = InStr(1, p.Range.text, Chr(11))
            Set rng = p.Range
            rng.SetRange p.Range.Start, p.Range.Characters(c - 1).End
            rng.Bold = True
        End If
    Next p
End Sub

 

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
19.07.2018 11:26:10 Yacinio
NotSolved
19.07.2018 16:03:29 Gast99836
****
Solved
19.07.2018 16:11:22 Yacinio
NotSolved
19.07.2018 16:59:58 Gast49943
NotSolved
19.07.2018 17:25:01 Yacinio
NotSolved
19.07.2018 17:27:12 Yacinio
NotSolved
19.07.2018 17:47:33 Gast33960
NotSolved
19.07.2018 22:05:42 Yacinio
NotSolved
20.07.2018 08:36:53 Gast17777
NotSolved
20.07.2018 10:43:30 Yacinio
NotSolved
20.07.2018 10:54:15 Gast29668
NotSolved
20.07.2018 11:54:46 Yacinio
NotSolved
20.07.2018 20:27:53 Gast29696
*****
Solved
20.07.2018 21:06:22 Yacinio
NotSolved
Rot Rot Solved
 20.07.2018 21:16:17 Yacinio
Solved