MS Word (Solved)

[jmhfloor]

I am trying to figure out how to get ms word using the VB editor to tab through my textboxes. Word dose not give you the option to use the normal tab index property. Becouse, that is not a setting to change. can someone help me?

[RobDog888]

Welcome to the Forums.

Are the textboxes on a userform or actually just on the document?

[jmhfloor]

If we are talking about the same thing they are actually on the Document.

I dont really know what you mean by user form.

I opened a word document I went to Macro and went to VB editor
from there I went to design view and created my document. Then went back to VB Editor to put in my code for what I need it to do.

So with all that said I think it is on the document.

I would attach one but it wont let me uplost .word files

[RobDog888]

It will if you zip it first.
Yes, its on the document itself. If it was a userform it would look
like a VB Form.

Forums going down in a couple of minutes.

[jmhfloor]

ok so it is on the document. What do I do now? My Office Comp. dose not have a program to zip so I am going to try to DL one in the next few min.

so it seems Guru that you know what I am talking about. Do you need the document to be able to help me or can you just post the code that I need?

[jmhfloor]

hrm let me try something with this new version here. I got it I got it!!!! ok Now you have my file. I hope you can help me figure it out.

[RobDog888]

Ok, solved it. Seems there is no support for TabIndex or tabbing. so I made my own. When the doc is opened the textboxes are set to allow the tab character to be placed into the textbox. This will allow us to trap for the tab keydown event.

Private Sub Document_Open()
    TextBox1.TabKeyBehavior = True
    TextBox2.TabKeyBehavior = True
    TextBox3.TabKeyBehavior = True
End Sub

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 9 And Shift = 0 Then
        KeyCode = 0
        TextBox2.Select
    ElseIf KeyCode = 9 And Shift = 1 Then
        KeyCode = 0
        TextBox3.Select
    End If
End Sub

Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 9 And Shift = 0 Then
        KeyCode = 0
        TextBox3.Select
    ElseIf KeyCode = 9 And Shift = 1 Then
        KeyCode = 0
        TextBox1.Select
    End If
End Sub

Private Sub TextBox3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 9 And Shift = 0 Then
        KeyCode = 0
        TextBox1.Select
    ElseIf KeyCode = 9 And Shift = 1 Then
        KeyCode = 0
        TextBox2.Select
    End If
End Sub

[jmhfloor]

Awsome that works Great. one last question will the same code work for the combo boxes and check boxes?

[RobDog888]

Yes, but you need to add their respective events like I did for the textboxes. Also, update the order of control tabbing. The Tabbing is only supported when the textbox, for ex., is placed on a UserForm. If its on the document itself then its not supported.

[jmhfloor]

ok I got the tab through to work. I only have 1 last question. How do I put information in those drop down combo boxes?

[RobDog888]

I take it we are still talking on the document level. Probably in the Document_Open event you can load the cbo in there using something like...

Private Sub Document_Open()
    
    Dim i As Integer
    
    TextBox1.TabKeyBehavior = True
    TextBox2.TabKeyBehavior = True
    TextBox3.TabKeyBehavior = True
    
    For i = 1 To 10
        ComboBox1.AddItem "Test item " & i
    Next
    
End Sub

[jmhfloor]

hrm, I could not get that code to work?

Yes we are still talking about the same form. however when I lick on combobox1 there is still nothing in there and I used your code

Dim i As Integer

TextBox1.TabKeyBehavior = True
TextBox2.TabKeyBehavior = True
TextBox3.TabKeyBehavior = True

For i = 1 To 10
ComboBox1.AddItem "Test item " & i
Next

End Sub

I have all the tab threw working. it works GREAT! but now I just need these drop down boxes to have information allready in them. am I puting the code in the wrong spot? I put it with the other Textbox tab key statement?

[jmhfloor]

And is it possible to make it so when you tab threw the curser automaticly go to the far left side of the text box? I seems that where ever you last clicked in the box is where the tab automaticly goes and you have to either click the front or backspace to the front. Is there a way to do that. and if so that is all I need and this program will be finished!!1




PS. Guru you are truly a Guru. You have saved my Hide!

[RobDog888]

It should be in the Document_Open event. This way when you open the
document it will be already populated, unless the contents of the cbo are
driven by some kind of input from the user.

Also make sure that the combo your using is the same control name as in
your code - "ComboBox1".

you can make the cursor be at the begining of the textbox using the code - TextBox1.SelStart = 0.

HTH

[jmhfloor]

I GOT IT!. Guru you are the man thanks for taking all the time to help me with this program!!!!!!!!!!!!!!!

[RobDog888]

No prob. Glad to help and as most members know, I am an Office Automation Addict in addition to a VB Forumns Addict!

's on project completion.