チュートリアル: Word の操作ウィンドウでコントロールにデータをバインドする

[アーティクル]
06/19/2023

このチュートリアルでは、Word の操作ウィンドウ上のコントロールにデータをバインドする方法について説明します。このコントロールは、SQL Server データベースのテーブル間のマスター/詳細の関係を示します。

適用対象: このトピックの情報は、Word のドキュメントレベルのプロジェクトに適用されます。詳細については、「Office アプリケーションおよびプロジェクトの種類別の使用可能な機能」を参照してください。

このチュートリアルでは、次の作業について説明します。

データにバインドされた Windows フォームコントロールを含む操作ウィンドウを作成する。
マスター/詳細関係を使用してコントロールにデータを表示する。
アプリケーションが開いたときに操作ウィンドウを表示する。

Note

次の手順で参照している Visual Studio ユーザーインターフェイス要素の一部は、お使いのコンピューターでは名前や場所が異なる場合があります。これらの要素は、使用している Visual Studio のエディションや独自の設定によって決まります。詳細については、「Visual Studio IDE のカスタマイズ」を参照してください。

前提条件

このチュートリアルを実行するには、次のコンポーネントが必要です。

Microsoft Office Developer Tools が含まれている Visual Studio のエディション。詳細については、「Office ソリューションを開発できるようにコンピューターを構成する」を参照してください。
Word 2013 または Word 2010。
Northwind SQL Server サンプルデータベースがあるサーバーへのアクセス。
SQL Server データベースに対する読み取りと書き込みのアクセス許可。

プロジェクトを作成する

最初に、Word 文書のプロジェクトを作成します。

新しいプロジェクトを作成するには

「My Word Actions Pane」という名前の Word 文書プロジェクトを作成します。ウィザードで、[新規ドキュメントの作成] をクリックします。

詳細については、「方法: Visual Studio で Office プロジェクトを作成する」を参照してください。

新しい Word 文書が Visual Studio のデザイナーで開かれ、My Word Actions Pane プロジェクトがソリューションエクスプローラーに追加されます。

操作ウィンドウにコントロールを追加する

このチュートリアルでは、データバインドされた Windows フォームコントロールを含む操作ウィンドウコントロールが必要です。データソースをプロジェクトに追加し、[データソース] ウィンドウから操作ウィンドウコントロールにコントロールをドラッグします。

操作ウィンドウコントロールを追加するには

ソリューションエクスプローラーで、[My Word Actions Pane] プロジェクトを選択します。
[プロジェクト] メニューの [新しい項目の追加] をクリックします。
[新しい項目の追加] ダイアログボックスで、[操作ウィンドウコントロール] を選択し、名前を ActionsControl と指定して、[追加] をクリックします。

プロジェクトにデータソースを追加するには

[データソース] ウィンドウが表示されていない場合は、メニューバーで [表示]>[その他のウィンドウ]>[データソース] をクリックして表示します。

Note

[データソースの表示] が使用できない場合は、Word 文書をクリックし、もう一度確認します。
[新しいデータソースの追加] をクリックしてデータソース構成ウィザードを開始します。
[データベース] を選択し、[次へ] をクリックします。
SQL Server の Northwind サンプルデータベースへのデータ接続を選択するか、または [新しい接続] ボタンを使用して新しい接続を追加します。
次へをクリックします。
接続を保存するオプションがオンになっている場合は、それをオフにして、[次へ] をクリックします。
[データベースオブジェクト] ウィンドウで、[Tables] ノードを展開します。
Suppliers テーブルと Products テーブルの隣にあるチェックボックスをオンにします。
[完了] をクリックします。

ウィザードにより、Suppliers テーブルと Products テーブルが [データソース] ウィンドウに追加されます。また、ソリューションエクスプローラーに表示される、型指定されたデータセットがプロジェクトに追加されます。

データバインドされた Windows フォームコントロールを操作ウィンドウコントロールに追加するには

[データソース] ウィンドウで、Suppliers テーブルを展開します。
[Company Name] ノードのドロップダウン矢印をクリックし、[ComboBox] を選択します。
[データソース] ウィンドウから操作ウィンドウコントロールに CompanyName をドラッグします。

操作ウィンドウコントロールに ComboBox コントロールが作成されます。同時に、SuppliersBindingSource という名前の BindingSource、テーブルアダプター、および DataSet がプロジェクトのコンポーネントトレイに追加されます。
コンポーネント トレイで SuppliersBindingNavigator を選択し、Delete キーを押します。このチュートリアルでは SuppliersBindingNavigator を使用しません。

Note

SuppliersBindingNavigator を削除しても、それのために生成されたコードがすべて削除されるわけではありません。このコードは削除できます。
コンボボックスをラベルの下に移動し、Size プロパティを 171, 21 に変更します。
[データソース] ウィンドウで、Suppliers テーブルの子である Products テーブルを展開します。
[ProductName] ノードのドロップダウン矢印をクリックし、[ListBox] を選択します。
操作ウィンドウコントロールに ProductName をドラッグします。

操作ウィンドウコントロールに ListBox コントロールが作成されます。同時に、ProductBindingSource という名前の BindingSource、およびテーブルアダプターがプロジェクトのコンポーネントトレイに追加されます。
リストボックスをラベルの下に移動し、Size プロパティを 171,95 に変更します。
[ツールボックス] から操作ウィンドウコントロールに Button をドラッグし、リストボックスの下に配置します。
Button を右クリックし、ショートカットメニューの [プロパティ] をクリックして、次のプロパティを変更します。

プロパティ値

名前 [挿入]

テキスト [挿入]
ユーザーコントロールのサイズを、コントロールに合わせて変更します。

プロパティ	値
名前	[挿入]
テキスト	[挿入]

データソースを設定する

データソースを設定するには、操作ウィンドウコントロールの Load イベントにコードを追加して、コントロールに DataTable のデータを読み込み、各コントロールの DataSource プロパティと DataMember プロパティを設定します。

コントロールにデータを読み込むには

ActionsControl クラスの Load イベントハンドラーに次のコードを追加します。

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

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

C# では、このイベントハンドラーを Load イベントにアタッチする必要があります。このコードは、ActionsControl コンストラクター内の、InitializeComponent の呼び出しの後に配置できます。イベントハンドラーの作成方法の詳細については、「方法: Office プロジェクトでイベントハンドラーを作成する」を参照してください。
```
this.Load += new EventHandler(ActionsControl_Load);
```

コントロールのデータバインディングプロパティを設定するには

CompanyNameComboBox コントロールを選択します。
[プロパティ] ウィンドウで、DataSource プロパティの右側にあるボタンをクリックし、suppliersBindingSource を選択します。
DisplayMember プロパティの右側にあるボタンをクリックし、CompanyName を選択します。
DataBindings プロパティを展開し、Text プロパティの右側にあるボタンをクリックして、[なし] を選択します。
ProductNameListBox コントロールを選択します。
[プロパティ] ウィンドウで、DataSource プロパティの右側にあるボタンをクリックし、productsBindingSource を選択します。
DisplayMember プロパティの右側にあるボタンをクリックし、ProductName を選択します。
DataBindings プロパティを展開し、SelectedValue プロパティの右側にあるボタンをクリックして、[なし] を選択します。

テーブルにデータを挿入するメソッドを追加する

次のタスクは、バインドされたコントロールからデータを読み取り、Word 文書のテーブルにデータを挿入することです。まず、テーブルの見出しを書式設定するためのプロシージャを作成してから、Word のテーブルを作成して書式設定するための AddData メソッドを追加します。

テーブルの見出しの書式を設定するには

ActionsControl クラスで、テーブルの見出しの書式を設定するメソッドを作成します。

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;
}

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

テーブルを作成するには

ActionsControl クラスで、テーブルがまだ存在しない場合にテーブルを作成し、操作ウィンドウからテーブルにデータを追加するメソッドを記述します。

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);
    }
}

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

Word のテーブルにテキストを挿入するには

[Insert] ボタンの Click イベントハンドラーに次のコードを追加します。

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);
    }
}

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

C# では、ボタンの Click イベントのイベントハンドラーを作成する必要があります。このコードは、ActionsControl クラスの Load イベントハンドラー内に配置できます。
```
this.Insert.Click += new EventHandler(Insert_Click);
```

操作ウィンドウを表示する

操作ウィンドウは、コントロールが追加されると表示されます。

操作ウィンドウを表示するには

ソリューションエクスプローラーで ThisDocument.vb または ThisDocument.cs を右クリックし、ショートカットメニューの [コードの表示] をクリックします。
次の例のように、ThisDocument クラスの上部にコントロールの新しいインスタンスを作成します。
- C#
- VB
```
private ActionsControl actions = new ActionsControl();
```
```
Dim actions As New ActionsControl
```
次の例のように、ThisDocument の Startup イベントハンドラーにコードを追加します。
- C#
- VB
```
this.ActionsPane.Controls.Add(actions);
```
```
Me.ActionsPane.Controls.Add(actions)
```

アプリケーションをテストする

それでは、文書をテストして、文書を開いたときに操作ウィンドウが表示されることを確認しましょう。操作ウィンドウのコントロールのマスター/詳細関係をテストし、[Insert] ボタンがクリックされたときに Word のテーブルにデータが挿入されることを確認します。

文書をテストするには

F5 キーを押してプロジェクトを実行します。
操作ウィンドウが表示されていることを確認します。
コンボボックスで会社を選択して、[Products] リストボックス内の項目が変化することを確認します。
製品を選択し、操作ウィンドウの [Insert] をクリックして、Word のテーブルに製品の詳細が追加されることを確認します。
さまざまな会社から追加の製品を挿入します。

次のステップ

このチュートリアルでは、Word の操作ウィンドウ上のコントロールにデータをバインドする方法の基本について説明しました。ここでは、次の作業を行います。

Excel のコントロールにデータをバインドする。詳しくは、「チュートリアル: Excel の操作ウィンドウ上のコントロールにデータをバインドする」をご覧ください。
プロジェクトを配置する。詳しくは、「ClickOnce を使用して Office ソリューションを配置する」をご覧ください。

Share via

チュートリアル: Word の操作ウィンドウでコントロールにデータをバインドする

前提条件

プロジェクトを作成する

新しいプロジェクトを作成するには

操作ウィンドウにコントロールを追加する

操作ウィンドウコントロールを追加するには

プロジェクトにデータソースを追加するには

データバインドされた Windows フォームコントロールを操作ウィンドウコントロールに追加するには

データソースを設定する

コントロールにデータを読み込むには

コントロールのデータバインディングプロパティを設定するには

テーブルにデータを挿入するメソッドを追加する

テーブルの見出しの書式を設定するには

テーブルを作成するには

Word のテーブルにテキストを挿入するには

操作ウィンドウを表示する

操作ウィンドウを表示するには

アプリケーションをテストする

文書をテストするには

次のステップ

その他のリソース

Share via

チュートリアル: Word の操作ウィンドウでコントロールにデータをバインドする

前提条件

プロジェクトを作成する

新しいプロジェクトを作成するには

操作ウィンドウにコントロールを追加する

操作ウィンドウ コントロールを追加するには

プロジェクトにデータ ソースを追加するには

データ バインドされた Windows フォーム コントロールを操作ウィンドウ コントロールに追加するには

データ ソースを設定する

コントロールにデータを読み込むには

コントロールのデータ バインディング プロパティを設定するには

テーブルにデータを挿入するメソッドを追加する

テーブルの見出しの書式を設定するには

テーブルを作成するには

Word のテーブルにテキストを挿入するには

操作ウィンドウを表示する

操作ウィンドウを表示するには

アプリケーションをテストする

文書をテストするには

次のステップ

関連するコンテンツ

その他のリソース

操作ウィンドウコントロールを追加するには

プロジェクトにデータソースを追加するには

データバインドされた Windows フォームコントロールを操作ウィンドウコントロールに追加するには

データソースを設定する

コントロールのデータバインディングプロパティを設定するには