I thought Word counted blank lines using this method. I think the OP is looking for Abacus. nm

Hi,

The solutions others gave are good, but if I just needed to get the number of lines with typing (and don't need an invoice or a report), I'd use a Word macro.

The other solutions offered have this drawback: If the body of your document contains tables, the count Word gives you is vastly inflated, for Word counts each cell in that table as a line. This is not what the eye sees, and becomes problematic when you try to justify such to your client.

Below is a macro for counting what we at Emmaus call Lines Strict. (i.e. Lines with typing on them, vs Lines Extended that includes the blank lines).

To use it, copy from Public Sub through End Sub, and paste it into your macros along with your other macros. Easiest way of doing this is (after you have copied the appropriate lines):

1. Click Tools | Macros, and select an existing macro.

2. Click the Edit button.

3. Once the Visual Basic Editor opens, press Ctrl+End to move to the bottom.

4. Paste the clipboard contents.

5. Click File | Compile Normal. (If you've pasted things that don't belong, it won't compile.)

6. Click File | Close and Return to MS Word.

Merry Christmas!
vJoe
http://www.mpword.com

OOPS! I looked at the HTML code after I pasted the code into the editor on this board, and it added things that when pasted into the Visual Basic Editor in Word will not compile. Here's the code if you want to retype it, but pasting won't work. If you send me an email, I'll attach the code into a .txt document, and you won't have any problems.  vjoet@attglobal.net

Public Sub GetLinesStrictCount()
    Dim CharsStrict As Long
    Dim Count As Long
    Dim ParaswBlanks As Long
    Dim ParasWOBlanks As Long
    Dim LineswBlanks As Long
    Dim BlankLines As Long
    Dim LinesWOBlanks As Long
    Dim NumOfTables As Long
    Dim NumOfRows As Long
    Dim TableRowCount As Long
    Dim x As Integer
   
    TableRowCount = 0
    NumOfTables = 0
    NumOfRows = 0
   
    ActiveDocument.ComputeStatistics (wdStatisticCharacters)
    ActiveDocument.ComputeStatistics (wdStatisticLines)
    CharsStrict = ActiveDocument.BuiltInDocumentProperties(wdPropertyCharacters)
    ParasWOBlanks = ActiveDocument.BuiltInDocumentProperties(wdPropertyParas)
    LineswBlanks = ActiveDocument.BuiltInDocumentProperties(wdPropertyLines)

    NumOfTables = ActiveDocument.Content.Tables.Count
    If NumOfTables > 0 Then
        For x = 1 To NumOfTables
            With ActiveDocument.Content.Tables.Item(x)
                NumOfRows = NumOfRows + .Rows.Count
            End With
        Next
        TableRowCount = NumOfRows
    End If
   
    If CharsStrict > 0 Then
        ParaswBlanks = ActiveDocument.Range(wdMainTextStory).Paragraphs.Count
    Else
        ParaswBlanks = 1
    End If
       
    If LineswBlanks > 1 Then
        LineswBlanks = LineswBlanks + 1
    End If
   
    If ParaswBlanks = 1 And ParasWOBlanks = 1 Then
        BlankLines = 0
    Else
        BlankLines = ParaswBlanks - ParasWOBlanks
    End If
   
    LinesWOBlanks = LineswBlanks - BlankLines
    Count = LinesWOBlanks
   
    MsgBox "Lines Strict (with typing) = " & CStr(Count + TableRowCount)
End Sub

The main factor really with IC work is the flexibility.  So many companies offer IC positions, but they want you to work certain hours - wrong, wrong, wrong!  JMO.  It is so funny because I sit and think, "wow", "I can work online and not have to go anywhere", but it sure is nice to go old-school once in a while and throw a tape in the old microtranscriber and type away making $$$ out the ying-yang.    

anyone know?  Just went from straight line count to DQS...

used to type 500 lph, now barely 150 lph....

AND NO COUNT FOR SPACES....

DAMMIT, THAT'S A KEY STROKE

potential clients use.  If you solicit someone that still uses tapes you need to be sure you have the equipment for that, etc.    I don't know if maybe someone has a sample of a solicitation letter to give you an idea of what to send out to potential clients.