How to Loop through document and gather statistics?

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Al - 01 Nov 2007 00:32 GMT

I am an Access VBA programmer and don't really understand Word VBA programming.

Basically I have MS Word files that I would like to loop through searching
for particular word strings like "Private Sub", trap that entire line, then
count the number of lines until an "End Sub" word string is encountered, then
populate a table or something with the trapped line concatenating the count.
Then search the next and so on through the entire document. Every "Private
Sub" has a corresponding "End Sub".

In sudocode it would look like this;

Loop until EOF
if rtrim(right(line,11)) = "Private Sub" then
Sub(0) = line
SubCount = 1
else if rtrim(right(line,7)) = "End Sub" then
SubCount = SubCount + 1
Call PrintLine (this routine prints Sub(0) & SubCount to a table)
else
SubCount = SubCount + 1
End If
Next

These are not actual word documents as you probably have guessed, but this
is a needed function.

Thanks for your replies!!

Reply to this Message

Helmut Weber - 01 Nov 2007 04:23 GMT

Hi Al,

just for counting you don't have to loop at all.

The split-function returns a zero beased array
the upperbound of which you get with the ubound-function.

MsgBox UBound(Split(ActiveDocument.Range.Text, "End Sub")) - 1
MsgBox UBound(Split(ActiveDocument.Range.Text, "Private Sub")) - 1

See help on "split" and its arguments.

Assuming you are analyzing text
which represents code, and furthermore,
that there is no commented out code like ' End Sub.

Signature

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"

Reply to this Message

Al - 01 Nov 2007 14:26 GMT

That's slick Helmut,

My goal is to return the name of the "Private Sub" (line which includes that
text, and the number of lines in that sub "End Sub". This does tell me how
many subs I have. That's why I have to step through the document and parse
text. What does an MS Word loop structure look like? Or is there one.

Thanks!!

> Hi Al,
>
[quoted text clipped - 11 lines]
> which represents code, and furthermore,
> that there is no commented out code like ' End Sub.

Reply to this Message

Helmut Weber - 01 Nov 2007 15:48 GMT

Hi Al,

Sub Macro2a()
Dim sTmp As String ' text of first paragraph in rDcm
Dim lPrg As Long ' number of paragraphs in rDcm
Dim rDcm As Range
Set rDcm = ActiveDocument.Range
With rDcm.Find
.Text = "Sub *End Sub"
.MatchWildcards = True
While .Execute
rDcm.Select ' for testing
sTmp = rDcm.Paragraphs(1).Range.Text
sTmp = Left(sTmp, Len(sTmp) - 1)
lPrg = rDcm.Paragraphs.Count
MsgBox sTmp & " (" & lPrg & ")"
Wend
End With
End Sub

Note that rDcm collapses to the found range
and expands again from the found range to
the end of the doc automatically.

Of course, this depends on the regularity of you code.

There are lots of ways for improvement.
You may search for chr(13) & "Sub "
(Which would not process the first paragraph in the doc,
if that first paragraph starts with "Sub") :-(
You may search for chr(13) & "Public Sub "
You may search for chr(13) & "Private Sub "
You may define the end of a sub as "End Sub" & chr(13) etc.

Signature

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"

Reply to this Message

Al - 01 Nov 2007 17:09 GMT

Helmut,

This is really slick. Thanks!!

Is there a way to look for both:
.text = "Sub *End Sub" and
.text = "Function *End Function"
within the same search?

I set up 2 searchs which works; however, I loose the sequence that the subs
and functions as they are found in the document.

> Hi Al,
>
[quoted text clipped - 29 lines]
> You may search for chr(13) & "Private Sub "
> You may define the end of a sub as "End Sub" & chr(13) etc.

Reply to this Message

Helmut Weber - 01 Nov 2007 22:42 GMT

Hi Al,

>Is there a way to look for both:
> .text = "Sub *End Sub" and
> .text = "Function *End Function"
>within the same search?

not in a straightforward way.
However, can all be done,
but then things get really complicated.
No way around two searches, IMHO,
and remembering which one was found where
and comparing the results.

Too convoluted for a speedy tip.

Signature

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"

Reply to this Message

Al - 02 Nov 2007 01:50 GMT

Thanks Helmut. I got the search working with 2 searches and it's doing what
I need it to do now.

Thanks!!

> Hi Al,
>
[quoted text clipped - 11 lines]
>
> Too convoluted for a speedy tip.

Reply to this Message

Russ - 04 Nov 2007 07:29 GMT

Al,
As you find each range that contains a sub or function, you could capture
the the range start number, also, to temporarily use in sorting a table by
the range start number.

.....When something is found then
load rDcm.Start along with sTmp & " (" & lPrg & ")" into adjoining table
cells.

Then after all the subroutines and functions are found, the column
containing the range start numbers could be used to sort the table and then
deleted if desired.

A TOC (table of contents) or bookmarks can be used for quickly going to the
start of particular subroutine or function in the document. Or your text in
the cells containing the names could be changed into crossreferences or
hyperlinks to jump to the corresponding text in the document.

> Helmut,
>
[quoted text clipped - 41 lines]
>> You may search for chr(13) & "Private Sub "
>> You may define the end of a sub as "End Sub" & chr(13) etc.

Signature

Russ

drsmN0SPAMikleAThotmailD0Tcom.INVALID

Reply to this Message

Rate this thread: