Word combobox добавить значения

• Remove From My Forums

Answers

• Hi Satya

  Try substituting DropDownListEntries for ContentControlListEntries

  ---

  Cindy Meister, VSTO/Word MVP

  • Marked as answer by
    Satya, _S_ Sense
    Friday, December 4, 2009 9:56 AM

All replies

• What do you mean by item?? is it lists or data??

  You can right click on combobox, choose Edit item for adding lists

  Or you can click arrow at the top of combobox,check use data bound item, then select your Data Source (it’s used for adding data from database)

• Hi Satya

  There are a number of differnt kinds of «combo boxes» a Word document can host. Before we can answer your question, we need to know:

  1. What version of Word?
  2. What version of VSTO?
  3. What kind of Combobox? (If you don’t know, describe the exact steps you used to insert the combobox.)

  ---

  Cindy Meister, VSTO/Word MVP

• Hi  Cindy ,

  I Am Using 2007 Word.,

  i hav Added The Combobox By Following Line Of Codes

   Dim oWord As Word.Application
   Dim oDoc As Word.Document
    oWord = CreateObject("Word.Application")
          oWord.Visible = True
          oDoc = oWord.Documents.Add
  
          oDoc.ContentControls.Add(WdContentControlType.wdContentControlText)
          oDoc.ContentControls.Add(WdContentControlType.wdContentControlComboBox)

  Now i want to Add The Items/Data to that Combobox ,
  How can i do that

  Thanks And Regards

  ---

  Satya Ranjan Biswal ….

• is this data from database?? if yes, then what database you are using?? do you have connection string to that database??

• Hi ,

  In Some Cases i hav hard Coded Data Like «YES» Or ‘NO» , in Some cases i hav to fetch data from Database .

  I am using Sql Server 2008 And Yes i Do hav a connection string ….

  Thanks And Regards

  ---

  Satya Ranjan Biswal ….

• Hi Satya

  I’ll try to help you get started, but it’s important for you to realize that the VSTO forum is not the correct place for you to ask questions for your application as you’re not using the VSTO technology. You’ll find a description about what VSTO is, what the forum supports, and links to places where you can ask non-VSTO, Office-related questions in the forum’s Please Read First message.

  The combobox type of Content control has a ContentControlListEntries property, which in turn gives you access to an Add method. This method will let you populate the dropdown list for the control. You must assign a value that the user can see. Optionally, you can also assign a different «value» for the entry, and you can give an index value (for placing the entry at a specific position in the list).

  I urge you to create an object for the Content Control you’re inserting, and work with that. For example:

  Dim ccComboBox as Word.ContentControl = oDoc.ContentControls.Add(WdContentControlType.wdContentControlComboBox)
  ccComboBox.ContentControlListEntries.Add(«The text», «The value», 1)

  ---

  Cindy Meister, VSTO/Word MVP

• hi Harrie ,

  I think u r not getting the question perfectly ,

  I am Asking about Filling the Combobox in WordDcoument,  Not A Normal Combobox.
  By d Way i know Multiple Type of Data Fetching Techniques .

  i m placing the combo nby following Code

   Dim
   oWord As
   Word.Application
  
   Dim
   oDoc As
   Word.Document
  
    oWord = CreateObject("Word.Application"
  )
  
          oWord.Visible = True
  
  
          oDoc = oWord.Documents.Add
  
  
          oDoc.ContentControls.Add(WdContentControlType.wdContentControlText)
  
          oDoc.ContentControls.Add(WdContentControlType.wdContentControlComboBox)

  ---

  Satya Ranjan Biswal ….

• Hi Cindy , I pasted Code But It is showimng Error For The Following Line

  ccComboBox.ContentControlListEntries.Add(«The text», «The value», 1)
  And The Error Desc is

  ContentControlListEntries’ is not a member of ‘Microsoft.Office.Interop.Word.ContentControl’.   

  Thanks ANd Regards

  ---

  Satya Ranjan Biswal ….

• Hi Satya

  Try substituting DropDownListEntries for ContentControlListEntries

  ---

  Cindy Meister, VSTO/Word MVP

  • Marked as answer by
    Satya, _S_ Sense
    Friday, December 4, 2009 9:56 AM

• Try this:

  Sub SetPlaceholderText()
   
      Dim objCC As ContentControl
      
      Set objCC = Selection.ContentControls _
          .Add(wdContentControlComboBox)
      objCC.Title = "Favorite Animal"
      objCC.SetPlaceholderText _
          Text:="Please select your favorite animal "
      
      'List entries
      objCC.DropdownListEntries.Add "Cat"
      objCC.DropdownListEntries.Add "Dog"
      objCC.DropdownListEntries.Add "Horse"
      objCC.DropdownListEntries.Add "Monkey"
      objCC.DropdownListEntries.Add "Snake"
      objCC.DropdownListEntries.Add "Other"
   
  End Sub
  

  or this to fetch data from database

  Function PopulateTestComboBox(cmbName As String)
      Dim dbDatabase As Database
      Dim rst As Recordset
      Dim i As Integer
      Dim objCC As ContentControl
      
      strDBPath = "C:MyPathMyDB.mdb"
   
      Set dbDatabase = OpenDatabase(strDBPath)
      Set rst = dbDatabase.OpenRecordset("SELECT TestName FROM tbl_Tests ORDER BY TestName", dbOpenSnapshot)
      ActiveDocument.ContentControls("ComboBox11").Range.Select
      Set objCC = Selection.ContentControls _
                      .Add(wdContentControlComboBox)
   
      i = 0
      With objCC
          'Add initial blank value
          .DropdownListEntries.Add ("")
          i = i + 1
          Do Until rst.EOF
              .DropdownListEntries.Add (rst.Fields("TestName"))
              rst.MoveNext
              i = i + 1
          Loop
          'Add final value "Other"
          .DropdownListEntries.Add ("Other")
          'Set to initial blank value
          .SetPlaceholderText Text:=""
      End With
  End Function
  

• Thanks Harrie i Did the Same ……

  ---

  Satya Ranjan Biswal ….

• Remove From My Forums

Answers

• Hi Satya

  Try substituting DropDownListEntries for ContentControlListEntries

  ---

  Cindy Meister, VSTO/Word MVP

  • Marked as answer by
    Satya, _S_ Sense
    Friday, December 4, 2009 9:56 AM

All replies

• What do you mean by item?? is it lists or data??

  You can right click on combobox, choose Edit item for adding lists

  Or you can click arrow at the top of combobox,check use data bound item, then select your Data Source (it’s used for adding data from database)

• Hi Satya

  There are a number of differnt kinds of «combo boxes» a Word document can host. Before we can answer your question, we need to know:

  1. What version of Word?
  2. What version of VSTO?
  3. What kind of Combobox? (If you don’t know, describe the exact steps you used to insert the combobox.)

  ---

  Cindy Meister, VSTO/Word MVP

• Hi  Cindy ,

  I Am Using 2007 Word.,

  i hav Added The Combobox By Following Line Of Codes

   Dim oWord As Word.Application
   Dim oDoc As Word.Document
    oWord = CreateObject("Word.Application")
          oWord.Visible = True
          oDoc = oWord.Documents.Add
  
          oDoc.ContentControls.Add(WdContentControlType.wdContentControlText)
          oDoc.ContentControls.Add(WdContentControlType.wdContentControlComboBox)

  Now i want to Add The Items/Data to that Combobox ,
  How can i do that

  Thanks And Regards

  ---

  Satya Ranjan Biswal ….

• is this data from database?? if yes, then what database you are using?? do you have connection string to that database??

• Hi ,

  In Some Cases i hav hard Coded Data Like «YES» Or ‘NO» , in Some cases i hav to fetch data from Database .

  I am using Sql Server 2008 And Yes i Do hav a connection string ….

  Thanks And Regards

  ---

  Satya Ranjan Biswal ….

• Hi Satya

  I’ll try to help you get started, but it’s important for you to realize that the VSTO forum is not the correct place for you to ask questions for your application as you’re not using the VSTO technology. You’ll find a description about what VSTO is, what the forum supports, and links to places where you can ask non-VSTO, Office-related questions in the forum’s Please Read First message.

  The combobox type of Content control has a ContentControlListEntries property, which in turn gives you access to an Add method. This method will let you populate the dropdown list for the control. You must assign a value that the user can see. Optionally, you can also assign a different «value» for the entry, and you can give an index value (for placing the entry at a specific position in the list).

  I urge you to create an object for the Content Control you’re inserting, and work with that. For example:

  Dim ccComboBox as Word.ContentControl = oDoc.ContentControls.Add(WdContentControlType.wdContentControlComboBox)
  ccComboBox.ContentControlListEntries.Add(«The text», «The value», 1)

  ---

  Cindy Meister, VSTO/Word MVP

• hi Harrie ,

  I think u r not getting the question perfectly ,

  I am Asking about Filling the Combobox in WordDcoument,  Not A Normal Combobox.
  By d Way i know Multiple Type of Data Fetching Techniques .

  i m placing the combo nby following Code

   Dim
   oWord As
   Word.Application
  
   Dim
   oDoc As
   Word.Document
  
    oWord = CreateObject("Word.Application"
  )
  
          oWord.Visible = True
  
  
          oDoc = oWord.Documents.Add
  
  
          oDoc.ContentControls.Add(WdContentControlType.wdContentControlText)
  
          oDoc.ContentControls.Add(WdContentControlType.wdContentControlComboBox)

  ---

  Satya Ranjan Biswal ….

• Hi Cindy , I pasted Code But It is showimng Error For The Following Line

  ccComboBox.ContentControlListEntries.Add(«The text», «The value», 1)
  And The Error Desc is

  ContentControlListEntries’ is not a member of ‘Microsoft.Office.Interop.Word.ContentControl’.   

  Thanks ANd Regards

  ---

  Satya Ranjan Biswal ….

• Hi Satya

  Try substituting DropDownListEntries for ContentControlListEntries

  ---

  Cindy Meister, VSTO/Word MVP

  • Marked as answer by
    Satya, _S_ Sense
    Friday, December 4, 2009 9:56 AM

• Try this:

  Sub SetPlaceholderText()
   
      Dim objCC As ContentControl
      
      Set objCC = Selection.ContentControls _
          .Add(wdContentControlComboBox)
      objCC.Title = "Favorite Animal"
      objCC.SetPlaceholderText _
          Text:="Please select your favorite animal "
      
      'List entries
      objCC.DropdownListEntries.Add "Cat"
      objCC.DropdownListEntries.Add "Dog"
      objCC.DropdownListEntries.Add "Horse"
      objCC.DropdownListEntries.Add "Monkey"
      objCC.DropdownListEntries.Add "Snake"
      objCC.DropdownListEntries.Add "Other"
   
  End Sub
  

  or this to fetch data from database

  Function PopulateTestComboBox(cmbName As String)
      Dim dbDatabase As Database
      Dim rst As Recordset
      Dim i As Integer
      Dim objCC As ContentControl
      
      strDBPath = "C:MyPathMyDB.mdb"
   
      Set dbDatabase = OpenDatabase(strDBPath)
      Set rst = dbDatabase.OpenRecordset("SELECT TestName FROM tbl_Tests ORDER BY TestName", dbOpenSnapshot)
      ActiveDocument.ContentControls("ComboBox11").Range.Select
      Set objCC = Selection.ContentControls _
                      .Add(wdContentControlComboBox)
   
      i = 0
      With objCC
          'Add initial blank value
          .DropdownListEntries.Add ("")
          i = i + 1
          Do Until rst.EOF
              .DropdownListEntries.Add (rst.Fields("TestName"))
              rst.MoveNext
              i = i + 1
          Loop
          'Add final value "Other"
          .DropdownListEntries.Add ("Other")
          'Set to initial blank value
          .SetPlaceholderText Text:=""
      End With
  End Function
  

• Thanks Harrie i Did the Same ……

  ---

  Satya Ranjan Biswal ….

Option Explicit

Sub TestDropDownFromExcel()

    Dim counter As Long
    Dim xlApp As Excel.Application
    Dim xlBook As Workbook
    Dim oCC As ContentControl

    Set oCC = ActiveDocument.ContentControls(1)

    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open("C:PathToMyFile.xlsx")

    If xlBook Is Nothing Then
        Exit Sub
    End If

    oCC.DropdownListEntries.Clear

    For counter = 1 To 10
        oCC.DropdownListEntries.Add Text:=xlBook.Worksheets(1).Cells(counter, 1), Value:=CStr(counter)
    Next counter

    xlApp.Visible = True

    Set xlBook = Nothing
    Set xlApp = Nothing 

End Sub

1