Nummer des Absatzes, in dem eine Überschrift zum ersten mal vorkom

30/09/2008 - 13:06 von AndreasHermle | Report spam
Liebe Word-Profis:

Das untere Code Snippet führt folgendes aus:

1. Suche nach dem ersten Vorkommen einer benutzerdefinierten Überschrift
2. Ausgabe in einer MsgBox: Angabe der Seitenzahl und Abschnittsnummer des
ersten Auftretens dieser benutzerdefinierten Überschrift.

Es funktioniert alles. Nun meine FRAGE:

Wie muss ich das Makro abàndern, um auch die NUMMER des ABSATZES zu
erhalten, in dem diese benutzerdefinierte Überschrift zum ersten mal
auftaucht?

Das Durchzàhlen dieser Absàtze soll vom Anfang des Abschnittes erfolgen, in
dem die Überschrift zum ersten Mal auftaucht, nicht vom Anfang des Dokumentes
(ausser wenn natürlich die Überschrift in Section 1 zum ersten mal auftritt )

Fuer Eure Hilfe im voraus besten Dank.

Freundliche Grüsse, Andreas


Sub FirstOccurrenceUserDefinedHeadingStyle()


Dim rng As range
Dim oRange_Heading_IV As range
Dim nSection_Heading_IV As Long
Dim iPageStart As Integer


Set rng = ActiveDocument.range
With rng.Find
.Style = ActiveDocument.Styles("Heading_IV")
.Forward = True
.Wrap = wdFindStop
.Format = True

If .Execute() Then
iPageStart = rng.Information(wdActiveEndPageNumber)
Set oRange_Heading_IV = rng
nSection_Heading_IV = rng.Sections(1).Index

MsgBox "The first occurrence of HeadingIV is found on _
page " & iPageStart & " and Section " &
nSection_Heading_IV & "."

.
 

Lesen sie die antworten

#1 Christian Freßdorf
30/09/2008 - 13:40 | Warnen spam
Hallo Andreas

teste mal die ERgànzung:

Dim iPara As Integer
iPara = Range(rng.Sections(1).Range.Start, rng.End).Paragraphs.Count
MsgBox "The first occurrence of HeadingIV is found on page " & _
iPageStart & " and Section " & nSection_Heading_IV & "." & _
vbCrLf & "Number of paragraph: " & iPara

Gruß Christian

Ähnliche fragen