Paste to navigation search box from userform

[JPG]

I am using a form in a VBA macro in Word.

In Word 2010 there is a navigation pane.
At the top you can type something to search.

I want to paste data I have in the clipboard to that navigation pane search box.
I can't seem to activate that navigation search box with what I have tried.

So my form lists out the result of a regex search into a textbox. I triple click to select the line I want to now locate in the Word document and press a button on my form.
The msgbox shows with the correct data, so that is good so far.
It is just the next step that I need. (I have commented out the SendKeys part). How to select that search box and then I can use the SendKeys part of the code.


Private Sub CommandButton48CopyTextInTextbox_Click()
TextBox8refList.SetFocus
TextBox8refList.Copy

Dim DataObj As MSForms.DataObject
Set DataObj = New MSForms.DataObject
DataObj.GetFromClipboard

strPaste = DataObj.GetText(1)
ActiveWindow.DocumentMap = True
ActiveWindow.SetFocus


ActiveDocument.Activate
'SendKeys "^(f){backspace}^{v}{Enter}"
MsgBox (strPaste)
End Sub

thanks in advance for any assistance.
Jon

[JPG]

Private Sub CommandButton48CopyTextInTextbox_Click()

If selection.Type = wdSelectionIP Then InSelection = True


selection.HomeKey wdStory
TextBox8refList.SetFocus


SendKeys "{Home}"
SendKeys "+{End}"
DoEvents 'This was the key to this working. Macro was going ahead of itself
TextBox8refList.SetFocus


TextBox8refList.Copy


Dim DataObj As MSForms.DataObject
Set DataObj = New MSForms.DataObject
DataObj.GetFromClipboard


strPaste = DataObj.GetText(1)


Dim dlg As Dialog
Set dlg = Application.Dialogs(wdDialogEditFind)
dlg.Find = strPaste
SendKeys "%(f){tab}{ENTER}"
dlg.Show

''''''This section added, and it makes it use the navigation window
If CheckBox17NavigationPane.Value = True Then
SendKeys "^f"
SendKeys "^v"
SendKeys "{ENTER}"
End If


''''''''''''''''''''''''''''''''''''''
End Sub

Well after much trial and error I found this works and with the checkbox option I can have it use either the regular search box or the navigation pane.

[JPG]

I was having some issues and could not figure it. This seems to have fixed things. If there are any improvements please say. This is all a bit new territory for me.



Private Sub CommandButton48CopyTextInTextbox_Click()On Error Resume Next
If selection.Type = wdSelectionIP Then InSelection = True
selection.Find.MatchWildcards = False 'don't forget to set this


selection.HomeKey wdStory
TextBox8refList.SetFocus


SendKeys "{Home}"
SendKeys "+{End}"
DoEvents 'This was the key to this working. Macro was going ahead of itself
TextBox8refList.SetFocus
CloseClipboard 'hmm looks like this was another key part
DoEvents
TextBox8refList.Copy


Dim DataObj As MSForms.DataObject
Set DataObj = New MSForms.DataObject
DataObj.GetFromClipboard
'DoEvents
strPaste = DataObj.GetText(1)
'DoEvents


Dim dlg As Dialog
Set dlg = Application.Dialogs(wdDialogEditFind)
dlg.Find = strPaste
SendKeys "%(f){tab}{ENTER}"
'dlg.Show
''''''This section added, and it makes it use the navigation window
'On Error Resume Next
'ActiveWindow.SetFocus
'DoEvents
If CheckBox17NavigationPane.Value = True Then
SendKeys "^f"
SendKeys "^v"
SendKeys "{ENTER}"
End If


''''''''''''''''''''''''''''''''''''''






End Sub

[JPG]

This is odd. The above does not work now since I restarted Word.....
Time for a rethink I suppose. I guess I have missed resetting something... but what?

[JPG]

Rolled back to this and it works.


Private Sub CommandButton48CopyTextInTextbox_Click()


If selection.Type = wdSelectionIP Then InSelection = True


selection.HomeKey wdStory
TextBox8refList.SetFocus


SendKeys "{Home}"
SendKeys "+{End}"
DoEvents 'This was the key to this working. Macro was going ahead of itself
TextBox8refList.SetFocus


TextBox8refList.Copy


Dim DataObj As MSForms.DataObject
Set DataObj = New MSForms.DataObject
DataObj.GetFromClipboard


strPaste = DataObj.GetText(1)


Dim dlg As Dialog
Set dlg = Application.Dialogs(wdDialogEditFind)
dlg.Find = strPaste
SendKeys "%(f){tab}{ENTER}"
dlg.Show
''''''This section added, and it makes it use the navigation window
'On Error Resume Next
'ActiveWindow.SetFocus
'DoEvents
If CheckBox17NavigationPane.Value = True Then
SendKeys "^f"
SendKeys "^v"
SendKeys "{ENTER}"
End If


''''''''''''''''''''''''''''''''''''''






End Sub