Thema Datum  Von Nutzer Rating
Antwort
Rot Absätze in MS-Word-Dokumenten durchnummerieren
26.04.2023 15:48:45 Bernd Hager
Solved
27.04.2023 21:49:47 xlKing
NotSolved
28.04.2023 12:57:34 Gast77240
NotSolved
29.04.2023 00:55:34 xlKing
NotSolved
29.04.2023 11:13:51 Bernd Hager
NotSolved

Ansicht des Beitrags:
Von:
Bernd Hager
Datum:
26.04.2023 15:48:45
Views:
781
Rating: Antwort:
 Nein
Thema:
Absätze in MS-Word-Dokumenten durchnummerieren
Hallo, es wäre großartig, wenn mir jemand helfen könnte. Ich brauch ein MS Word Macro, das mir die Absätze eines Textes durchzähl und über jeden Absatz die entsprechende Nummer schreibt.

Ein wenig bin ich schon voran gekommen. Das untenstehende Macro mact eigentlich alles, so wie ich mir das vorstelle. Nur leider hängt sich Word nach Abarbeitung des Macros auf. Wo steckt der Fehler? 

Danke für die Hilfe

  

Sub CountPilcrows()
    Dim doc As Document
    Dim rng As Range
    Dim count As Long
    Set doc = ActiveDocument
    Set rng = doc.Content
    count = 0
    With rng.Find
        .Text = "^13"
        .Forward = True
        .Wrap = wdFindStop
        Do While .Execute
            If rng.Start = rng.Paragraphs(1).Range.Start Then
                count = count + 1
                rng.InsertAfter count & vbNewLine
            End If
            rng.Collapse wdCollapseEnd
        Loop
    End With
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
Rot Absätze in MS-Word-Dokumenten durchnummerieren
26.04.2023 15:48:45 Bernd Hager
Solved
27.04.2023 21:49:47 xlKing
NotSolved
28.04.2023 12:57:34 Gast77240
NotSolved
29.04.2023 00:55:34 xlKing
NotSolved
29.04.2023 11:13:51 Bernd Hager
NotSolved