代碼示例

• 插入包含文本和格式的段落。
• 瀏覽和修改文檔中的不同范圍。
• 插入表格、設(shè)置表格格式并在表格中填充數(shù)據(jù)。
• 添加圖表。

1. 啟動(dòng) Microsoft Visual Studio .NET。在文件菜單上，單擊新建，然后單擊項(xiàng)目。在項(xiàng)目類(lèi)型下，單擊 Visual C# 項(xiàng)目，然后單擊模板下的 Windows 應(yīng)用程序。默認(rèn)情況下會(huì)創(chuàng)建 Form1。
2. 添加對(duì) Microsoft Word 對(duì)象庫(kù)的引用。為此，請(qǐng)按照下列步驟操作：
   1. 在項(xiàng)目菜單上，單擊添加引用。
   2. 在 COM 選項(xiàng)卡上，找到 Microsoft Word 對(duì)象庫(kù)，然后單擊選擇。
   3. 在添加引用對(duì)話(huà)框中單擊確定，接受您的選擇。如果系統(tǒng)提示您為選定的庫(kù)生成包裝，請(qǐng)單擊是。
3. 在視圖菜單上，選擇工具箱以顯示工具箱，然后向 Form1 添加一個(gè)按鈕。
4. 雙擊 Button1。出現(xiàn)該窗體的代碼窗口。
5. 在代碼窗口中，將以下代碼

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

   替換為：

   private void button1_Click(object sender, System.EventArgs e)
       {
       object oMissing = System.Reflection.Missing.Value;
       object oEndOfDoc = "\\endofdoc"; /* \endofdoc is a predefined bookmark */
       //Start Word and create a new document.
       Word._Application oWord;
       Word._Document oDoc;
       oWord = new Word.Application();
       oWord.Visible = true;
       oDoc = oWord.Documents.Add(ref oMissing, ref oMissing,
       ref oMissing, ref oMissing);
       //Insert a paragraph at the beginning of the document.
       Word.Paragraph oPara1;
       oPara1 = oDoc.Content.Paragraphs.Add(ref oMissing);
       oPara1.Range.Text = "Heading 1";
       oPara1.Range.Font.Bold = 1;
       oPara1.Format.SpaceAfter = 24;    //24 pt spacing after paragraph.
       oPara1.Range.InsertParagraphAfter();
       //Insert a paragraph at the end of the document.
       Word.Paragraph oPara2;
       object oRng = oDoc.Bookmarks.get_Item(ref oEndOfDoc).Range;
       oPara2 = oDoc.Content.Paragraphs.Add(ref oRng);
       oPara2.Range.Text = "Heading 2";
       oPara2.Format.SpaceAfter = 6;
       oPara2.Range.InsertParagraphAfter();
       //Insert another paragraph.
       Word.Paragraph oPara3;
       oRng = oDoc.Bookmarks.get_Item(ref oEndOfDoc).Range;
       oPara3 = oDoc.Content.Paragraphs.Add(ref oRng);
       oPara3.Range.Text = "This is a sentence of normal text. Now here is a table:";
       oPara3.Range.Font.Bold = 0;
       oPara3.Format.SpaceAfter = 24;
       oPara3.Range.InsertParagraphAfter();
       //Insert a 3 x 5 table, fill it with data, and make the first row
       //bold and italic.
       Word.Table oTable;
       Word.Range wrdRng = oDoc.Bookmarks.get_Item(ref oEndOfDoc).Range;
       oTable = oDoc.Tables.Add(wrdRng, 3, 5, ref oMissing, ref oMissing);
       oTable.Range.ParagraphFormat.SpaceAfter = 6;
       int r, c;
       string strText;
       for(r = 1; r <= 3; r++)
       for(c = 1; c <= 5; c++)
       {
       strText = "r" + r + "c" + c;
       oTable.Cell(r, c).Range.Text = strText;
       }
       oTable.Rows[1].Range.Font.Bold = 1;
       oTable.Rows[1].Range.Font.Italic = 1;
       //Add some text after the table.
       Word.Paragraph oPara4;
       oRng = oDoc.Bookmarks.get_Item(ref oEndOfDoc).Range;
       oPara4 = oDoc.Content.Paragraphs.Add(ref oRng);
       oPara4.Range.InsertParagraphBefore();
       oPara4.Range.Text = "And here's another table:";
       oPara4.Format.SpaceAfter = 24;
       oPara4.Range.InsertParagraphAfter();
       //Insert a 5 x 2 table, fill it with data, and change the column widths.
       wrdRng = oDoc.Bookmarks.get_Item(ref oEndOfDoc).Range;
       oTable = oDoc.Tables.Add(wrdRng, 5, 2, ref oMissing, ref oMissing);
       oTable.Range.ParagraphFormat.SpaceAfter = 6;
       for(r = 1; r <= 5; r++)
       for(c = 1; c <= 2; c++)
       {
       strText = "r" + r + "c" + c;
       oTable.Cell(r, c).Range.Text = strText;
       }
       oTable.Columns[1].Width = oWord.InchesToPoints(2); //Change width of columns 1 & 2
       oTable.Columns[2].Width = oWord.InchesToPoints(3);
       //Keep inserting text. When you get to 7 inches from top of the
       //document, insert a hard page break.
       object oPos;
       double dPos = oWord.InchesToPoints(7);
       oDoc.Bookmarks.get_Item(ref oEndOfDoc).Range.InsertParagraphAfter();
       do
       {
       wrdRng = oDoc.Bookmarks.get_Item(ref oEndOfDoc).Range;
       wrdRng.ParagraphFormat.SpaceAfter = 6;
       wrdRng.InsertAfter("A line of text");
       wrdRng.InsertParagraphAfter();
       oPos = wrdRng.get_Information
       (Word.WdInformation.wdVerticalPositionRelativeToPage);
       }
       while(dPos >= Convert.ToDouble(oPos));
       object oCollapseEnd = Word.WdCollapseDirection.wdCollapseEnd;
       object oPageBreak = Word.WdBreakType.wdPageBreak;
       wrdRng.Collapse(ref oCollapseEnd);
       wrdRng.InsertBreak(ref oPageBreak);
       wrdRng.Collapse(ref oCollapseEnd);
       wrdRng.InsertAfter("We're now on page 2. Here's my chart:");
       wrdRng.InsertParagraphAfter();
       //Insert a chart.
       Word.InlineShape oShape;
       object oClassType = "MSGraph.Chart.8";
       wrdRng = oDoc.Bookmarks.get_Item(ref oEndOfDoc).Range;
       oShape = wrdRng.InlineShapes.AddOLEObject(ref oClassType, ref oMissing,
       ref oMissing, ref oMissing, ref oMissing,
       ref oMissing, ref oMissing, ref oMissing);
       //Demonstrate use of late bound oChart and oChartApp objects to
       //manipulate the chart object with MSGraph.
       object oChart;
       object oChartApp;
       oChart = oShape.OLEFormat.Object;
       oChartApp = oChart.GetType().InvokeMember("Application",
       BindingFlags.GetProperty, null, oChart, null);
       //Change the chart type to Line.
       object[] Parameters = new Object[1];
       Parameters[0] = 4; //xlLine = 4
       oChart.GetType().InvokeMember("ChartType", BindingFlags.SetProperty,
       null, oChart, Parameters);
       //Update the chart image and quit MSGraph.
       oChartApp.GetType().InvokeMember("Update",
       BindingFlags.InvokeMethod, null, oChartApp, null);
       oChartApp.GetType().InvokeMember("Quit",
       BindingFlags.InvokeMethod, null, oChartApp, null);
       //... If desired, you can proceed from here using the Microsoft Graph
       //Object model on the oChart and oChartApp objects to make additional
       //changes to the chart.
       //Set the width of the chart.
       oShape.Width = oWord.InchesToPoints(6.25f);
       oShape.Height = oWord.InchesToPoints(3.57f);
       //Add text after the chart.
       wrdRng = oDoc.Bookmarks.get_Item(ref oEndOfDoc).Range;
       wrdRng.InsertParagraphAfter();
       wrdRng.InsertAfter("THE END.");
       //Close this form.
       this.Close();
       }
       

6. 滾動(dòng)到代碼窗口的頂部。將下面的代碼行添加到 using 指令列表的末尾：

   using Word = Microsoft.Office.Interop.Word;
       using System.Reflection;
       

7. 按 F5 鍵生成并運(yùn)行程序。
8. 單擊 Button1，啟動(dòng) Word 自動(dòng)化功能并創(chuàng)建文檔。

使用模板

• 您可以對(duì)整個(gè)文檔中的對(duì)象的格式設(shè)置和布局施加更多控制。
• 可以使用較少的代碼創(chuàng)建文檔。

object oTemplate = "c:\\MyTemplate.dot";
oDoc = oWord.Documents.Add(ref oTemplate, ref oMissing,
ref oMissing, ref oMissing);

object oBookMark = "MyBookmark";
oDoc.Bookmarks.Item(ref oBookMark).Range.Text = "Some Text Here";

object oStyleName = "MyStyle";
oDoc.Bookmarks.Item(ref oBookMark).Range.set_Style(ref oStyleName);

object oStyleName = "MyStyle";
oWord.Selection.set_Style(ref oStyleName);