Como automatizar o Microsoft Word para efectuar Impressão em Série a partir do Visual C#

A automatização é um processo que permite que aplicações escritas em linguagens como o Visual C# 2005 ou o Visual C# .NET controlem programaticamente outras aplicações. A automatização do Word permite efectuar acções como criar novos documentos, adicionar texto a documentos e formatar documentos. No Word e outras aplicações do Microsoft Office, através da Automatização, é possível efectuar programaticamente quase todas as acções que é possível efectuar manualmente utilizando a interface do utilizador.

O Word expõe esta funcionalidade programática através de um modelo de objecto. O modelo de objecto é um conjunto de classes e métodos que funciona como um duplicado dos componentes lógicos do Word. Por exemplo, um objecto Application, um objecto Document e um objecto Paragraph, cada um com a funcionalidade destes componentes do Word. Para ter acesso ao modelo de objecto a partir do Visual C# 2005 ou do Visual C# .NET, pode definir uma referência de projecto para a biblioteca de tipos.

Este artigo demonstra como definir a referência de projecto adequada na biblioteca de tipos do Word para o Visual C# .NET e fornece código de exemplo para automatizar o Word.

Criar o Exemplo de Automatização

1. Inicie o Microsoft Visual Studio 2005 ou o Microsoft Visual Studio .NET.
2. No menu File, clique em New e, em seguida, clique em Project. Seleccione Windows Application a partir dos tipos de Projecto do Visual C#. Por predefinição, é criado o Form1.
3. Adicione uma referência ao Microsoft Word 11.0 Object Library no Visual Studio 2005 ou ao Microsoft Word Object Library no Visual Studio .NET. Para o fazer, siga estes passos:
   1. No menu Project, clique em Add Reference.
   2. No separador COM, localize Microsoft Word Object Library e clique em Select.
      
      No Visual Studio 2005, localize Microsoft Word 11.0 Object Library no separador COM.
      
      Nota: o Microsoft Office 2003 inclui Assemblagens PIAs (Primary Interop Assemblies). O Microsoft Office XP não inclui PIAs, mas estas podem ser transferidas. Para mais informações sobre PIAs do Office XP, clique no número de artigo que se segue para visualizar o artigo na Base de Dados de Conhecimento da Microsoft:
      328912  (http://support.microsoft.com/kb/328912/ ) Estão disponíveis para transferência as principais bases de interoperabilidade (PIAs) do Microsoft Office XP
   3. Clique em OK na caixa de diálogo Add References para aceitar as selecções.
4. No menu View, seleccione Toolbox para visualizar a caixa de ferramentas e, em seguida, adicione um botão ao Form1.
5. Faça duplo clique em Button1. A janela de código para o formulário é apresentada.
6. Na janela de código, substitua o seguinte código

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

   por:

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

   Nota: tem de alterar o código no Visual Studio 2005. Por predefinição, o Visual C# adiciona um formulário ao projecto quando cria um projecto de Windows Forms. O formulário é denominado Form1. Os dois ficheiros que representam o formulário são denominados Form1.cs e Form1.designer.cs. Tem de escrever o código no Form1.cs. O ficheiro Form1.designer.cs é onde o Windows Forms Designer escreve o código que implementa todas as acções efectuadas arrastando e largando controlos a partir da Caixa de Ferramentas.
   
   Para mais informações sobre o Windows Forms Designer no Visual C# 2005, visite o seguinte Web site da MSDN (Microsoft Developer Network):
   http://msdn2.microsoft.com/en-us/library/ms173077.aspx (http://msdn2.microsoft.com/en-us/library/ms173077.aspx)
   Nota: o Microsoft Office Word 2003 tem um argumento adicional para o método Open do documento. Se estiver a utilizar a PIA do Word 2003, remova a anotação de comentário relativa ao parâmetro adicional do método Open.
7. Adicione o seguinte na parte superior de Form1.cs:

   using Word = Microsoft.Office.Interop.Word;
   					

8. Prima a tecla F5 para criar e executar o programa.
9. Clique em Button1 para iniciar a Automatização do Word e efectuar a impressão em série.

Para mais informações, visite o seguinte Web site da MSDN (Microsoft Developer Network): Para mais informações, clique no número de artigo que se segue para visualizar o artigo na Base de Dados de Conhecimento da Microsoft: