combo box in word

wperry · #1 03-21-2012, 01:07 PM

I am creating a new tab in word 2010 for custom templates
My xml file is working great and adds 5 buttons on the tab inserted after the info tab. Beside each button I have a combo box that has 9 items
can anyone tell me how I can make my button onAction event open a
OpenFileDialog() based on the cbo selection??

Here is the code I am trying

Code:

Sub OnAction(ByVal control As IRibbonControl)
Dim myStream As Stream = Nothing
Dim openFileDialog1 As New OpenFileDialog()
If "cbo01" = "item01" Then
  openFileDialog1.InitialDirectory = \\xxxxxxxxxxx
ElseIf "cbo1" = "item02" Then
  openFileDialog1.InitialDirectory = \\xxxxxxxx
ElseIf "cbo1" = "item03" Then
  openFileDialog1.InitialDirectory = \\xxxxxx
ElseIf "cbo1" = "item04" Then
  openFileDialog1.InitialDirectory = \\xxxxxxx
ElseIf "cbo1" = "item05" Then
  openFileDialog1.InitialDirectory = \\xxxxxxxxx
ElseIf "cbo1" = "item06" Then
  openFileDialog1.InitialDirectory = \\xxxxxxxxx
ElseIf "cbo1" = "item07" Then
  openFileDialog1.InitialDirectory = \\xxxxxxxxx
ElseIf "cbo1" = "item08" Then
  openFileDialog1.InitialDirectory = \\xxxxxxxx
ElseIf "cbo1" = "item09" Then
  openFileDialog1.InitialDirectory = \\xxxxxxxx
End If
openFileDialog1.ShowDialog()
End Sub

TIA

macropod · #2 03-22-2012, 06:53 AM

Hi wperry,

Your code appears to be .NET code, not vba. The OpenFileDialog class is not part of the Word vba object model. See: http://msdn.microsoft.com/en-us/libr...dialog.aspx#Y0
Also, vba doesn't accept variable declarations of the kind you're using.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Combo Box in VB Forms help	Cbrehm	Excel Programming	5	05-13-2011 03:08 AM
Combo Box populate from range	ioustinos	Excel	1	09-01-2010 09:18 AM
Combo Box in whole column	ioustinos	Excel	1	09-01-2010 01:24 AM
VB Code.. COmbo boxes	DrewB	Word VBA	4	06-10-2009 05:31 AM
Hide a combo box	DrewB	Word	3	06-08-2009 11:29 PM