Visual C から差し込み印刷を実行するように Microsoft Word を自動化する方法#

  • [アーティクル]
  • 適用対象:
    Microsoft Word

この記事の Microsoft Visual Basic .NET バージョンについては、「301656」 を参照してください。

概要

この記事では、Microsoft Visual C# 2005 または Microsoft Visual C# .NET を使用して、Microsoft Word を自動化して差し込み印刷ドキュメントを作成する方法について説明します。

詳細情報

Automation は、Visual C# 2005 や Visual C# .NET などの言語で記述されたアプリケーションがプログラムによって他のアプリケーションを制御できるようにするプロセスです。 Word を自動化すると、新しいドキュメントの作成、ドキュメントへのテキストの追加、文書の書式設定などの操作を実行できます。 Word やその他の Microsoft Office アプリケーションでは、ユーザー インターフェイスを使用して手動で実行できるほぼすべてのアクションを Automation を使用してプログラムで実行することもできます。

Word では、オブジェクト モデルを使用してこのプログラム機能が公開されます。 オブジェクト モデルは、Word の論理コンポーネントに対応するクラスとメソッドのコレクションです。 たとえば、Application オブジェクト、Document オブジェクト、Paragraph オブジェクトがあり、それぞれが Word のこれらのコンポーネントの機能を含みます。 Visual C# 2005 または Visual C# .NET からオブジェクト モデルにアクセスするには、プロジェクト参照をタイプ ライブラリに設定できます。

この記事では、Visual C# .NET 用の Word タイプ ライブラリへの適切なプロジェクト参照を設定する方法と、Word を自動化するためのサンプル コードを提供します。

Automation サンプルのビルド

  1. Microsoft Visual Studio 2005 または Microsoft Visual Studio .NET を起動します。

  2. [ファイル] メニューの [新規] をクリックし、[プロジェクト] をクリックします。 Visual C# プロジェクトの種類から Windows アプリケーションを選択します。 Form1 は既定で作成されます。

  3. Visual Studio 2005 の Microsoft Word 11.0 オブジェクト ライブラリ または Visual Studio .NET の Microsoft Word オブジェクト ライブラリへの参照を追加します。 これを行うには、次の手順を実行します。

    1. [ プロジェクト] メニューの [ 参照の追加] をクリックします。

    2. [COM] タブで、Microsoft Word オブジェクト ライブラリを探し、[選択] をクリックします。

      Visual Studio 2005 で、[COM] タブで Microsoft Word 11.0 オブジェクト ライブラリを探します。

      メモ Microsoft Office 2003 には、プライマリ相互運用機能アセンブリ (PIA) が含まれています。 Microsoft Office XP には PIA は含まれていませんが、ダウンロードできます。

    3. [参照の追加] ダイアログ ボックスで [OK] をクリックして、選択内容を受け入れます。

  4. [表示] メニューの [ツールボックス] を選択してツールボックスを表示し、Form1 にボタンを追加します。

  5. Button1 をダブルクリックします。 フォームのコード ウィンドウが表示されます。

  6. コード ウィンドウで、次のコードを置き換えます

      private void button1_Click(object sender, System.EventArgs e)
  {
  }

    置換後:

    Word.Application wrdApp;
Word._Document wrdDoc;
Object oMissing = System.Reflection.Missing.Value;
Object oFalse = false;

private void InsertLines(int LineNum)
{
int iCount;

// Insert "LineNum" blank lines.
for(iCount = 1; iCount<=LineNum; iCount++) 
{
wrdApp.Selection.TypeParagraph();
}
}

private void FillRow(Word._Document oDoc, int Row, string Text1,
string Text2, string Text3, string Text4)
{
// Insert the data into the specific cell.
oDoc.Tables[1].Cell(Row,1).Range.InsertAfter(Text1);
oDoc.Tables[1].Cell(Row,2).Range.InsertAfter(Text2);
oDoc.Tables[1].Cell(Row,3).Range.InsertAfter(Text3);
oDoc.Tables[1].Cell(Row,4).Range.InsertAfter(Text4);
}

private void CreateMailMergeDataFile()
{
Word._Document oDataDoc;
int iCount;

Object oName = "C:\\DataDoc.doc";
Object oHeader = "FirstName, LastName, Address, CityStateZip";
wrdDoc.MailMerge.CreateDataSource(ref oName,ref oMissing, 
ref oMissing,ref oHeader, ref oMissing, ref oMissing, 
ref oMissing, ref oMissing, ref oMissing);

// Open the file to insert data.
oDataDoc = wrdApp.Documents.Open(ref oName,ref oMissing,
ref oMissing, ref oMissing,ref oMissing,ref oMissing,
ref oMissing,ref oMissing,ref oMissing,ref oMissing,
ref oMissing,ref oMissing,ref oMissing,ref oMissing,
ref oMissing/*, ref oMissing */);

for (iCount=1; iCount<=2; iCount++)
{
oDataDoc.Tables[1].Rows.Add(ref oMissing);
}
// Fill in the data.
FillRow(oDataDoc, 2, "Steve", "DeBroux", 
"4567 Main Street", "Buffalo, NY  98052");
FillRow(oDataDoc, 3, "Jan", "Miksovsky", 
"1234 5th Street", "Charlotte, NC  98765");
FillRow(oDataDoc, 4, "Brian", "Valentine", 
"12348 78th Street  Apt. 214", 
"Lubbock, TX  25874");
// Save and close the file.
oDataDoc.Save();
oDataDoc.Close(ref oFalse, ref oMissing, ref oMissing);
}

private void button1_Click(object sender, System.EventArgs e)
{
Word.Selection wrdSelection;
Word.MailMerge wrdMailMerge;
Word.MailMergeFields wrdMergeFields;
Word.Table wrdTable;
string StrToAdd;

// Create an instance of Word  and make it visible.
wrdApp = new Word.Application();
wrdApp.Visible = true;

// Add a new document.
wrdDoc = wrdApp.Documents.Add(ref oMissing,ref oMissing,
ref oMissing,ref oMissing);
wrdDoc.Select();

wrdSelection = wrdApp.Selection;
wrdMailMerge = wrdDoc.MailMerge;

// Create a MailMerge Data file.
CreateMailMergeDataFile();

// Create a string and insert it into the document.
StrToAdd = "State University\r\nElectrical Engineering Department";
wrdSelection.ParagraphFormat.Alignment  = 
Word.WdParagraphAlignment.wdAlignParagraphCenter;
wrdSelection.TypeText(StrToAdd);

InsertLines(4);

// Insert merge data.
wrdSelection.ParagraphFormat.Alignment = 
Word.WdParagraphAlignment.wdAlignParagraphLeft;
wrdMergeFields = wrdMailMerge.Fields;
wrdMergeFields.Add(wrdSelection.Range, "FirstName");
wrdSelection.TypeText(" ");
wrdMergeFields.Add(wrdSelection.Range, "LastName");
wrdSelection.TypeParagraph();

wrdMergeFields.Add(wrdSelection.Range, "Address");
wrdSelection.TypeParagraph();
wrdMergeFields.Add(wrdSelection.Range, "CityStateZip");

InsertLines(2);

// Right justify the line and insert a date field
// with the current date.
wrdSelection.ParagraphFormat.Alignment = 
Word.WdParagraphAlignment.wdAlignParagraphRight;

Object objDate = "dddd, MMMM dd, yyyy";
wrdSelection.InsertDateTime(ref objDate,ref oFalse,ref oMissing, 
ref oMissing, ref oMissing);

InsertLines(2);

// Justify the rest of the document.
wrdSelection.ParagraphFormat.Alignment = 
Word.WdParagraphAlignment.wdAlignParagraphJustify;    

wrdSelection.TypeText("Dear ");
wrdMergeFields.Add(wrdSelection.Range, "FirstName");
wrdSelection.TypeText(",");
InsertLines(2);

// Create a string and insert it into the document.
StrToAdd = "Thank you for your recent request for next " +
"semester's class schedule for the Electrical " +
"Engineering Department. Enclosed with this " +
"letter is a booklet containing all the classes " +
"offered next semester at State University.  " +
"Several new classes will be offered in the " +
"Electrical Engineering Department next semester.  " +
"These classes are listed below.";
wrdSelection.TypeText(StrToAdd);

InsertLines(2);

// Insert a new table with 9 rows and 4 columns.
wrdTable = wrdDoc.Tables.Add(wrdSelection.Range,9,4, 
ref oMissing, ref oMissing);
// Set the column widths.
wrdTable.Columns[1].SetWidth(51, Word.WdRulerStyle.wdAdjustNone);
wrdTable.Columns[2].SetWidth(170, Word.WdRulerStyle.wdAdjustNone);
wrdTable.Columns[3].SetWidth(100, Word.WdRulerStyle.wdAdjustNone);
wrdTable.Columns[4].SetWidth(111, Word.WdRulerStyle.wdAdjustNone);
// Set the shading on the first row to light gray.
wrdTable.Rows[1].Cells.Shading.BackgroundPatternColorIndex = 
Word.WdColorIndex.wdGray25;
// Bold the first row.
wrdTable.Rows[1].Range.Bold = 1;
// Center the text in Cell (1,1).
wrdTable.Cell(1, 1).Range.Paragraphs.Alignment = 
Word.WdParagraphAlignment.wdAlignParagraphCenter;

// Fill each row of the table with data.
FillRow(wrdDoc, 1, "Class Number", "Class Name", 
"Class Time", "Instructor");
FillRow(wrdDoc, 2, "EE220", "Introduction to Electronics II", 
"1:00-2:00 M,W,F", "Dr. Jensen");
FillRow(wrdDoc, 3, "EE230", "Electromagnetic Field Theory I", 
"10:00-11:30 T,T", "Dr. Crump");
FillRow( wrdDoc, 4, "EE300", "Feedback Control Systems", 
"9:00-10:00 M,W,F", "Dr. Murdy");
FillRow(wrdDoc, 5, "EE325", "Advanced Digital Design", 
"9:00-10:30 T,T", "Dr. Alley");
FillRow(wrdDoc, 6, "EE350", "Advanced Communication Systems", 
"9:00-10:30 T,T", "Dr. Taylor");
FillRow(wrdDoc, 7, "EE400", "Advanced Microwave Theory", 
"1:00-2:30 T,T", "Dr. Lee");
FillRow(wrdDoc, 8, "EE450", "Plasma Theory",
"1:00-2:00 M,W,F", "Dr. Davis");
FillRow(wrdDoc, 9, "EE500", "Principles of VLSI Design", 
"3:00-4:00 M,W,F", "Dr. Ellison");

// Go to the end of the document.
Object oConst1 = Word.WdGoToItem.wdGoToLine;
Object oConst2 = Word.WdGoToDirection.wdGoToLast;
wrdApp.Selection.GoTo(ref oConst1,ref oConst2,ref oMissing,ref oMissing);
InsertLines(2);

// Create a string and insert it into the document.
StrToAdd = "For additional information regarding the " +
"Department of Electrical Engineering, " +
"you can visit our Web site at ";
wrdSelection.TypeText(StrToAdd);
// Insert a hyperlink to the Web page.
Object oAddress = "http://www.ee.stateu.tld";
Object oRange = wrdSelection.Range;
wrdSelection.Hyperlinks.Add(oRange, ref oAddress,ref oMissing,
ref oMissing, ref oMissing, ref oMissing);
// Create a string and insert it into the document
StrToAdd = ".  Thank you for your interest in the classes " +
"offered in the Department of Electrical " +
"Engineering.  If you have any other questions, " +
"please feel free to give us a call at " +
"555-1212.\r\n\r\n"  +
"Sincerely,\r\n\r\n" +
"Kathryn M. Hinsch\r\n" +
"Department of Electrical Engineering \r\n";
wrdSelection.TypeText(StrToAdd);

// Perform mail merge.
wrdMailMerge.Destination = Word.WdMailMergeDestination.wdSendToNewDocument;
wrdMailMerge.Execute(ref oFalse);

// Close the original form document.
wrdDoc.Saved = true;
wrdDoc.Close(ref oFalse,ref oMissing,ref oMissing);

// Release References.
wrdSelection = null;
wrdMailMerge = null;
wrdMergeFields = null;
wrdDoc = null;
wrdApp = null;

// Clean up temp file.
System.IO.File.Delete("C:\\DataDoc.doc");
}

    メモ Visual Studio 2005 でコードを変更する必要があります。 既定では、Visual C# は、Windows フォーム プロジェクトを作成するときに、1 つのフォームをプロジェクトに追加します。 フォームは Form1 という名前です。 フォームを表す 2 つのファイルは、Form1.cs と Form1.designer.cs という名前です。 Form1.cs でコードを記述します。 Form1.designer.cs ファイルは、Windows フォーム デザイナーがツールボックスからコントロールをドラッグ アンド ドロップすることによって実行したすべてのアクションを実装するコードを記述する場所です。

    Visual C# 2005 のWindows フォーム デザイナーの詳細については、次の Microsoft Developer Network (MSDN) Web サイトを参照してください。プロジェクトの作成 (Visual C#)、Microsoft Office Word 2003 にはドキュメントの Open メソッドの追加引数があります。 Word 2003 PIA を使用している場合は、Open メソッドの追加パラメーターのコメント表記を削除します。

  7. Form1.cs の先頭に次を追加します。

    using Word = Microsoft.Office.Interop.Word;

  8. F5 キーを押してビルドし、プログラムを実行します。

  9. [Button1] をクリックして Word Automation を起動し、差し込み印刷を実行します。

関連情報

詳細については、次の Microsoft Developer Network (MSDN) Web サイトを参照してください。Visual Studio を使用した Microsoft Office Development と Visual Studio の Microsoft Office Development

詳細については、次の記事番号をクリックして、Microsoft サポート技術情報の記事を表示してください。

285332 Visual Basic で Word 2002 を自動化して差し込み印刷を作成する方法