M
Me
I get the following message when opening a Word 2003 document that uses
Autpen and Auto_New:
"Can't move focus to the control because it is invisible, not enabled, or of
a type that does not accept the focus."
After I select the "Debug" option from the error message dialog box, I try
to step through the macro, but I receive a "Run-time error '5':" message.
The macro where this is happening follows:
-------------------
Sub AutoOpen()
MsgBox "No Toolbar? - Click View / Toolbar" & vbCr & "
- Select 'E&C Change Request Form'" & vbCr & vbCr & "To
complete the form, tab from field to field or Shift + tab to return to a
field." + Chr$(13) + Chr$(13) + "Use the buttons on the E&C Change Request
Form toolbar as needed." & vbCr & vbCr & "IMPORTANT: After saving your file
to the appropriate location, click the 'Update Footer'" & vbCr & "
button to ensure the storage path indicated in the footer is
correct.", vbOKOnly, "Form 4895 - Change Request Form"
CommandBars("E&C Change Request Form").Visible = True <-----------
With CommandBars("E&C Change Request Form")
.Top = 145
.Left = 75
End With
End Sub
-------------------
The error is occurring at the line I have the arrow at.
Can anyone provide any insight? I'm not a coder, nor did I create this, so
layman’s terms would be appreciated.
Thank you.
Autpen and Auto_New:
"Can't move focus to the control because it is invisible, not enabled, or of
a type that does not accept the focus."
After I select the "Debug" option from the error message dialog box, I try
to step through the macro, but I receive a "Run-time error '5':" message.
The macro where this is happening follows:
-------------------
Sub AutoOpen()
MsgBox "No Toolbar? - Click View / Toolbar" & vbCr & "
- Select 'E&C Change Request Form'" & vbCr & vbCr & "To
complete the form, tab from field to field or Shift + tab to return to a
field." + Chr$(13) + Chr$(13) + "Use the buttons on the E&C Change Request
Form toolbar as needed." & vbCr & vbCr & "IMPORTANT: After saving your file
to the appropriate location, click the 'Update Footer'" & vbCr & "
button to ensure the storage path indicated in the footer is
correct.", vbOKOnly, "Form 4895 - Change Request Form"
CommandBars("E&C Change Request Form").Visible = True <-----------
With CommandBars("E&C Change Request Form")
.Top = 145
.Left = 75
End With
End Sub
-------------------
The error is occurring at the line I have the arrow at.
Can anyone provide any insight? I'm not a coder, nor did I create this, so
layman’s terms would be appreciated.
Thank you.