Автоматизация слияния в Microsoft Word с помощью Visual C++ и MFC

  • Статья
  • Применяется к:
    Microsoft Word

Аннотация

В этой статье показано, как создавать документы Microsoft Word и управлять ними с помощью автоматизации из Microsoft Visual C++ и Microsoft Foundation Classes (MFC).

Дополнительная информация

В этой статье приводится параллельная статья базы знаний Майкрософт, в котором описывается тот же процесс с помощью Microsoft Visual Basic.

Создание примера автоматизации

  1. В Microsoft Developer Studio запустите новый проект MFC AppWizard (exe)" с именем AutoProject.

  2. На шаге 1 приложения MFC AppWizard выберите "Dialog Based" (Диалоговое окно на основе) для типа приложения и нажмите кнопку "Готово".

    Появится диалоговое окно "Сведения о новом проекте" со сведениями о создаваемых классах:

    Application: CAutoProjectApp in AutoProject.h and AutoProject.cpp
Dialog: CAutoProjectDlg in AutoProject.h and AutoProjectDlg.cpp

    Нажмите кнопку "ОК", чтобы создать проект.

  3. Диалоговое окно "IDD_AUTOPROJECT_DIALOG" откроется в области конструктора и редактирования Visual Studio. Измените его в соответствии с инструкциями в следующих двух шагах.

  4. Удалите элемент управления Label (IDC_STATIC) и кнопку "Отмена" (IDCANCEL).

  5. Измените имя кнопки "ОК" на "IDRUN", а заголовок — на "Выполнить". Закройте форму конструктора диалогового окна AutoProject.rc.

  6. Щелкните ClassWizard в меню "Вид" (или нажмите клавиши CTRL+W).

  7. Выберите вкладку "Карты сообщений". Выберите IDRUN в списке идентификаторов объектов и BN_CLICKED в списке "Сообщения". Нажмите кнопку "Добавить функцию" и примите имя функции "OnRun". Нажмите кнопку "ОК", чтобы закрыть ClassWizard.

    ПРИМЕЧАНИЕ:** Этот шаг добавляет объявление для члена функции "OnRun();" в файл заголовка с именем AutoProjectDLG.h. На этом шаге также добавляется пустая функция обработчика сообщений с именем CAutoProjectDlg::OnRun() в файл с именем AutoProjectDLG.cpp.

  8. Щелкните ClassWizard в меню "Вид" (или нажмите клавиши CTRL+W).

  9. Перейдите на вкладку "Автоматизация". Нажмите кнопку "Добавить класс" и выберите "Из библиотеки типов". Перейдите к выбору библиотеки объектов для приложения, которое нужно автоматизировать (в этом примере при автоматизации Excel 97 выберите библиотеку объектов Microsoft Excel 8.0; расположение по умолчанию — C:\Program Files\Microsoft Office\Office\Excel8.olb).

    Если вы автоматизируете Microsoft Excel 2000, выберите объектную библиотеку Microsoft Excel 9.0, для которой по умолчанию используется папка C:\Program Files\Microsoft Office\Office\Excel9.olb.

    При автоматизации Microsoft Excel 2002 и Microsoft Office Excel 2003 библиотека объектов внедряется в файл Excel.exe. По умолчанию для Excel.exe Office 2002 используется папка C:\program Files\Microsoft Office\Office10\Excel.exe. По умолчанию для Excel.exe Office 2003 используется папка C:\program Files\Microsoft Office\Office11\Excel.exe. Выбрав соответствующую библиотеку объектов, нажмите кнопку "Открыть". Выберите все классы в списке "Подтверждение классов" и нажмите кнопку "ОК".

    ПРИМЕЧАНИЕ Список в диалоговом окне "Подтверждение классов" содержит все интерфейсы IDispatch (которые практически идентичны классам) в библиотеке типов Microsoft Excel. В нижней части диалогового окна вы увидите, что файл реализации с именем Excel8.cpp содержит созданные оболочки класса, производные от SimonDispatchDriver(), а соответствующий файл заголовка объявления называется Excel8.h. (Для Excel 2002 и Excel 2003 файлы имеют имена Excel.cpp и Excel.h.)

    Примечание Выберите правильную библиотеку типов для версии Word, которую вы автоматизируете. Сведения о поиске правильной библиотеки типов см. в разделе ссылок ниже.

  10. Нажмите кнопку "ОК", чтобы закрыть диалоговое окно MFC ClassWizard.

  11. Добавьте следующий код в функцию CAutoProjectApp::InitInstance(), которая загружает и включает библиотеку служб COM:

    BOOL CAutoProjectApp::InitInstance()
  {
     if(!AfxOleInit())  // Your addition starts here
     {
        AfxMessageBox("Could not initialize COM dll");
        return FALSE;
     }                 // End of your addition

     AfxEnableControlContainer();
  .
  .
  .

  }

  12. Добавьте следующую строку в #include в верхней части файла программы AutoProject.cpp:

      #include <afxdisp.h>

  13. Добавьте инструкцию include для файла заголовка, созданного выше (msword8.h, msword9.h или msword.h) в autoProjectDlg.cpp после инструкции include для stdafx.h. Пример для Word 97:

       #include "stdafx.h"
   #include "msword8.h"

  14. Добавьте код автоматизации в метод CAutoProjectDlg::OnRun, чтобы он отображался, как показано ниже:

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

}
}

  15. Вставьте приведенный выше код в код, указанный на шаге 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);
}

  16. Скомпилировать и запустить программу. Нажмите кнопку " Выполнить", и Microsoft Word запустится и отобразит пример буквы. Обратите внимание, что некоторые методы изменились в Word 2000 и Word 2002. Дополнительные сведения об этих изменениях см. в разделе "Ссылки".

Ссылки

Заметки об автоматизации Microsoft Word 2000 и Microsoft Word 2002

Некоторые методы и свойства были изменены для Microsoft Word 2000 и Microsoft Word 2002.

Дополнительные сведения об автоматизации Office см. на сайте поддержки microsoft Office Development по адресу: служба поддержки Майкрософт