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.

• MS Word macro question. SM - MissouriMT
  • macros - ks
    • Before you delete the old normal.dot you can use the Organizer - sm
    • PS: - ks
      • May not be a corrupt macro/.dot file - speechpro

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

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

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

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

1.         Open a blank document.

2.         Type 3-4 question marks down in a single line.

3.         Put your cursor back up at the top before the first ? mark.

4.         Open tools Macros – Record new macro.

5.         Click keyboard – type in the combination of keys you want to use to jump (make sure that combination is not assigned to anything else).  I used Shift+Control+Alt J.  Then close that box out.

6.         With your mouse click Edit - Find – type a ? in the find box, click Find Next.  It will take your cursor to the first question mark (make sure it’s highlighted).  Then hit cancel to close out the find box, and click STOP on the macro button.

can someone please tell me how to make a macro in word for go to *?

Can anyone give me instructions on how to create a period macro in word 2003.  I want to make a macro that inserts a period when I need it.  I use ASR, so I need this function to make corrections easier.

Thanks so much!!!!!

In a Word document, type a few words, like a diagnosis on a line.  Leave your cursor at the end of the line.

Click TOOLS, MACRO, RECORD NEW

A window called Record Macro pops up.  I suggest you put a name in the "Macro Name" field.  (Hint:  No spaces allowed in the name.)

Click KEYBOARD to assign it to the keyboard.

A window called "Customize Keyboard" pops up.  In the field "press new shortcut key", press what you want as the shortcut.  (Hint:  I use ALT+N so I can remember it for numbering.)  That key combination you type should populate that field.

Click ASSIGN, CLOSE

You will be back at your document (your cursor still at the end of the line of text you typed) and there will be a small window called "Stop" that has a solid square (the STOP RECORDING button) and another symbol (PAUSE RECORDING button).  At this point, every single thing you do is being recorded!

Press the HOME key (to put cursor at the beginning of the line).

Press the 1. keys and space twice (or however many times you space between your number/period for your account).

Press the END key (to return cursor to end of the line of text).

Press the RETURN key.

Press the 2. keys and space twice (or, again, however many spaces you put between your number/period for your account).

Click the STOP RECORDING button in the little window.

Your macro is complete.  I suggest you try it out.  Skip down a few lines and type a line of text.  At the end of that text, hit your macro shortcut.  It should run (you won't see it do anything but make the changes you recorded) and automatically go to the beginning of the line, number it as 1 with a period and spaces, and return at the end of your text and start the number 2, period, spaces and be ready for more text!!  Email me if you have problems. 

NOTE:  This will only work if the text you type is only 1 line long.  If it word-wraps to a second line, this will not work...you will just have to manually return to the beginning of the line and number. 

More ideas for building macros, at least the ones I use most: 

-- macro to increase the zoom to a certain percentage (I use 110%)

-- macro to scroll down 1 frame or page

-- macro to copy the preoperative diagnosis heading, the 1-line text below it, return a line blank and type postoperative diagnosis heading and paste (for when the dictation is for "postoperative diagnosis same").  I use ALT+; for postoperative diagnosis and ALT+' for postop diagnosis

-- macro to copy the physician names/credentials in the signature block and search for the header for SURGEON and fill it in, putting it in all capitals, etc.

Just a handful of ideas I use.  Hope these help.

I feel like MTs are being nickel and dimed to death with this.

How do you make that type of macro?  Do you type "." space, space?  I'm not sure my Expander recognizes spaces after an entry.  ?

for that.  Following the macro he gives instructions on how to modify the macro for one space.  When you modify the macro you will have to change the name also, so you could change it to read:

Sub OneSpace()

on the first line.

If you don't know how to add a macro, click Tools, Macros, Macro, then in the Macro Name: box put TwoSpaces, then click create.   Paste the macro provided in place of the "Sub TwoSpaces()" and "End Sub" that are there.  Go the end of the End Sub line and hit enter.  Paste the second macro there and click save again.

I assigned my macro to ALT-B, but you can assign any keys you want so long as they are not already in use for another function.

To create a new macro you click:

Tools -> Macros -> Record a new Macro

A window will open up that says:

Macro Name:  In the box type in the name you wish to give your macro. (I simply typed in AltB).

In the middle of the window you will see "Assign Macro to" with two buttons that say "Toolbar"  and "Keyboard".  Click the Keyboard button.

This opens a new window and your cursor will be in the field that says "Press new short cut key".  You will hit the series of keys you want to assign your macro to (in my case it was Alt+B).

Below you should see "Currently assigned to [unassigned}"  If it says it is assigned, you will need to pick other keys to assign your macro to.

Finally, click assign.

Now you are in your document and there will be a little box that has a stop button and pause button.  Every keystroke you make from this point on is recorded and will be assigned to your macro.

Now you want hit Ctrl+F which will bring up the find window and type in a character that you want your cursor to jump to.  I use the asterix (*).  Then click the stop button on the little box.

Then test our your macro.  I have report templates I use that look like this:

CHIEF COMPLAINT:  *

HISTORY OF PRESENT ILLNESS:  *

And every time I hit Alt+B, I jump to the next asterix.

I hope this helps.  It sounds kind of confusing when you are trying to explain how to do it, but once you do it it is really pretty simple.

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 have set up several macros with my docs thank yous, closing and signatures.  They seemed to work fine whenever I set them up and then tried them out but now everytime I try and use one, it plugs in something that I earlier cut and pasted.  For instance, the thank you and closing are there but instead of the docs sig it is something wierd that I cut and pasted earlier.  I go into my macros and it looks right.  Anyone have any suggestions on how to fix this??  As always, thanks!  I don't know what I'd do without this website!!

Since I don't know what platform you are using, this may not work for you --  if the normal dot is open somewhere else.  I do have another solution if this does not work; if you like, you can write me and I will send you the suite of macros and instructions that I use that will work around this problem that occurs with some transcription platforms.

I don't know anything about this acl file that is supposed to be saved but maybe the person who has written me about this will put up a post that will provide some information on what needs to be done to do this.

This macro needs to be posted into your macro editor.  Since I have had problems in the past with macro code not posting to this forum correctly, I will take a quick look at it and make sure it's okay, and post a follow-up note that it is okay to use.

Sub AutoClose()
on error resume next
If NormalTemplate.Saved = False Then NormalTemplate.Save
End sub