Setting up macro in Word for jump code...inside

• WORD 2007 HELP WITH "JUMP CODE" - sm - greenie
  • see enclosed sm. - DeeAnn
  • Setting up macro in Word for jump code...inside - moving on
  • I may not be understanding correctly but - sm
    • Jump codes - sm - greenie
      • This may be a silly question - just a thought
        • F-key locked? - sm - greenie
          • On the top row of your keyboard - sm

The messages you are viewing are archived/old.
To view latest messages and participate in discussions, select the boards given in left menu

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

Could you email it to me too?  I have not had 100% success with this in Word, having typed in WordPerfect for years and years.  I appreciate any help you may provide in this regard. 

I used to do this about 8-10 years ago, but forgot how to do this.  Please post how to do this.  This is for Word 2002.

Thanks

for line numbering?  It keeps indenting 1-2-3,etc. to the first tab and I need the numbers along the left margin.  I went to <format>, <bullets and numbering>, <customize>, and changed the number position and alignment, and it lines everything up on the left margin. 

However, if I have another numbered section in the report, it goes back to the default setting, indenting to the first tab. 

Is there a way to change the default, or do I have to go through these steps for each numbered list? 

Thanks!

I posted yesterday about the jump codes. I put the brackets in by ctrl F9 and that worked great. The problem is that once I save it, I have to get the normal back to the screen when I want to use it by going to insert and then file and clicking on that normal. Once it loads the normal, all the brackets I inserted have turned to little square symbols and the F11 function is not working on them anymore.

Any ideas on what else I could do? I have to use the file and then insert though to retrieve the normal.

Thanks in advance!!

Hi All,

I will be starting a new job soon, and it looks like I will be typing in my own computer's Word program.  I managed to download my old Expander entries from my old job into Notepad, so I now have a list of my expansions.  I am wondering if anyone has any good tips on doing something  with the Notepad entries to get them into AutoCorrect in Word, or do I have to just go through the whole list manually and make new entries into Word AutoCorrect to use for my new expander?

I am also open to any and all suggestions to the Word spellchecker since it does not know LOTS of medical terms and drugs.  Just start entering them manually or buy a medical spellchecker that interphases with Word? I saw some listed when I Googled it, but they seem awful expensive.  100$ and more.  Any suggestions?

THanks!

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

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.

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

using the F11 key, but I want to see the boxes where I enter the text. 

Any ideas on how to fix this?

TIA

"10.3 milliquery technician mag 3."

It is 10.3 mCi technetium Mag-3

Alternates, depending on doctor's/client's style : 

 10.3 millicuries technetium Mag-3

OR 10.3 mCi Tc-99m MAG-3

He is areflexic at the ankles and normoreflexic at the knees.

MD is very clear.  Any suggestions?  Many thanks !!!

Coding is a game where the rules constantly change and they won't tell you what they are - but will gladly penalize you and your employer because you "should have known" all the rules they won't tell you.  They actually have codes that are "blacked out" - in other words, they know what the right code is that will cause them to pay for a procedure, but its a secret beknownst only to them.  "They" being the federal government - they say "ignorance of the rules is no excuse" but won't tell the rules.  You fly by the seat of your pants.  You can attend seminars all year long but still not know if you're doing it right.  You live in constant fear of a Medicare audit where they will find the wrong code and accuse you and your employer of fraud, fine/jail the both of you, and pull the doctor's license. In transcription - the blame for errors ultimately goes to the doctor.  In coding - the blame gets spread around.  If that sounds like fun, go ahead.