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

2025-06-12

重要

アクション機能は Office 2024 で廃止されました。

この機能は、次のリリースの Office でのみ使用できます。

Microsoft 365
Office LTSC Professional Plus 2021
Office LTSC Standard 2021
Office Professional Plus 2016、2019
Office Standard 2016、2019

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

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

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

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

注

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

前提条件

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

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

プロジェクトを作成する

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

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

[ マイワード操作ウィンドウ] という名前の Word 文書プロジェクトを作成します。ウィザードで、[ 新しいドキュメントの作成] を選択します。

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

Visual Studio は、デザイナーで新しい Word 文書を開き、 個人用 Word 操作ウィンドウ プロジェクトを ソリューションエクスプローラーに追加します。

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

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

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

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

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

[データソース] ウィンドウが表示されない場合は、メニューバーの [表示]、[その他の Windows>>Data ソース] の順に選択して表示します。

注

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

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

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

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

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

注

SuppliersBindingNavigatorを削除しても、生成されたすべてのコードが削除されるわけではありません。このコードは削除できます。
コンボボックスを移動してラベルの下に移動し、 Size プロパティを 171,21 に変更します。
[データソース] ウィンドウで、[仕入先] テーブルの子である 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 イベントにアタッチする必要があります。このコードは、InitializeComponentの呼び出しの後に、ActionsControl コンストラクターに配置できます。イベントハンドラーを作成する方法の詳細については、「方法: 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 テーブルにテキストを挿入するには

[挿入] ボタンの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)
```

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

これで、ドキュメントをテストして、ドキュメントを開いたときに操作ウィンドウが表示されることを確認できます。操作ウィンドウのコントロールでマスター/詳細リレーションシップをテストし、[ 挿入 ] ボタンがクリックされたときに Word テーブルにデータが入力されていることを確認します。

ドキュメントをテストするには

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

次のステップ

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

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