Come automatizzare Microsoft Word per eseguire una stampa unione utilizzando Visual c ++ e MFC

Traduzione articoli Traduzione articoli
Identificativo articolo: 220911 - Visualizza i prodotti a cui si riferisce l?articolo.
Espandi tutto | Chiudi tutto

In questa pagina

Sommario

In questo articolo viene illustrato come creare e modificare un documento di Microsoft Word utilizzando l'automazione di Microsoft Visual c ++ e MFC (Microsoft Foundation Classes).

Informazioni

In questo articolo equivale a un articolo che descrive lo stesso processo utilizzando Microsoft Visual Basic. Per ulteriori informazioni sull'automazione di Word da Visual Basic, fare clic sul numero dell'articolo della Microsoft Knowledge Base riportato di seguito riportato:
220607Come automatizzare Microsoft Word per la stampa unione da Visual Basic

Creazione del modello di automazione

  1. Eseguire le operazioni da 1 a 12 nel seguente articolo della Microsoft Knowledge Base:
    178749Come creare un progetto di automazione mediante MFC e una libreria dei tipi
    Nota Nel passaggio 9, è necessario scegliere la libreria di tipo corretto per la versione di Word si sta automatizzando. Vedere la sezione Riferimenti per informazioni sulla ricerca la libreria dei tipi correttamente.
  2. Consente di aggiungere l'istruzione di inclusione del file di intestazione che è stato creato in precedenza (msword8.h, msword9.h o msword.h) in AutoProjectDlg.cpp dopo l'istruzione include di stdafx.h. Ad esempio per Word 97:
       #include "stdafx.h"
       #include "msword8.h"
    					
  3. Aggiungere il codice di automazione al metodo CAutoProjectDlg::OnRun in modo che venga visualizzato come illustrato di seguito:
    void CAutoProjectDlg::OnRun()
    {
    	_Application oWord;
    	Documents oDocs;
    	_Document oDoc;
    	Selection oSelection;
    	Paragraphs oParagraphs;
    	Tables oTables;
    	Table oTable;
    	Range oRange;
    	Columns oColumns;
    	Column oColumn;
    	Rows oRows;
    	Row oRow;
    
    	Cells oCells;
    	Cell oCell; 
    	Shading oShading;
    	Hyperlinks oHyperlinks;
    	MailMerge oMailMerge;
    	MailMergeFields oMailMergeFields;
    	COleVariant vtOptional((long)DISP_E_PARAMNOTFOUND,VT_ERROR),
    		        vtTrue((short)TRUE),
    				vtFalse((short)FALSE);
    	CString StrToAdd;
    
    	// Create an instance of Word
    	if (!oWord.CreateDispatch("Word.Application")) {
    		AfxMessageBox("Word failed to start!");
    	} else {
    	// Set the visible property
    	oWord.SetVisible(TRUE);
    	// Add a new document
    	oDocs = oWord.GetDocuments();
    	oDoc = oDocs.Add(vtOptional,vtOptional);
    
    	CreateMailMergeDataFile(&oWord,&oDoc);
    	// Add the address header
    
    	StrToAdd = "State University\r\nElectrical Engineering " \ 
    		       "Department";
    	oSelection = oWord.GetSelection();
    
    	oParagraphs = oSelection.GetParagraphs();
    	oParagraphs.SetAlignment(1);  // 1 = wdAlignParagraphCenter  
    	oSelection.TypeText(StrToAdd);
    
    	InsertLines(&oSelection,4);
    
    	oParagraphs.SetAlignment(0);  // 0 = wdAlignParagraphLeft
    	oMailMerge = oDoc.GetMailMerge();
    	oMailMergeFields = oMailMerge.GetFields();
    	oMailMergeFields.Add(oSelection.GetRange(),"FirstName");
    	oSelection.TypeText(" ");
    	oMailMergeFields.Add(oSelection.GetRange(),"LastName");
    	oSelection.TypeParagraph();
    	oMailMergeFields.Add(oSelection.GetRange(),"Address");
    	oSelection.TypeParagraph();
    	oMailMergeFields.Add(oSelection.GetRange(),"CityStateZip");
    
    	InsertLines(&oSelection,4);
    	// Set the paragraph alignment to Right justified
    	oParagraphs = oSelection.GetParagraphs();
    
    	oParagraphs.SetAlignment(2);  // 2 = wdAlignParagraphRight
    	// Insert the current date
    	oSelection.InsertDateTime(COleVariant("dddd, MMMM dd, yyyy"),\ 
    		 vtFalse,vtOptional);
    
    	InsertLines(&oSelection,2);
    
    	// Reset the justification to Justify
    
    	oParagraphs = oSelection.GetParagraphs();
    	oParagraphs.SetAlignment(3);  // 3 = wdAlignParagraphJustify
    
    	oSelection.TypeText("Dear ");
    	oMailMergeFields.Add(oSelection.GetRange(),"FirstName");
    	oSelection.TypeText(",");
    
    	InsertLines(&oSelection,2);
    
    	// Add the body of the message
    	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.";
    	oSelection.TypeText(StrToAdd);
    
    	InsertLines(&oSelection,2);
    	
    	// Add a new table with 9 rows and 4 columns
    	oRange = oSelection.GetRange();
    	oTables = oDoc.GetTables();
    	oTable = oTables.Add(oRange,9,4);
    
    	// Set the width of each column
    	oColumns = oTable.GetColumns();
    	oColumn = oColumns.Item(1);
    	oColumn.SetWidth(51.0,0);  // 0 = wdAdjustNone
    	oColumn = oColumns.Item(2);
    	oColumn.SetWidth(198.0,0);  // 0 = wdAdjustNone
    	oColumn = oColumns.Item(3);
    	oColumn.SetWidth(100.0,0);  // 0 = wdAdjustNone
    	oColumn = oColumns.Item(4);
    	oColumn.SetWidth(111.0,0);  // 0 = wdAdjustNone
    
    	// Set the shading for row 1 to wdGray25
    	oRows = oTable.GetRows();
    	oRow = oRows.Item(1);
    	oCells = oRow.GetCells();
    	oShading = oCells.GetShading();
    	oShading.SetBackgroundPatternColorIndex(16); // 16 = wdGray25
    
    	// Turn on BOLD for the first row
    	oRange = oRow.GetRange();
    	oRange.SetBold(TRUE);
    
    	// Set the alignment for cell (1,1) to center
    	oCell = oTable.Cell(1,1);
    	oRange = oCell.GetRange();
    	oParagraphs = oRange.GetParagraphs();
    	oParagraphs.SetAlignment(1);  // 1 = wdAlignParagraphCenter
    
    	// Fill in the class schedule data
    	FillRow(&oTable,1,"Class Number","Class Name",\ 
    		"Class Time","Instructor");	
    	FillRow(&oTable,2, "EE220", "Introduction to Electronics II", \ 
    		"1:00-2:00 M,W,F", "Dr. Jensen");
    	FillRow(&oTable,3, "EE230", "Electromagnetic Field Theory I", \ 
    		"10:00-11:30 T,T", "Dr. Crump");
    	FillRow(&oTable,4, "EE300", "Feedback Control Systems", \ 
    		"9:00-10:00 M,W,F", "Dr. Murdy");
    	FillRow(&oTable,5, "EE325", "Advanced Digital Design", \ 
    		"9:00-10:30 T,T", "Dr. Alley");
    	FillRow(&oTable,6, "EE350", "Advanced Communication Systems", \ 
    		"9:00-10:30 T,T", "Dr. Taylor");
    	FillRow(&oTable,7, "EE400", "Advanced Microwave Theory", \ 
    		"1:00-2:30 T,T", "Dr. Lee");
    	FillRow(&oTable,8, "EE450", "Plasma Theory", \ 
    		"1:00-2:00 M,W,F", "Dr. Davis");
    	FillRow(&oTable,9, "EE500", "Principles of VLSI Design", \ 
    		"3:00-4:00 M,W,F", "Dr. Ellison");
    
    	// Go to the end of the document
    	oSelection.GoTo(COleVariant((short)3), // 3 = wdGoToLine
    	COleVariant((short)-1),vtOptional,vtOptional);  // -1 = wdGoToLast
    
    	InsertLines(&oSelection,2);
    
    	// Add closing text
    	StrToAdd = "For additional information regarding the " \ 
                 "Department of Electrical Engineering, " \ 
                 "you can visit our website at ";
    	oSelection.TypeText(StrToAdd);
    
    	// Add a hyperlink to the homepage
    	oHyperlinks = oSelection.GetHyperlinks();
    	oHyperlinks.Add(oSelection.GetRange(),\ 
    		COleVariant("http://www.ee.stateu.tld"),vtOptional);
    
    	// Finish adding closing text
    	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 (999) " \ 
                 "555-1212.\r\n\r\n" \ 
                 "Sincerely,\r\n\r\n" \ 
                 "Kathryn M. Hinsch\r\n" \ 
                 "Department of Electrical Engineering\r\n";
    	oSelection.TypeText(StrToAdd);
    
    	// Perform mail merge
    	oMailMerge.SetDestination(0); // 0 = wdSendToNewDocument
    	oMailMerge.Execute(vtFalse);
    
    	// Close the original form document
    	oDoc.SetSaved(TRUE);
    	oDoc.Close(vtFalse,vtOptional,vtOptional);
      
    	}
    }
    					
  4. Inserire il codice sopra riportato di seguito nel codice assegnato nel passaggio 3:
    void InsertLines(Selection *pSelection, int NumLines)
    {
    	int iCount;
    
    	// Insert NumLines blank lines
    	for (iCount = 1; iCount <= NumLines; iCount++)
    		pSelection->TypeParagraph();
    }
    
    void FillRow(Table *pTable,int Row, CString Text1, 
    			 CString Text2, CString Text3, CString Text4)
    {
    	Cell oCell;
    	Range oRange;
    
    	// Insert data into the specific cell
    	oCell = pTable->Cell(Row,1);
    	oRange = oCell.GetRange();
    	oRange.InsertAfter(Text1);
    	oCell = pTable->Cell(Row,2);
    	oRange = oCell.GetRange();
    	oRange.InsertAfter(Text2);
    	oCell = pTable->Cell(Row,3);
    	oRange = oCell.GetRange();
    	oRange.InsertAfter(Text3);
    	oCell = pTable->Cell(Row,4);
    	oRange = oCell.GetRange();
    	oRange.InsertAfter(Text4);
    
    }
    
    void CreateMailMergeDataFile(_Application *pApp,_Document *pDoc)
    {
      _Document oDataDoc;
      MailMerge oMailMerge;
      Documents oDocs;
      Tables oTables;
      Table oTable;
      Rows oRows;
      int iCount;
      COleVariant vtOptional((long)DISP_E_PARAMNOTFOUND,VT_ERROR),
    				vtFalse((short)FALSE);
      
      // Create a data source at C:\DataDoc.doc containing the field data
      oMailMerge = pDoc->GetMailMerge();
      oMailMerge.CreateDataSource(COleVariant("C:\\DataDoc.doc"), \ 
            vtOptional,vtOptional, \ 
            COleVariant("FirstName, LastName, Address,CityStateZip"),\ 
            vtOptional, vtOptional,vtOptional,vtOptional,vtOptional);
      // Open the file to insert data
      oDocs = pApp->GetDocuments();
      oDataDoc = oDocs.Open(COleVariant("C:\\DataDoc.doc"), \ 
           vtOptional,vtOptional,vtOptional,vtOptional,\ 
           vtOptional,vtOptional,vtOptional,vtOptional,\ 
           vtOptional);
      oTables = oDataDoc.GetTables();
      oTable = oTables.Item(1);
      oRows = oTable.GetRows();
      for (iCount=1; iCount<=2; iCount++)  
        oRows.Add(vtOptional);
    
      // Fill in the data
      FillRow(&oTable, 2, "Steve", "DeBroux", \ 
            "4567 Main Street", "Buffalo, NY  98052");
      FillRow(&oTable, 3, "Jan", "Miksovsky", \ 
            "1234 5th Street", "Charlotte, NC  98765");
      FillRow(&oTable, 4, "Brian", "Valentine", \ 
            "12348 78th Street  Apt. 214", "Lubbock, TX  25874");
      // Save and close the file
      oDataDoc.Save();
      oDataDoc.Close(vtFalse,vtOptional,vtOptional);
    }
    					
  5. Compilare ed eseguire il programma. Fare clic sul pulsante Esegui e verrà necessario avviare e visualizzare una lettera di esempio. Si noti che alcuni metodi sono stati modificati con Word 2000 e Word 2002. Per ulteriori informazioni su queste modifiche, vedere la sezione "Riferimenti".

Riferimenti

Note per l'automazione di Microsoft Word 2000 e Microsoft Word 2002

Per Microsoft Word 2000 e Microsoft Word 2002 stata cambiata alcuni metodi e proprietà. Per ulteriori informazioni su come utilizzare il codice di esempio in questo articolo insieme con la libreria dei tipi di Word, fare clic sul numero dell'articolo della Microsoft Knowledge Base riportato di seguito riportato:
224925Le librerie dei tipi per Office potrebbero cambiare con la nuova versione
Per ulteriori informazioni sull'automazione di Office, visitare il sito del supporto di Microsoft Office Development al:
http://support.microsoft.com/ofd

Proprietà

Identificativo articolo: 220911 - Ultima modifica: lunedì 14 maggio 2007 - Revisione: 3.2
Le informazioni in questo articolo si applicano a:
  • Microsoft Visual C++ 5.0 Enterprise Edition
  • Microsoft Visual C++ 6.0 Enterprise Edition
  • Microsoft Visual C++ 5.0 Professional Edition
  • Microsoft Visual C++ 6.0 Professional Edition
  • Microsoft Visual C++, 32-bit Learning Edition 6.0
  • Microsoft Office Word 2007
  • Microsoft Office Word 2003
  • Microsoft Word 2002 Standard Edition
  • Microsoft Word 2000 Standard Edition
  • Microsoft Word 97 Standard Edition
Chiavi: 
kbmt kbautomation kbhowto KB220911 KbMtit
Traduzione automatica articoli
Il presente articolo è stato tradotto tramite il software di traduzione automatica di Microsoft e non da una persona. Microsoft offre sia articoli tradotti da persone fisiche sia articoli tradotti automaticamente da un software, in modo da rendere disponibili tutti gli articoli presenti nella nostra Knowledge Base nella lingua madre dell?utente. Tuttavia, un articolo tradotto in modo automatico non è sempre perfetto. Potrebbe contenere errori di sintassi, di grammatica o di utilizzo dei vocaboli, più o meno allo stesso modo di come una persona straniera potrebbe commettere degli errori parlando una lingua che non è la sua. Microsoft non è responsabile di alcuna imprecisione, errore o danno cagionato da qualsiasi traduzione non corretta dei contenuti o dell?utilizzo degli stessi fatto dai propri clienti. Microsoft, inoltre, aggiorna frequentemente il software di traduzione automatica.
Clicca qui per visualizzare la versione originale in inglese dell?articolo: 220911
LE INFORMAZIONI CONTENUTE NELLA MICROSOFT KNOWLEDGE BASE SONO FORNITE SENZA GARANZIA DI ALCUN TIPO, IMPLICITA OD ESPLICITA, COMPRESA QUELLA RIGUARDO ALLA COMMERCIALIZZAZIONE E/O COMPATIBILITA' IN IMPIEGHI PARTICOLARI. L'UTENTE SI ASSUME L'INTERA RESPONSABILITA' PER L'UTILIZZO DI QUESTE INFORMAZIONI. IN NESSUN CASO MICROSOFT CORPORATION E I SUOI FORNITORI SI RENDONO RESPONSABILI PER DANNI DIRETTI, INDIRETTI O ACCIDENTALI CHE POSSANO PROVOCARE PERDITA DI DENARO O DI DATI, ANCHE SE MICROSOFT O I SUOI FORNITORI FOSSERO STATI AVVISATI. IL DOCUMENTO PUO' ESSERE COPIATO E DISTRIBUITO ALLE SEGUENTI CONDIZIONI: 1) IL TESTO DEVE ESSERE COPIATO INTEGRALMENTE E TUTTE LE PAGINE DEVONO ESSERE INCLUSE. 2) I PROGRAMMI SE PRESENTI, DEVONO ESSERE COPIATI SENZA MODIFICHE, 3) IL DOCUMENTO DEVE ESSERE DISTRIBUITO INTERAMENTE IN OGNI SUA PARTE. 4) IL DOCUMENTO NON PUO' ESSERE DISTRIBUITO A SCOPO DI LUCRO.

Invia suggerimenti

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com