Word: Counting lines selected

EByker

I need to count the number of lines selected in a Word document.

How can I achieve this in VBA?

Thanks

B

kadghar

Something like this will count the line changes

Expand|Select|Wrap|Line Numbers

 Sub cntlines()

Dim i As Integer

Dim n As Integer

i = 1

Do

    i = InStr(i, Selection, Chr(13)) + 1

    If i = 1 Then Exit Do

    n = n + 1

Loop

MsgBox n

End Sub

hope that helps

EByker

Thanks for the response.

The method you suggest works fine provided each line ends on Chr(13).

How can I count wrapped lines, counting each wrap as a new line?

B

hariharanmca

Quote:

Originally Posted by EByker

Thanks for the response.

The method you suggest works fine provided each line ends on Chr(13).

How can I count wrapped lines, counting each wrap as a new line?

B

wrap means same line. If you count as new line (then the return Value will not be same for even single file). Warp is just for our visible

kadghar

Quote:

Originally Posted by EByker

Thanks for the response.

The method you suggest works fine provided each line ends on Chr(13).

How can I count wrapped lines, counting each wrap as a new line?

B

Yeah, i see what you mean, i did a little research, and only find a characters count method. anyway, I made this little code with selection ranges and moving the selection one line down. I think it works allright.

Expand|Select|Wrap|Line Numbers

 Sub CntLine()

Dim Sel(1 To 2) As Double

Dim i As Double

Sel(1) = Selection.Start

Sel(2) = Selection.End

i = 1

Selection.HomeKey 5

Do

    Selection.MoveDown 5, 1

    If Selection.Start > Sel(2) Then Exit Do

    i = i + 1

Loop

MsgBox i

Selection.Start = Sel(1)

Selection.End = Sel(2)

End Sub

EByker

Thanks a lot! Works fine, just what I was looking for.

Regards

B

Word: Counting lines selected

re: Word: Counting lines selected

re: Word: Counting lines selected

re: Word: Counting lines selected

re: Word: Counting lines selected

re: Word: Counting lines selected

Similar Visual Basic 4 / 5 / 6 bytes

/bytes/development

/bytes/it

/bytes/about