Walkthrough: Binding Data to Controls on a Word Actions Pane

This walkthrough demonstrates data binding to controls on an actions pane in Word. The controls demonstrate a master/detail relation between tables in a SQL Server database.

Applies to: The information in this topic applies to document-level projects for Word 2013 and Word 2010. For more information, see Features Available by Office Application and Project Type.

This walkthrough illustrates the following tasks:

• Creating an actions pane with Windows Forms controls that are bound to data.

• Using a master/detail relationship to display data in the controls.

• Show the actions pane when the application opens.

Prerequisites

You need the following components to complete this walkthrough:

• An edition of Visual Studio 2012 that includes the Microsoft Office developer tools. For more information, see Configuring a Computer to Develop Office Solutions.

• Word 2013 or Word 2010.

• Access to a server with the Northwind SQL Server sample database.

• Permissions to read from and write to the SQL Server database.

Creating the Project

The first step is to create a Word Document project.

To create a new project

• Create a Word Document project with the name My Word Actions Pane. In the wizard, select Create a new document.

  For more information, see How to: Create Office Projects in Visual Studio.

  Visual Studio opens the new Word document in the designer and adds the My Word Actions Pane project to Solution Explorer.

Adding Controls to the Actions Pane

For this walkthrough, you need an actions pane control that contains data-bound Windows Forms controls. Add a data source to the project, and then drag controls from the Data Sources window to the actions pane control.

To add an actions pane control

1. Select the My Word Actions Pane project in Solution Explorer.

2. On the Project menu, click Add New Item.

3. In the Add New Item dialog box, select Actions Pane Control, name it ActionsControl, and then click Add.

To add a data source to the project

1. If the Data Sources window is not visible, display it by, on the menu bar, choosing View, Other Windows, Data Sources.

   Note

   If Show Data Sources is not available, click the Word document and then check again.

2. Click Add New Data Source to start the Data Source Configuration Wizard.

3. Select Database and then click Next.

4. Select a data connection to the Northwind sample SQL Server database, or add a new connection by using the New Connection button.

5. Click Next.

6. Clear the option to save the connection if it is selected, and then click Next.

7. Expand the Tables node in the Database objects window.

8. Select the check box next to the Suppliers and Products tables.

9. Click Finish.

The wizard adds the Suppliers table and Products table to the Data Sources window. It also adds a typed dataset to your project that is visible in Solution Explorer.

To add data-bound Windows Forms controls to an actions pane control

1. In the Data Sources window, expand the Suppliers table.

2. Click the drop-down arrow on the Company Name node, and select ComboBox.

3. Drag CompanyName from the Data Sources window to the actions pane control.

   A ComboBox control is created on the actions pane control. At the same time, a BindingSource named SuppliersBindingSource, a table adapter, and a DataSet are added to the project in the component tray.

4. Select SuppliersBindingNavigator in the Component tray and press DELETE. You will not use the SuppliersBindingNavigator in this walkthrough.

   Note

   Deleting the SuppliersBindingNavigator does not remove all of the code that was generated for it. You can remove this code.

5. Move the combo box so that it is under the label and change the Size property to 171, 21.

6. In the Data Sources window, expand the Products table that is a child of the Suppliers table.

7. Click the drop-down arrow on the ProductName node, and select ListBox.

8. Drag ProductName to the actions pane control.

   A ListBox control is created on the actions pane control. At the same time, a BindingSource named ProductBindingSource and a table adapter are added to the project in the component tray.

9. Move the list box so that it is under the label and change the Size property to 171,95.

10. Drag a Button from the Toolbox onto the actions pane control and place it below the list box.

11. Right-click the Button, click Properties on the shortcut menu, and change the following properties.

    Property	Value
    Name	Insert
    Text	Insert

12. Resize the user control to fit the controls.

Setting Up the Data Source

To set up the data source, add code to the Load event of the actions pane control to fill the control with data from the DataTable, and set the DataSource and DataMember properties for each control.

To load the control with data

1. In the Load event handler of the ActionsControl class, add the following code.

   Private Sub ActionsControl_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
       Handles Me.Load
   
       Me.SuppliersTableAdapter.Fill(Me.NorthwindDataSet.Suppliers)
       Me.ProductsTableAdapter.Fill(Me.NorthwindDataSet.Products)
   End Sub
   

   private void ActionsControl_Load(object sender, EventArgs e)
   {
       this.suppliersTableAdapter.Fill(this.northwindDataSet.Suppliers);
       this.productsTableAdapter.Fill(this.northwindDataSet.Products);
   }
   

2. In C#, you must attach the event handler to the Load event. You can place this code in the ActionsControl constructor, after the call to InitializeComponent. For more information about how to create event handlers, see How to: Create Event Handlers in Office Projects.

   this.Load += new EventHandler(ActionsControl_Load);
   

To set data binding properties of the controls

1. Select the CompanyNameComboBox control.

2. In the Properties window, click the button to the right of the DataSource property, and select suppliersBindingSource.

3. Click the button to the right of the DisplayMember property, and select CompanyName.

4. Expand the DataBindings property, click the button to the right of the Text property, and select None.

5. Select the ProductNameListBox control.

6. In the Properties window, click the button to the right of the DataSource property, and select productsBindingSource.

7. Click the button to the right of the DisplayMember property, and select ProductName.

8. Expand the DataBindings property, click the button to the right of the SelectedValue property, and select None.

Adding a Method to Insert Data into a Table

The next task is to read the data from the bound controls and populate a table in your Word document. First, create a procedure for formatting the headings in the table, and then add the AddData method to create and format a Word table.

To format the table headings

• In the ActionsControl class, create a method to format the headings of the table.

  Shared Sub SetHeadings(ByVal tblCell As Word.Cell, ByVal text As String)
  
      With tblCell.Range
          .Text = text
          .Font.Bold = True
          .ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter
      End With 
  End Sub
  

  static void SetHeadings(Microsoft.Office.Interop.Word.Cell tblCell, string text)
  {
      tblCell.Range.Text = text;
      tblCell.Range.Font.Bold = 1;
      tblCell.Range.ParagraphFormat.Alignment = 
          Microsoft.Office.Interop.Word.WdParagraphAlignment.wdAlignParagraphCenter;
  }
  

To create the table

• In the ActionsControl class, write a method that will create a table if one does not already exist, and add data from the actions pane to the table.

  Private Sub AddData(ByVal row As System.Data.DataRow, ByVal companyName As String)
  
      ' Create a table if it doesn't already exist. 
      If Globals.ThisDocument.Tables.Count = 0 Then 
  
          Try 
              ' Create a table.  
              Dim tbl As Word.Table = Globals.ThisDocument.Tables.Add( _
                  Globals.ThisDocument.Application.Selection.Range, 1, 4)
  
              ' Insert headings.
              SetHeadings(tbl.Cell(1, 1), "Company Name")
              SetHeadings(tbl.Cell(1, 2), "Product Name")
              SetHeadings(tbl.Cell(1, 3), "Quantity")
              SetHeadings(tbl.Cell(1, 4), "Unit Price")
  
          Catch ex As Exception
              MessageBox.Show("Problem creating Products table: " & ex.Message, _
                  "Actions Pane", MessageBoxButtons.OK, MessageBoxIcon.Error)
          End Try 
      End If 
  
      ' Add data from data row to the table. 
      Dim selection As Word.Selection = Globals.ThisDocument.Application.Selection
  
      If selection.Tables.Count > 0 Then 
  
          Dim newRow As Word.Row = Globals.ThisDocument.Tables(1).Rows.Add()
          With newRow
              .Range.Font.Bold = False
              .Range.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
              .Cells(4).Range.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphRight
              .Cells(1).Range.Text = companyName
              .Cells(2).Range.Text = row.Item("ProductName").ToString
              .Cells(3).Range.Text = row.Item("QuantityPerUnit").ToString
              .Cells(4).Range.Text = Math.Round(row.Item("UnitPrice"), 2)
          End With 
  
      Else
          MessageBox.Show("Cursor must be within a table.", _
              "Actions Pane", MessageBoxButtons.OK, MessageBoxIcon.Error)
      End If 
  End Sub
  

  private void AddData(System.Data.DataRow row, string companyName)
  {
      object missing = System.Type.Missing;
  
      // Create a table if it doesn't already exist. 
      if (Globals.ThisDocument.Tables.Count == 0)
      {
          try
          {
              // Create a table.
              Microsoft.Office.Interop.Word.Table tbl = Globals.ThisDocument.Tables.Add
                  (Globals.ThisDocument.Application.Selection.Range, 1, 4, ref missing, ref missing);
  
              // Insert headings.
              SetHeadings(tbl.Cell(1, 1), "Company Name");
              SetHeadings(tbl.Cell(1, 2), "Product Name");
              SetHeadings(tbl.Cell(1, 3), "Quantity");
              SetHeadings(tbl.Cell(1, 4), "Unit Price");
          }
          catch (Exception ex)
          {
              MessageBox.Show("Problem creating Products table: " + ex.Message, 
                  "Actions Pane", MessageBoxButtons.OK, MessageBoxIcon.Error);
          }
      }
  
      // Add data from data row to the table.
      Microsoft.Office.Interop.Word.Selection selection = Globals.ThisDocument.Application.Selection;
  
      if (selection.Tables.Count > 0)
      {
          Microsoft.Office.Interop.Word.Row newRow = Globals.ThisDocument.Tables[1].Rows.Add(ref missing);
  
          newRow.Range.Font.Bold = 0;
  
          newRow.Range.ParagraphFormat.Alignment = 
              Microsoft.Office.Interop.Word.WdParagraphAlignment.wdAlignParagraphLeft;
  
          newRow.Cells[4].Range.ParagraphFormat.Alignment =
              Microsoft.Office.Interop.Word.WdParagraphAlignment.wdAlignParagraphRight;
  
          newRow.Cells[1].Range.Text = companyName;
          newRow.Cells[2].Range.Text = row["ProductName"].ToString();
          newRow.Cells[3].Range.Text = row["QuantityPerUnit"].ToString();
          newRow.Cells[4].Range.Text = Math.Round(Convert.ToDouble(row["UnitPrice"])).ToString("#,##0.00");
      }
      else
      {
          MessageBox.Show("Cursor must be within a table.", 
              "Actions Pane", MessageBoxButtons.OK, MessageBoxIcon.Error);
      }
  }
  

To insert text into a Word table

1. Add the following code to the Click event handler of the Insert button.

   Private Sub Insert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Insert.Click
   
       Dim tbl As System.Data.DataTable = NorthwindDataSet.Products
       Dim rows() As System.Data.DataRow
   
       ' Check if a product is selected. 
       If Not Me.ProductNameListBox.SelectedIndex < 0 Then 
   
           Dim product As String = Me.ProductNameListBox.SelectedItem.Row.Item("ProductName")
           Dim company As String = Me.CompanyNameComboBox.Text
   
           ' Return the data row from the selected Product in the list box.
           rows = tbl.Select("[ProductName] = '" & product.Replace("'", "''") & "'")
   
           AddData(rows(0), company)
   
       Else
           MessageBox.Show("Please select a product.", "Actions Pane", MessageBoxButtons.OK)
       End If 
   End Sub
   

   private void Insert_Click(object sender, System.EventArgs e)
   {
       System.Data.DataTable tbl = northwindDataSet.Products;
       System.Data.DataRow[] rows;
   
       // Check if a product is selected. 
       if (this.productNameListBox.SelectedIndex >= 0)
       {
           System.Data.DataRowView productRow = (System.Data.DataRowView)this.productNameListBox.SelectedItem;
   
           string product = productRow.Row["ProductName"].ToString();
           string company = this.companyNameComboBox.Text;
   
           // Return the data row from the selected product.
           rows = tbl.Select("[ProductName] = '" + product.Replace("'", "''") + "'");
   
           this.AddData(rows[0], company);
       }
       else
       {
           MessageBox.Show("Please select a product.", "Actions Pane", MessageBoxButtons.OK);
       }
   }
   

2. In C#, you must create an event handler for the Click event of the button. You can place this code in the Load event handler of the ActionsControl class.

   this.Insert.Click += new EventHandler(Insert_Click);
   

Showing the Actions Pane

The actions pane becomes visible after controls are added to it.

To show the actions pane

1. In Solution Explorer, right-click ThisDocument.vb or ThisDocument.cs, and then click View Code on the shortcut menu.

2. Create a new instance of the control at the top of the ThisDocument class so that it looks like the following example.

   Dim actions As New ActionsControl
   

   private ActionsControl actions = new ActionsControl();
   

3. Add code to the Startup event handler of ThisDocument so that it looks like the following example.

   Me.ActionsPane.Controls.Add(actions)
   

   this.ActionsPane.Controls.Add(actions);
   

Testing the Application

Now you can test your document to verify that the actions pane appears when the document is opened. Test for the master/detail relationship in the controls on the actions pane, and make sure that data is populated in a Word table when the Insert button is clicked.

To test your document

1. Press F5 to run your project.

2. Confirm that the actions pane is visible.

3. Select a company in the combo box and verify that the items in the Products list box change.

4. Select a product, click Insert on the actions pane, and verify that the product details are added to the table in Word.

5. Insert additional products from various companies.

Next Steps

This walkthrough shows the basics of binding data to controls on an actions pane in Word. Here are some tasks that might come next:

• Binding data to controls in Excel. For more information, see Walkthrough: Binding Data to Controls on an Excel Actions Pane.

• Deploying the project. For more information, see Deploying an Office Solution by Using ClickOnce.

See Also

Tasks

How to: Add an Actions Pane to Word Documents or Excel Workbooks

Other Resources

Actions Pane Overview

Binding Data to Controls in Office Solutions