Just an extremely simple Word macro SM

• Anyone use only 1 space after sentences? - Sheryl
  • 1 space after sentence. - Linda
  • I always type 2 spaces. It has always been... (sm) - So I put 2, even if "they" say to put 1.
  • Absolutely no problem. Took a day or 2. All you gotta do is - omt
  • I'm with you.... - Barb
  • with 1 job I do, with the other 2 spaces. You can program MSword to do 1 or 2. - nm - xx
  • 1 space isn't just an MT thing .... - Saras
    • No, it's *not* the *new* way of doing things, my dear...... - Barb
  • 1 space after sentence - Barbara
  • I know what you mean - I cannot believe AAMT can change the English language- - MT
    • Typing class was based on the old courier font (sm) - MT
    • Not AAMT. Typesetting or something SM - Becky
    • Yeah, I was taught the same thing in typing - Wannie
    • I refuse to do it. I have research papers, etc. - to write and I am NOT going to
  • Been doing it 4 years... - RadGuy
  • I do. It's the "new way" I think. I've been doing it for years. SM - Becky
    • How do you make that macro? - Sheryl
      • Just an extremely simple Word macro SM - Becky
        • Thank you for the instructions. I will try that! nm - Sheryl
          • I can't get this to work. I thought... - Sheryl
            • Here is a link to a macro (sm) - Lori
            • Sheryl, I'm sure it's my fault. SM - Becky

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

Hi

  I recently lost all my stuff because hard drive crashed.  Someone years ago had given me instructions on how to make a simple macro that changed the colors for typing. I do a bowling program that I need to switch from green to black, from red to black and from green to red.  I had something that I could just hit ALT & R for red, ALT & B for black and ALT & G for green, so no hving to use mouse for it.

I cant find my instructions for this and can not remember how she had me do this.

Anyone have a suggestion?

thanx

Dak

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

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

Geesh, June.  I am extremely careful, and my girls have been told not to open the door unless they know the person on the other side.  You know children do not always listen.  I had been down the hall using the bathroom, and my 13yo thought the 16yo had stepped outside and locked herself out.  Since it was a soft knock and a familiar one, she thought she knew who was on the other side.  When she realized it wasn't who she thought it was, she shut the door right away and came and told me there was a man in our garage.  We've lived here for 10 years, and this is the first time anyone other than family has knocked on that door.  There isn't a lot of crime in our area, and we leave our garage door most of the time.  We never have any problems.  I know...there's always a first time....never say never and all that...but I am careful. 

A couple of weeks ago, religious solicitors walked up to our door.  I was working, and my 16yo opened the door to them because they were women.  Not anyone she knew, but she opened the door because she didn't find women to be intimidating.  That's why I say children don't always listen to what you say.

After those Missouri boys were abducted in rural areas, I've talked to my girls again about being careful, beiing aware and watching out for each other. 

My hubby thinks I'm paranoid.  I'm the type to keep my doors locked at all times, day or night, and he thinks it's silly because we're in a rural area and probably fine.  When I dispute the point with stories from the news, his rebuttal is that a locked door will not keep out someone who wants in.  Maybe not...but they'll be a lot more noisy trying to get past that locked door than they would an unlocked door.