Help MsgBox/Banner

[NotGood@All]

I have a form that has 25 fields to fill out, most of which are Drop-Down
Form Field Options. I've added some Help Text but it shows at the bottom.
Is there a way for me to create, say a MessageBox or Banner so when you "tab"
to the next field the instructions for that field show up across the top??

 

[Greg Maxey]

I suppose that you could use a UserForm.

Add a UserForm to the project. Put a single lable and command button in the
form. Put this code in the userform:

Option Explicit
Public FFName As String
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
If Selection.FormFields.Count = 1 Then
FFName = Selection.FormFields(1).Name
ElseIf Selection.FormFields.Count = 0 And Selection.Bookmarks.Count > 0 Then
FFName = Selection.Bookmarks(Selection.Bookmarks.Count).Name
End If
Select Case FFName
Case Is = "FF1"
Me.Label1 = "Some sort of help text here."
Case Is = "FF2"
Me.Label1 = "Some different help text here."
Case Else 'And so on.
End Select
End Sub

Add a standard project module and use this code:

Option Explicit
Public oFrm As UserForm1
'Run this code onExit from all formfields:
Sub FormFieldOnExit()
Unload oFrm
End Sub
'Run this code onExit from all formfields:
Sub FormFieldOnEntry()
Set oFrm = New UserForm1
oFrm.Show vbModeless
ActiveDocument.Activate
End Sub

I have a form that has 25 fields to fill out, most of which are
Drop-Down Form Field Options. I've added some Help Text but it shows
at the bottom. Is there a way for me to create, say a MessageBox or
Banner so when you "tab" to the next field the instructions for that
field show up across the top??

--
Greg Maxey - Word MVP

My web site http://gregmaxey.mvps.org


McCain/Palin '08 !!!