gn="justify">} int LichId; int StragId; int AwzId;. Application wordApp;. Document wordDoc;. Application ExcelApp;// Об'єкт пріложенія.Window ExcelWindow;// Об'єкт вікна Excel.Workbook WorkBook;// Об'єкт робочої кнігі.Sheets ExcelSheets;// Набір аркушів Excel.Worksheet WorkSheet;// Об'єкт робочого ліста.Range range;// Діапазон ячеекvoid OpenExcelDocument (string FileName)
{
/ / створити новий об'єкт докладання Excel=new Excel.Application ();
/ / задати файл шаблонаtemplate=Application.StartupPath + @" reports " + FileName;
/ / застосувати шаблон.Workbooks.Add (template);
/ / отримати першу робочу книгу файлу=ExcelApp.Workbooks [1];
/ / отримати список листів робочої книги=WorkBook.Worksheets;
/ / вибрати перший лист=(Excel.Worksheet) ExcelSheets.get_Item (1);
} void PutCell (string cell, string val)
{
/ / отримати діапазон, відповідний вибраній комірці=WorkSheet.get_Range (cell, Type.Missing);
/ / занести в клітинку значеніе.Value2=val;
} void PutCellBorder (string cell, string val)
{
/ / викликати функцію занесення в комірку значення (cell, val);
/ / намалювати кордон навколо ячейкі.BorderAround (Excel.XlLineStyle.xlContinuous, Excel.XlBorderWeight.xlThin, Excel.XlColorIndex.xlColorIndexAutomatic, Type.Missing);
} void OpenDocument (string FileName)
{
/ / відкриваємо Word=new Word.Application ();
/ / створюємо документ на основі шаблонаtemplate=Application.StartupPath + @" docs " + FileName; newTemplate=false;
Object documentType=Word.WdNewDocumentType.wdNewBlankDocument;
Object visible=true;
/ / додаємо документ в список документів додатка=wordApp.Documents.Add (ref template, ref newTemplate, ref documentType, ref visible);
} void ReplaceText (string word, string repl)
{
/ / Зміщуємо виділення до початку документаunit=Word.WdUnits.wdStory; extend=Word.WdMovementType.wdMove;. Selection.HomeKey (ref unit, ref extend);
/ / створюємо об'єкт Find для пошуку текста.Find fnd=wordApp.Selection.Find;
/ / очищаємо його настройкі.ClearFormatting ();
/ / задаємо текст для поіска.Text=word;
/ / очищаємо настройки для замени.Replacement.ClearFormatting ();
/ / задаємо текст для замени.Replacement.Text=repl;
/ / запускаємо процес пошуку і заміни (fnd);
} Boolean ExecuteReplace (Word.Find find)
{ExecuteReplace (find, Word.WdReplace.wdReplaceAll);
} Boolean ExecuteReplace (Word.Find find, Object replaceOption)
{findText=Type.Missing; matchCase=Type.Missing; matchWholeWord=Type.Missing; matchWildcards=Type.Missing; matchSoundsLike=Type.Missing; matchAllWordForms=Type.Missing; forward=Type.Missing ; wrap=Type.Missing; format=Type.Missing; replaceWith=Type.Missing; replace=replaceO...
