How to order paragraph styles in an array?

[nesplb]

Hi all!
I want to loop through the paragraphs in a document and count the occurences of each paragraph style that is in the document. If for instance the style "Normal" has 5 paragraph occcurences it should count all 5.
I guess I have to put each new paragraph i find in some kind of array and then add 1 in a datafield each time I find a new occurence of that paragraph. Is that right?
How is the best way to do this? And how would some code look like? (Im not used to work with arrays in VB)

In advance, thanks

Pål Nesteby

PDC-Tangen
Norway

 

[nesplb]

I mean offcourse:
"add 1 in a datafield each time I find a new occurence of that paragraph STYLE. "

Pål Nesteby

PDC-Tangen
Norway

 

[SkipVought]

Pål,

Check out the ReDim Preserve statement for your array. You'll want maybe a two dimensional array.



Skip,
[sub]
[red][/red]
[/sub]

 

[nesplb]

Okey...
How do i use and populize that? I'm sorry im completely new to these arrays....

TY

Pål Nesteby

PDC-Tangen
Norway

 

[SkipVought]

What code do you have so far?

Skip,
[sub]
[red][/red]
[/sub]

 

[nesplb]

Dim p As Paragraph
Dim pArray [AN ARRAY TO HOLD PARAGRAPH STYLES AND THE NUMBER OF OCCURENCES OF EACH]

For Each p In ActiveDocument.Paragraphs

'if p.style is not in pArray- add it to
'pArray.
'else if p.style is allready in pArray add
'1 to det "count" field for that specific paragraph style
'in pArray.

Next p

Pål Nesteby

PDC-Tangen
Norway

 

[PHV]

I'd use a Collection or a Scripting.Dictionary object instead of an array ...

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[nesplb]

Okay! Thanks, but how do I use it to get what I want? I find no good examples for a newbie on this stuff....



Pål Nesteby

PDC-Tangen
Norway