Word Macro to count Lines Strict inside
Posted By: Vann Joe on 2007-12-07
In Reply to: counting lines by hand - pls help! - bon
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
Complete Discussion Below:  marks the location of current message within thread
The messages you are viewing
are archived/old.
To view latest messages and participate in discussions, select
the boards given in left menu
Other related messages found in our database
Word count: 824 lines. DocuCount count: 897 lines.
I just counted the same file in Word and then in DocuCount, and DocuCount was higher than Word.
Just as an aside.
Setting up macro in Word for jump code...inside
(you can actually use any key on the keyboard, I actually use F3 because it doesn't seem to interfere with anyting.)
I call it a "jumpcode" and what you need to do is create a Word macro for it. For example, I use (Alt + /) to insert blanks in a document. Now if I want to jump to the blanks I use (Alt + >). In reading your question, it sounds as if the symbol you want to "jump" to is already in the document, so you would just have to define the jumpcode for that prompt.
So, first create your macro.
1. Tools - Macro - Record New Macro.
2. Name your macro (ex. Jumpcode) or use the default Macro name
3. Assign macro to Keyboard.
4. Pick what keys to assign the keyboard macro - Example Alt + J (NOTE - SOME KEYS ARE ALREADY DEFAULT ASSIGNED BY WORD. SYSTEM WILL ALERT YOU TO THIS FACT! YOU WOULD THEN PICK ANOTHER KEY OR THE DEFAULT WORD KEY WILL BE OVERWRITTEN)
5. Select Assign - Close
6. You will then notice the "record macro function" come on (symbol of a little tape cassette will appear on screen). All key strokes from this point will be recorded until you turn off record macro function.
7. Recording your macro. Since the jumpcode you want to jump to is the >" you should set it up this way:
A. Ctrl + F (the find function). This will pull up the "Find and Replace" box.
B. Type in the prompt you want to find which would be >"
C. Hit "Find Next"
D. Then close "Find and Replace" box.
E. Stop recording. (Hit the square in the record macro icon)
Now when you hit "Alt + J" system should jump to the >" prompt in your document
why on 1 computer for the same report would the word count be different in Word? (inside)
Like on 1 computer with word the document was 27000 character counts w/spaces
and the other computer (the one i type this account on says 13,000. How can there be such a difference with Word being the same? I am baffled.
Calculating lines using Word Count in Word
I have recently started a job where lines are calculated using the Microsoft Word word count tool. I think I read that you get cheated out of lines if a company counts this way. Is this true?
How can you count your lines in Word, I used
to use the word count in Word and then divide it by something to get a standard line count for that report. Has anyone done this before? I forgot the way to calculate when working in Word.
You can set Word to not count blank lines by changing your paragraph style
to automatically double space after the paragraph.
it does not count gross lines...I count 37 and it counts 67.
x
There is a word macro that can change that
for you. Not sure if it will work on your platform, though. If you need it, just answer on here and I will post the macro so you can paste it into your program macros and assign a shortcut
No, not within SH. However, if you use Word, you can make a macro.nm
nm
When recording a macro in MS Word
what do you do in order to be able to jump from heading to heading; i.e., how do I get from HISTORY: to FINDINGS: ? Thanks for your help.
Microsoft Word Macro's
How do I set up macro's on Microsoft Word 2003 for frequently used terms?
Word 2007 macro help
I sure hope someone can help me here. I have recently started using Word 2007 and am absolutely lost! I finally figured out how to create a macro....but now cannot figure how how to call up that macro when I need it. does this make sense??? example, ddd stands for degenerative disc disease..when I type "ddd" do I hit a function key, just the tab key, CTL + function key????? can't figure this out. please help me!
thanks. Rita
Word 2007 macro help
word 2007 is completely different than previous versions. can you tell me where the autocorrect button/tab is?????? thanks for your help.
Word 2007 macro help
there is no "tools" in word 2007, or not that I can find.
Word 2007 macro help
thanks for all the help. I absolutely hate word 2007 and as soon as I can I will be uninstalling it and reinstalling an older version. it is completely different from previous versions. there are no toolbars at the top but a "ribbon" which is needlessly complicated. sorry I'm cranky. Thanks again though.
MS Word macro question. SM
All of sudden all my macros give me the "Code Execution has been Interrupted." Then I have to click Continue, End, Debug, or Help.
Why is this happening? I've tried deleting the macros and re-recording them, but it keeps doing it. HELP! It's making me crazy.
How can I make a macro in word
For some reason, I am unable to use the F11 key to jump to headers within a report when I use my macroed reports in EXtext. So, I wanted to know how I could macro to jump from header to header in the word document and use a hot key. If I could make a macro using word, I think I could still use my macro reports.
Thanks
Just an extremely simple Word macro SM
I'll try and explain it. I'm no Word genius, I PROMISE.
You get in a document you're typing.
Macros
Record new macro
I made mine a keyboard macro, you name it, assign it (mine happens to be alt. alt period)
Then you go:
Edit
Find
. (period space space is what that is supposed to be)
Replace . (period space)
Replace all.
In the parentheses is the keys I pushed. I don't know how else to explain it but it's the alt Key and the period Key.
There's bound to be a "real" way to do it, but I just bumbled through this way.
What version of Word? That can't be set in newer versions. I had to do a macro --sm
I hope this link works for you. It shows how to make the macro. I use alt + semicolon for it because it seemed those would be a convenient shortcut to use. H
Here's the link (you'll probably have to copy and paste it):
http://fitaly.com/board/msword/posts/1629.html
Macro to Search Google from Microsoft Word?
I found one on the net, but when I pasted it in, it would not work.
My version of Word is Word 97. Thanks.
I count my own lines and would not think of doing otherwise SM
Yes, you may have to spend money on a counting program, but isn't it important to have everyone on the same page, so to speak?
I'm so old that I don't know how to count by lines...(SM)
No, that's not a "I'm so old joke" - wish it were! I've only worked for myself in the past and now I'm helping someone else out. I agreed at a fairly low page rate (certainly lower than I used to charge) but I now think I'm cheating myself! When you count a 65 character line is that 65 spaces from left margin to right? Is that a gross line? What is the standard? I've been counting my characters (including spaces) in each line and they're at least 75 to 80. So, each page is like 1-1/2! My margins are one inch all around and the font size is 11. Am I wrong in thinking that a 65 character line means 65 spaces across the page? And, if so, is 9 cents per line out of the norm? Thanks for "teaching an old 'dinosaur' a new trick"!!
How do you count your lines? m
When you're not using a program like BayScribe that does it for you. For example, if you transcribe letters or reports in Word, how do you calculate the lines you bill to your client? Any help is appreciated!
ES does count lines.
It is one of the most user-friendly platforms I have worked on. I have 2 accounts that the speech rec is very good on and 1 account with lousy dictators that require more editing, but it is often entertaining. The sound quality is very good, and there is little to no distortion when you speed up the audio file.
Yes. They count the lines as set up
in the contract with the client. Each account can be different.
In Word 2007, you can add Word count to the status bar.
Right-click the status bar and select Word count. Once it appears on the status bar, you can double-click it to bring up the statistics dialog box that shows characters. You can also find this option on the Review tab, Proofing group, Word Count.
You can count your lines and characters yourself sm
even if you have no counting program. You can copy and paste into a word document or clipboard and count the characters in Word. At least you will have some idea of what you are being paid for. I have done this many times and if it doesn't add up to what the company's count has, I was right on the horn and sometimes even quit because of it. I will not be cheated in any way by any one.
Count lines in courier 12 - nm
XX
and I count gross lines
I do not cheat, I count gross lines and from top to bottom but I make sure that it is fair so my price per line is lower and it all equals out in the end. On chart notes, it is the total amount of lines which includes 2 spaces between patients which then helps to pay for the cutting apart, sticky paper and delivery. But my accounts are aware of this and again it shows in my per line charge.
The way MTSOs count lines
Does anyone know if some MTSOs calculate lines on various accounts differently? One of my accounts is very difficult to get a decent line count. While it is more tedious and does not have "normals," it just seems like often I have a shift full of fairly long reports (and a fair number of them), and by feel seems like my line count should be higher. - I can't help but wonder if lines are calculated differently for this account.
Does anyone know of MTSOs doing that? Sadly, I am afraid to ask my employer. 
Need to count gross lines only w/o spaces, sm
Used Sylcount free download but it expired. Any alternatives. Did not like Practicount. Need to count gross lines only. How do I do that using MS Word?
Count several lines both ways and see the difference
??
How did you count lines before the PC, or were you paid hourly then? nm
If they have access to how the lines are counted on the back end - see inside
They can go in and maybe make changes to what their counts actually were. Anything is possible. It does sound fishy to me. I would go to your supervisor and ask in such a way as could the other girls possibly show you any tricks they are using that might benefit all of you and open up communication that way. That way you are not accusing anyone of anything. Worth a try. 
As an IC you invoice the company, count your own lines, and receive a paycheck.
First Choice, JLG, QT Medical, Metro in Atlanta, just to name a few.
Most use SylCount or something similar. I used Abacus - free line counting software.
Here is the best way...open any document you have typed for anything and count the lines both ways.
I have pretty much always been paid by the gross line...occasionally I will take a job with a company that pays by characters and I never make as money. Remember...with gross lines, a line is a line is a line....that means anything on the lines be it one character or 65 is a line. For instance....today I type a normal file for a client I have worked on for years...if I counted the lines at 65-cpl I got 398 lines, but counting gross lines I got 641 lines. This is a 38% difference in pay between the two, so you would be making approximately 5 cents a line less on the character count. Hope this helps :)
Does Quick Books/Quicken count the lines or do you use a separate program for that?
nm
Ask for a sample report. Count the gross lines on a full page. Then
figure out the line rate you want to make. For example, if there are 30 lines on the page and you would want to charge $0.15 per line, then that would be $4.50 per page. If they would like your hourly rate, figure out how many pages you think you can transcribe in an hour. Using the above example, if you can transcribe 4 pages per hour, then charge $18.00 per hour. In California the going transcription rates are approximately $22-$25 per hour.
You can use Shorthand to make a Macro, then bring the macro up in WP. nm
nm
Word Count
If you use the Word count tool to calculate characters and then divide by 65 or whatever your company uses for this, it is fairly accurate. However, if you are calculating just *lines* with this tool, please keep in mind that it counts ALL lines, including blank lines between paragraphs, etc. This is probably what the poster below has experienced. It is not accurate for counting just lines.
Did you use the word count (m)
in Word that is under properties where it lists "word count", "line count", etc.? It doesn't look like it's completely accurate if you go by that line count. Or did you go by character count? Maybe that's more accurate?
If you are using word, it will count your
x
In word?..see inside.
If you are typing in word and say you type a header, return and it would be "Alt L". This will start with 1 and automatical tab over to start typing. When you return at end it will give No. 2. Say you have 3 diagnoses, and when you return it says for, hit return again and this will turn it off. Then to start numbering again, hit Alt L. Hope that works.
Word line count
The company I IC for told me to use the word count in the Word, divide the characters with spaces by 65 to get my line count. Are you guys saying that this is not accurate? The owner is a very honest person, so if this is not accurate, I'm sure she does not know it. I think this is how she bills her clients as well.
line count in word
Use the characters with spaces count and divide by 65.
I use both DQS & Word and avg about the same line count.
Two separate part time accounts. I really don't see much difference.
line count in word
 Microsoft word line count - what is the name of it and where can I buy it. Also,on a dictaphone, how can i tell how many minutes of dictation i have left.
Word line count
This is what i actually meant. i get paid per gross line and i need to figure out how many lines i am typing per day. someone told me there is a program for that
Do numbers how up in MS Word Count
Hi. Does anyone know if number characters show up as word count in MS Word? I'm doing a lot of them in tables, etc. as well as a lot of symbols. Just curious.
Thanks,
Terry
Word count program
I have an older model puter that is slowly going up and have word 97 count program on it. I am looking for something that is compatible with that - that also does all headers and footers - not just the header and footer on the first page that I can put on my new puter. I have checked in to SPellex and that is really slow counting. I also checked in to Abacus, which was fast and pretty accurate; it actually gave me a little more on a few of my reports as a trial run. ANyone have any ideas on this. Thanks for any help.
Not 30%...use your word count funtion
under tools. Take the number w/o spaces and divide by 65. That will give you the line count. Then take the number with spaces and divide by 65. You will see that the difference is more like 20%. So making .12 a line w/o is great! Wish I could find a work that paid that.
|
