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

• How can I make a macro in word - Stubby
  • here you go. - moving on
    • Thank you both!!!!!! - NM
    • PS in example just replace Alt J with f3 if that is the you want to go - moving on

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

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.  ?

Crtl+F, in the find section enter a period and two spaces, in the replace section enter a period and one space.

Record this and make it a macro.

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.

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

First of all, I appologize for the LONG message, but well worth reading if you use Word.  I asked this question on the Microsoft Discussion Board on 11/7/08.  Here are the posts:

  >>>> DeviousRedBaron wrote:
>>>>> I am running Word 2007.  For work, I download a template created
>>>>> in Word 2003, then type my document in Word 2007.  After this, I
>>>>> have to import header/footer info that I believe is created with
>>>>> Word 2003. This takes a long time and at the bottom of the screen
>>>>> the message "Word is replacing ..." appears.  Is there any way I
>>>>> can speed this up, or avoid it all together?  I love Word 2007 and
>>>>> would like to continue to use it.  I do have Word 2003 also.  I
>>>>> cannot change the info that I have to download.  I access it
>>>>> through the intranet and it is different for each report.  (I am a
>>>>> medical transcriptionist.) Speed is important in my line of work!
>>>>> Thanks in advance!!!!!

>>> "Graham Mayor" wrote:
>>>
>>>> You will need to tell us more about the importing of the
>>>> header/footer. How? From where?
>>>> What is the exact sequence of steps used to create a document. At
>>>> what point does the message appear?
>>>>
>>>> --
>>>> <>>< ><<> ><<> <>>< ><<> <>>< <>><<>
>>>> Graham Mayor -  Word MVP
>>>>
>>>> My web site www.gmayor.com
>>>> Word MVP web site http://word.mvps.org
>>>> <>>< ><<> ><<> <>>< ><<> <>>< <>><<>

>> DeviousRedBaron wrote:
>>> Hi Graham,
>>>  I open my transcription program (created by the transcription
>>> company that I work for) and download my reports over the intranet.
>>> These are voice files and .doc information (that ends up in the
>>> header/footer).  I double click on the report I want to type up and
>>> a template box pops up.  I choose the .dot template that I need and
>>> it automatically opens Word in compatability mode with part of the
>>> header/footer info already in the document.  This is usually the
>>> hospital/clinic address and phone number, or what ever info that
>>> particular company has requested.  On some reports, there are
>>> headings that are loaded into the body of the document as well.
>>> This process is usually pretty quick, depending on my company's
>>> server.
>>>
>>> Now, I type up my report in the body of the document.  When I am
>>> finished, I have to apply the demographics to the document.  This is
>>> the information about the patient, clinic/hospital numbers, doctors'
>>> names, cc info...that is also downloaded with the report from the
>>> intranet.  Some of this info goes into the header/footer as well.
>>> Some of this info is "attached" to the document so it is sent to the
>>> correct departments/doctors....  Once I apply the demographics, I
>>> have to wait for Word to replace .....something.  (The message on
>>> the bottom of Word flashes from a long message to a short one very
>>> rapidly, making it impossible to read the entire message!)
>>>
>>> I have read a little bit about writing a code (macro) so that
>>> everything opened with Word is opened in 2003 format.  I do not
>>> start Word, it opens with my company software, so I never get to
>>> choose a template in Word.  I have also tried to set the
>>> compatibility for all documents to 2003 and this does nothing.
>>> Also tried to set it up to save as a 2003 document, as well as a
>>> .dot and this does not make any difference.
>>>
>>> I am at a loss!  Thanks for your quick response, it is greatly
>>> appreciated!

> "Graham Mayor" wrote:
>
>> It is the application of demographics - presumably by a macro that
>> appears to be the issue. This was obviously created by the
>> transcription company with Word 2003 in mind. Whether it would be
>> possible to improve that code is impossible to say without seeing it
>> - and really that is a job for the company that provided it, so I
>> will stick to attempting to make the function use Word 2003 rather
>> than 2007.
>>
>> http://www.gmayor.com/Toolbars_in_word_2007.htm demonstrates how to
>> set Word 2003 and 2007 to share the same platform without
>> reconfiguring the registry each time one of them is run to grab the
>> shared settings for itself..
>>
>> You should then be able to associate doc and dot files through
>> Windows Explorer > Tools > Folder Options > File Types - DOC >
>> Advanced  > Open > Edit and change the application used to perform
>> the action to Word 2003, which by default should mean entering
>>
>> "C:Program FilesMicrosoft OfficeOFFICE11WINWORD.EXE" /n /dde "%1"
>>
>> in that space.
>>
>> Repeat for DOT, though this time edit the action for NEW - the
>> application used to perform the action should be
>>
>> "C:Program FilesMicrosoft OfficeOFFICE11WINWORD.EXE" /n /dde
>>
>> and the DDE message should be
>>
>> [REM _DDE_Direct][FileNew("%1")]
>>
>> In both examples if Word 2003 is installed in some other location
>> than the default shown, change the paths to reflect that other
>> location.
>>
>> --
>> <>>< ><<> ><<> <>>< ><<> <>>< <>><<>
>> Graham Mayor -  Word MVP
>>
>> My web site www.gmayor.com
>> Word MVP web site http://word.mvps.org
>> <>>< ><<> ><<> <>>< ><<> <>>< <>><<>

DeviousRedBaron wrote:
> Thanks so much, Graham!
>  I have followed your instructions, but have not yet tested it with my
> company's software.  I am going to test it out tomorrow.  If there
> are any gliches, I will repost.  If all goes well, would you mind if
> I pass this info on to my fellow MTs? (Medical transcriptionists.)  I
> am sure there are numerous woman, and a few men, who could benefit
> greatly from your advise.  I will await your response.
>
> Once again, thank you!!!!!

If it works for you, feel free to share with your colleagues. If double
clicking a doc or dot file opens Word 2003 and not 2007 it should work with
the company software - depending on how the company software calls Word.

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor -  Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

I hope this will help everyone!  I know it helped me.  I love typing in Word2007, but for now, I will have to type in Word 2003 until my company's software is compatible with it.  At least I can have both programs running at the same time!  The info on his web page about creating a toolbar is not necessary, unless it is something you need to do for Word 2007. 

I have never been able to figure out how to do special format characters in ShortHand, but if your Word version allows you to make Macros, you can set up a Macro that will do the same thing as ShortHand.  If your transcription platform does not accept Macros, you might still be able to “trick” it by then linking your ShortHand to your Word Macro.  It works for me but every Word version and transcription platform is different, so you may have to play around a bit before you hit the right combination.  If you need specific instructions to set up the Macro let me know.  Good Luck. 

There are two ways to do it.  You can open up your existing normal.dot file and change your view to 200% and then save it.  Or you can create a whole new normal.dot file with the settings you want, but if you do it this way, you have to find and delete the original normal.dot file.

Either way, every new document should be magnified to 200% and in whatever font you set the default as.

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.

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.