Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations wOOdy-Soft on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

compile error invalid outside procedure

Status
Not open for further replies.
lmwtech

lmwtech

Technical User
Jan 18, 2004
135
US
I work at a pc repair shop and a lady brought in her pc because of an error she is getting. She does billing for doctors. She uses macros alot and keeps getting the following error: compile error
Invalid outside procedure

I know nothing of visual basic. So I'm going to post the whole screen of what she is trying to run to see if someone can tell me what to do for her.
Thanks in advance
lmwtech

'
' d Macro
' Macro recorded 6/1/2006 by Sandy Emmenderfer
'
Selection.TypeParagraph
Selection.TypeText Text:="01/18/2007"
Selection.MoveDown Unit:=wdLine, Count:=4
Selection.EndKey Unit:=wdLine
Selection.TypeBackspace
End Sub
Sub dem()
'
' dem Macro
' Macro recorded 1/24/2007 by Sandy Emmenderfer
'
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeText Text:=vbTab & vbTab & vbTab
If Selection.Font.Underline = wdUnderlineNone Then
Selection.Font.Underline = wdUnderlineSingle
Else
Selection.Font.Underline = wdUnderlineNone
End If


Selection.TypeText Text:="(Electronically Approved)"
If Selection.Font.Underline = wdUnderlineNone Then
Selection.Font.Underline = wdUnderlineSingle
Else
Selection.Font.Underline = wdUnderlineNone
End If
Selection.TypeText Text:="____"
Selection.TypeParagraph
Selection.TypeText Text:="D.EM:she"
Selection.MoveLeft Unit:=wdCharacter, Count:=6
Selection.TypeBackspace
Selection.EndKey Unit:=wdLine
Selection.TypeText Text:=" " & vbTab & vbTab & " David E. Melchior, D.O."
Selection.TypeParagraph
Selection.TypeParagraph
'
' dem Macro
' Macro recorded 6/1/2006 by Sandy Emmenderfer
'
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeText Text:=vbTab & vbTab & vbTab
If Selection.Font.Underline = wdUnderlineNone Then
Selection.Font.Underline = wdUnderlineSingle
Else
Selection.Font.Underline = wdUnderlineNone
End If
Selection.TypeText Text:="(Electronically Approved)"
If Selection.Font.Underline = wdUnderlineNone Then
Selection.Font.Underline = wdUnderlineSingle
Else
Selection.Font.Underline = wdUnderlineNone
End If
Selection.TypeText Text:="__"
Selection.TypeParagraph
Selection.TypeText Text:="DEM:she" & vbTab & vbTab & _
"David E. Melchior, D.O."
Selection.TypeParagraph
Selection.TypeParagraph
End Sub
Sub lab()
'
' lab Macro
' Macro recorded 6/1/2006 by Sandy Emmenderfer
'
Selection.Font.Bold = wdToggle
Selection.TypeText Text:="LABORATORY DATA:" & vbTab
Selection.Font.Bold = wdToggle
End Sub
Sub dc()
'
' dc Macro
' Macro recorded 6/2/2006 by Sandy Emmenderfer
'
Selection.Font.Bold = wdToggle
Selection.TypeText Text:="SKIN: "
Selection.Font.Bold = wdToggle
Selection.TypeText Text:="Warm and dry, appropriate texture, turgor. "
Selection.Font.Bold = wdToggle
Selection.TypeText Text:="HEENT: "
Selection.Font.Bold = wdToggle
Selection.TypeText Text:= _
"Normocephalic, atraumatic. PERRLA. Normal red reflex. Follow"
Selection.TypeText Text:= _
"s appropriately. Cornea/sclerae clear. EACs patent. Tympanic"
Selection.TypeText Text:= _
" membranes clear. Nares clear. Appropriate teeth for age. Mu"
Selection.TypeText Text:="cosa moist. Tongue and uvula midline. "
Selection.Font.Bold = wdToggle
Selection.TypeText Text:="NECK: "
Selection.Font.Bold = wdToggle
Selection.TypeText Text:= _
"No meningismus, supple; unremarkable range of motion; no cys"
Selection.TypeText Text:="ts. Trachea is midline. "
Selection.Font.Bold = wdToggle
Selection.TypeText Text:="CHEST: "
Selection.Font.Bold = wdToggle
Selection.TypeText Text:="Normal excursion. "
Selection.Font.Bold = wdToggle
Selection.TypeText Text:="LUNGS: "
Selection.Font.Bold = wdToggle
Selection.TypeText Text:="Clear to auscultation and percussion. "
Selection.Font.Bold = wdToggle
Selection.TypeText Text:="HEART: "
Selection.Font.Bold = wdToggle
Selection.TypeText Text:= _
"Regular rate and rhythm without murmur, rub, or gallop; no d"
Selection.TypeText Text:="isplacement of the PMI. "
Selection.Font.Bold = wdToggle
Selection.TypeText Text:="ABDOMEN: "
Selection.Font.Bold = wdToggle
Selection.TypeText Text:= _
"Normal umbilicus, soft, non-tender with normoactive bowel so"
Selection.TypeText Text:="unds; no organomegaly or mass. "
Selection.Font.Bold = wdToggle
Selection.TypeText Text:="GENITALIA: "
Selection.Font.Bold = wdToggle
Selection.TypeText Text:=" "
Selection.Font.Bold = wdToggle
Selection.TypeText Text:="HIPS: "
Selection.Font.Bold = wdToggle
Selection.TypeText Text:= _
"No Barlow's or Ortolani's clicks. Symmetric buttock and thig"
Selection.TypeText Text:="h creases. "
Selection.Font.Bold = wdToggle
Selection.TypeText Text:="EXTREMITIES: "
Selection.Font.Bold = wdToggle
Selection.TypeText Text:= _
"No swelling, warmth, erythema, tenderness, or cyanosis, club"
Selection.TypeText Text:= _
"bing, edema. General range of motion is unremarkable. "
Selection.Font.Bold = wdToggle
Selection.TypeText Text:="SPINE: "
Selection.Font.Bold = wdToggle
Selection.TypeText Text:="Without scoliosis or defects. "
Selection.Font.Bold = wdToggle
Selection.TypeText Text:="NEUROLOGIC: "
Selection.Font.Bold = wdToggle
Selection.TypeText Text:= _
"Reflexes within normal limits. Tone appropriate. Interacts wi"
Selection.TypeText Text:="th examiner and caregiver appropriately. "
End Sub
Sub dk()
'
' dk Macro
' Macro recorded 6/5/2006 by Sandy Emmenderfer
'
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeText Text:=vbTab & vbTab & vbTab
If Selection.Font.Underline = wdUnderlineNone Then
Selection.Font.Underline = wdUnderlineSingle
Else
Selection.Font.Underline = wdUnderlineNone
End If
Selection.TypeText Text:="(Electronically Approved)"
If Selection.Font.Underline = wdUnderlineNone Then
Selection.Font.Underline = wdUnderlineSingle
Else
Selection.Font.Underline = wdUnderlineNone
End If
Selection.TypeText Text:="__________________"
Selection.TypeParagraph
Selection.TypeText Text:="she" & vbTab & vbTab & vbTab & _
"Dana M. Korando, MA/David E. Melchior, D.O."

End Sub
Sub da()
'
' da Macro
' Macro recorded 6/5/2006 by Sandy Emmenderfer
'
Selection.TypeParagraph
Selection.TypeText Text:="01/05/07"
Selection.TypeParagraph
Selection.TypeParagraph
Selection.Font.Bold = wdToggle
Selection.TypeText Text:="TAPE"
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeText Text:="S" & vbTab
Selection.Font.Bold = wdToggle
End Sub
Sub dat()
'
' dat Macro
' Macro recorded 6/5/2006 by Sandy Emmenderfer
'
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeText Text:=vbTab & vbTab & vbTab
If Selection.Font.Underline = wdUnderlineNone Then
Selection.Font.Underline = wdUnderlineSingle
Else
Selection.Font.Underline = wdUnderlineNone
End If
Selection.TypeText Text:="(Electronically Approved)"
If Selection.Font.Underline = wdUnderlineNone Then
Selection.Font.Underline = wdUnderlineSingle
Else
Selection.Font.Underline = wdUnderlineNone
End If
Selection.TypeText Text:="________________"
Selection.TypeParagraph
Selection.TypeText Text:="she" & vbTab & vbTab & vbTab & _
"Dana Triller, CMT/David E. Melchior, D.O."
End Sub
Sub lk()
'
' lk Macro
' Macro recorded 6/8/2006 by Sandy Emmenderfer
'
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeText Text:=vbTab & vbTab & vbTab & vbTab
If Selection.Font.Underline = wdUnderlineNone Then
Selection.Font.Underline = wdUnderlineSingle
Else
Selection.Font.Underline = wdUnderlineNone
End If
Selection.TypeText Text:="(Electronically Approved)"
If Selection.Font.Underline = wdUnderlineNone Then
Selection.Font.Underline = wdUnderlineSingle
Else
Selection.Font.Underline = wdUnderlineNone
End If
Selection.TypeText Text:="_______________"
Selection.TypeParagraph
Selection.TypeText Text:="she" & vbTab & vbTab & vbTab & vbTab & _
"Lori A. Krull, LPN/Laurie A. Womack, M.D."
End Sub
Sub cw()
'
' cw Macro
' Macro recorded 6/12/2006 by Sandy Emmenderfer
'
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeText Text:=vbTab & vbTab & vbTab
If Selection.Font.Underline = wdUnderlineNone Then
Selection.Font.Underline = wdUnderlineSingle
Else
Selection.Font.Underline = wdUnderlineNone
End If
Selection.TypeText Text:="(Electronically Approved)"
If Selection.Font.Underline = wdUnderlineNone Then
Selection.Font.Underline = wdUnderlineSingle
Else
Selection.Font.Underline = wdUnderlineNone
End If
Selection.TypeText Text:="________________"
Selection.TypeParagraph
Selection.TypeText Text:="she" & vbTab & vbTab & vbTab & _
"Cristy Welker, LPN/Laurie A. Womack, M.D."
End Sub
Sub js()
'
' js Macro
' Macro recorded 6/19/2006 by Sandy Emmenderfer
'
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeText Text:=vbTab & vbTab & vbTab & vbTab & vbTab
If Selection.Font.Underline = wdUnderlineNone Then
Selection.Font.Underline = wdUnderlineSingle
Else
Selection.Font.Underline = wdUnderlineNone
End If
Selection.TypeText Text:="(Electronically Approved)"
If Selection.Font.Underline = wdUnderlineNone Then
Selection.Font.Underline = wdUnderlineSingle
Else
Selection.Font.Underline = wdUnderlineNone
End If
Selection.TypeText Text:="________________"
Selection.TypeParagraph
Selection.TypeText Text:="she" & vbTab & vbTab & vbTab & vbTab & vbTab & _
"Joyce A. Schremp, LPN/David F. Kapp, M.D."
End Sub
Sub sc()
'
' sc Macro
' Macro recorded 6/19/2006 by Sandy Emmenderfer
'
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeText Text:=vbTab & vbTab & vbTab & vbTab
If Selection.Font.Underline = wdUnderlineNone Then
Selection.Font.Underline = wdUnderlineSingle
Else
Selection.Font.Underline = wdUnderlineNone
End If
Selection.TypeText Text:="(Electronically Approved)"
If Selection.Font.Underline = wdUnderlineNone Then
Selection.Font.Underline = wdUnderlineSingle
Else
Selection.Font.Underline = wdUnderlineNone
End If
Selection.TypeText Text:="_________________"
Selection.TypeParagraph
Selection.TypeText Text:="she" & vbTab & vbTab & vbTab & vbTab & _
"Susie Cissell, LPN/Mark B. Schabbing, M.D."
End Sub
Sub ros()
'
' ros Macro
' Macro created 6/20/2006 by Sandy Emmenderfer
'

End Sub
Sub mb()
'
' mb Macro
' Macro recorded 6/24/2006 by Sandy Emmenderfer
'
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeText Text:=vbTab & vbTab & vbTab & vbTab
If Selection.Font.Underline = wdUnderlineNone Then
Selection.Font.Underline = wdUnderlineSingle
Else
Selection.Font.Underline = wdUnderlineNone
End If
Selection.TypeText Text:="(Electronically Approved)"
If Selection.Font.Underline = wdUnderlineNone Then
Selection.Font.Underline = wdUnderlineSingle
Else
Selection.Font.Underline = wdUnderlineNone
End If
Selection.TypeText Text:="____________________"
Selection.TypeParagraph
Selection.TypeText Text:="she" & vbTab & vbTab & vbTab & vbTab & _
"Melissa M. Barber, MA/David E. Melchior, D.O."
End Sub
Sub dt()
'
' dt Macro
' Macro recorded 6/27/2006 by Sandy Emmenderfer
'
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeText Text:=vbTab & vbTab & vbTab
If Selection.Font.Underline = wdUnderlineNone Then
Selection.Font.Underline = wdUnderlineSingle
Else
Selection.Font.Underline = wdUnderlineNone
End If
Selection.TypeText Text:="(Electronically Approved)"
If Selection.Font.Underline = wdUnderlineNone Then
Selection.Font.Underline = wdUnderlineSingle
Else
Selection.Font.Underline = wdUnderlineNone
End If
Selection.TypeText Text:="____________________"
Selection.TypeParagraph
Selection.TypeText Text:="she" & vbTab & vbTab & vbTab & _
"Dana Triller, CMT/Tina L. Moore, APRN, BC-FNP"
End Sub
Sub ps()
'
' ps Macro
' Macro recorded 6/27/2006 by Sandy Emmenderfer
'
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeText Text:=vbTab & vbTab & vbTab & vbTab
If Selection.Font.Underline = wdUnderlineNone Then
Selection.Font.Underline = wdUnderlineSingle
Else
Selection.Font.Underline = wdUnderlineNone
End If
Selection.TypeText Text:="(Electronically Approved)"
If Selection.Font.Underline = wdUnderlineNone Then
Selection.Font.Underline = wdUnderlineSingle
Else
Selection.Font.Underline = wdUnderlineNone
End If
Selection.TypeText Text:="________________"
Selection.TypeParagraph
Selection.Font.Bold = wdToggle
Selection.Font.Bold = wdToggle
Selection.TypeText Text:="she" & vbTab & vbTab & vbTab & vbTab & _
"Pam Schuchert, LPN/Laurie A. Womack, M.D."
End Sub
Sub hema()
'
' hema Macro
' Macro recorded 8/1/2006 by Sandy Emmenderfer
'
Selection.Font.Bold = wdToggle
Selection.TypeText Text:="HEMATOPOIETIC/ENDOCRINE: "
Selection.Font.Bold = wdToggle
End Sub
Sub jh()
'
' jh Macro
' Macro created 9/4/2006 by Sandy Emmenderfer
'

End Sub
Sub jp()
'
' jp Macro
' Macro recorded 9/4/2006 by Sandy Emmenderfer
'
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeText Text:=vbTab & vbTab & vbTab & vbTab
If Selection.Font.Underline = wdUnderlineNone Then
Selection.Font.Underline = wdUnderlineSingle
Else
Selection.Font.Underline = wdUnderlineNone
End If
Selection.TypeText Text:="(Electronically Approved)"
If Selection.Font.Underline = wdUnderlineNone Then
Selection.Font.Underline = wdUnderlineSingle
Else
Selection.Font.Underline = wdUnderlineNone
End If
Selection.TypeText Text:="________________________"
Selection.TypeParagraph
Selection.TypeText Text:="she" & vbTab & vbTab & vbTab & vbTab & _
"Jessica Parker, MA/Brad E. Hennemann, APRN, BC-FNP"
Selection.MoveUp Unit:=wdLine, Count:=1
Selection.TypeText Text:="_"
Selection.MoveDown Unit:=wdLine, Count:=1
End Sub
Sub demd()
'
' demd Macro
' Macro created 12/11/2006 by Sandy Emmenderfer
'

End Sub
Sub rh()
'
' rh Macro
' Macro recorded 12/18/2006 by Sandy Emmenderfer
'
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeText Text:=vbTab & vbTab & vbTab
Selection.Font.Bold = wdToggle
Selection.Font.Bold = wdToggle
If Selection.Font.Underline = wdUnderlineNone Then
Selection.Font.Underline = wdUnderlineSingle
Else
Selection.Font.Underline = wdUnderlineNone
End If
Selection.TypeText Text:="(Electronically Approved)"
If Selection.Font.Underline = wdUnderlineNone Then
Selection.Font.Underline = wdUnderlineSingle
Else
Selection.Font.Underline = wdUnderlineNone
End If
Selection.TypeText Text:="______________________"
Selection.TypeParagraph
Selection.TypeText Text:="she" & vbTab & vbTab & vbTab & _
"Rosemary L. Herschbach, LPN/David F. Kapp, M.D."
Selection.TypeParagraph
Selection.TypeParagraph
End Sub
Sub wc()
'
' wc Macro
' Macro created 12/23/2006 by Sandy Emmenderfer
'

End Sub
Sub SD()
'
' SD Macro
' Macro created 1/12/2007 by Sandy Emmenderfer
'

End Sub
Sub hee()
'
' hee Macro
' Macro recorded 1/18/2007 by Sandy Emmenderfer
'
Selection.TypeText Text:="HEENT: "
Selection.Font.Bold = wdToggle
Selection.Font.Bold = wdToggle
Selection.TypeText Text:= _
"Atraumatic, normocephalic, conjunctivae, sclerae anicteric. "
Selection.TypeText Text:= _
"PERRLA. EACs, tympanic membranes unremarkable. Gross hearing"
Selection.TypeText Text:= _
" unchanged. Nares patent. Mucosa pink and moist. Lipids, tee"
Selection.TypeText Text:= _
"th, oral mucosa pink and moist. No palate, tongue, or signif"
Selection.TypeText Text:="icant tonsillar abnormalities noted. "
End Sub
Sub d()


' d Macro
' Macro recorded 1/24/2007 by Sandy Emmenderfer
'
Selection.MoveUp Unit:=wdLine, Count:=5
Selection.TypeParagraph
Selection.TypeText Text:="01/19/2007"
Selection.MoveDown Unit:=wdLine, Count:=5
Selection.EndKey Unit:=wdLine
Selection.Font.Bold = wdToggle
'
' D Macro
' Macro recorded 1/24/2007 by Sandy Emmenderfer
'
Selection.TypeParagraph
Selection.TypeText Text:="01/19/2007"
Selection.MoveDown Unit:=wdLine, Count:=4
Selection.EndKey Unit:=wdLine
Selection.Font.Bold = wdToggle
Selection.TypeBackspace
'
' d Macro
' Macro created 1/24/2007 by Sandy Emmenderfer
'
Sub data()
'
' data Macro
' Macro created 1/30/2007 by Sandy Emmenderfer
'

End Sub
 
Sort by date Sort by votes
Sub d() is missing it's End Sub.

-George

Strong and bitter words indicate a weak cause. - Fortune cookie wisdom
 
Upvote 0 Downvote
Right at the top I see
Code: 
'
' d Macro
' Macro recorded 6/1/2006 by Sandy Emmenderfer
'
    Selection.TypeParagraph
    Selection.TypeText Text:="01/18/2007"
    Selection.MoveDown Unit:=wdLine, Count:=4
    Selection.EndKey Unit:=wdLine
    Selection.TypeBackspace
End Sub
There's an "End Sub" but no "Sub" that starts the code. The system will assume that the statements before the "End Sub" are in the general declarations section and executable statements are not allowed there ... thus the message.

You can either insert "Sub XYZ()" (or some such) before that code or just delete the code down to and including the "End Sub
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

R_a_i_n_e_r_8
  • Locked
  • Question
Compile error: Types of intolerance (need help)
Replies
3
Views
902
strongm
strongm
marty1944
  • Locked
  • Question
error code 380 when trying to run the visual basic v6 deployment wizard
Replies
1
Views
814
marty1944
marty1944
sal21
  • Locked
  • Question
peraphs just post, have error, (strongm)
Replies
3
Views
761
strongm
strongm
gmmastros
  • Locked
  • Question
VB6 Post to webservice with MSXML2 error
Replies
4
Views
1K
dilettante
dilettante
sal21
  • Locked
  • Question
have error in get query, why?
Replies
1
Views
644
strongm
strongm

Part and Inventory Search

Sponsor

Back
Top