1 Частина

Створимо новий проект

Розташуємо на формі кнопку

Додамо до проекту наступну бібліотеку

Створимо нову форму, на формі розташуємо наступний компонент

Для форми створимо обробники подій

#pragma endregion

private: System::Void Form_pp_Load(System::Object^ sender, System::EventArgs^ e) {

textBox1->Clear(); button1->Text = "Проверка орфографии";

textBox1->TabIndex = 0; button1->TabIndex = 1;

}

private: System::Void button1_Click(System::Object^ sender, System::EventArgs^ e) {

Microsoft::Office::Interop::Word::Application^ Ворд1 =gcnew Microsoft::Office::Interop::Word::Application();

Ворд1->Visible = false;

System::Object^ t = Type::Missing;

// Открываем новый документ

Ворд1->Documents->Add(t, t, t, t);

// Копируем содержимое текстового окна в документ

Ворд1->Selection->default = textBox1->Text;

// Проверка орфографии:

Ворд1->ActiveDocument->

CheckSpelling(t, t, t, t, t, t, t, t, t, t, t, t);

// Копируем результат назад в текстовое поле

textBox1->Text = Ворд1->Selection->default;

System::Object ^ tt = nullptr;

Ворд1->Documents->Close(tt, t,t);

// Закрыть документ Word без сохранения:

Ворд1->Visible=false;

Ворд1 = nullptr;

}

Повернемося до першої форми. До першої форми підключимо другу форму. Для події клацання на кнопці створимо обробник для відкриття другої форми

Запустимо прикладення. Якщо клацнемо на кнопці

Завершимо роботу із програмою.

2 Частина

Розташуємо на формі кнопку

Створимо нову форму та розташуємо наступні компоненти

Для форми створимо обробники подій

#pragma endregion

private: System::Void Form_t_Load(System::Object^ sender, System::EventArgs^ e) {

button1->Text = "Пуск"; this->Text = "Поcтроение таблицы";

}

private: System::Void button1_Click(System::Object^ sender, System::EventArgs^ e) {

// Инициализируем два строковых массива:

array<String^> ^ Imena = {"Андрей - раб", "Света-X", "ЖЭК",

"Справка по тел", "Александр Степанович",

"Мама - дом", "Карапузова Таня",

"Погода сегодня", "Театр Браво"};

array<String^> ^ Tel = {"274-88-17", "+38(067)7030356",

"22-345-72", "009", "223-67-67 доп 32-67",

"570-38-76", "201-72-23-прямой моб",

"001", "216-40-22"};

// Создаем новый экземпляр класса Word::_Application:

Microsoft::Office::Interop::Word::Application^ Ворд1 =gcnew Microsoft::Office::Interop::Word::Application();

Ворд1->Visible = true;

// Перменная с "пустым" значением:

System::Object^ t = Type::Missing;

// Открываем новый документ MS Word:

Ворд1->Documents->Add(t, t, t, t);

// Вводим текст в документ MS WORD с текущей позиции:

Ворд1->Selection->TypeText("ТАБЛИЦА ТЕЛЕФОНОВ");

// Параметр, указывающий покаывать ли границы ячеек:

System::Object ^ t1 = Microsoft::Office::Interop::Word::WdDefaultTableBehavior::wdWord9TableBehavior;

// Параметр, указывающий будет ли приложение Word автоматически

// изменять размер ячеек в таблице для подгонки содержимого:

System::Object ^ t2 = Microsoft::Office::Interop::Word::WdAutoFitBehavior::wdAutoFitContent;

// Создаем таблицу из 9 строк и 2 столбцов:

Ворд1->ActiveDocument->Tables->Add(Ворд1->Selection->Range,9, 2, t1, t2);

// Заполнять ячейки таблицы можно так:

for (int i = 1; i <= 9; i++)

{

Ворд1->ActiveDocument->Tables[1]->Cell(i, 1)->

default->InsertAfter(Imena[i - 1]);

Ворд1->ActiveDocument->Tables[1]->Cell(i, 2)->

default->InsertAfter(Tel[i - 1]);

// Программируя на C# мы написали бы:

// Ворд1.ActiveDocument.Tables[1].Cell(i, 2).

// Range.InsertAfter(Tel[i - 1]);

}

// Назначаем единицы измерения в документе приложения MS Word:

Object ^ t3 = Microsoft::Office::Interop::Word::WdUnits::wdLine;

// Параметр, указывающий на девятую строку в документе MS Word:

Object ^ строка9 = 9;

// Перевести текущую позицию (Selection) за пределы таблицы,

// (в девятую строку), чтобы здесь вывести какой-либо текст:

Ворд1->Selection->MoveDown(t3, строка9, t);

// И здесь печатаем следующий текст:

Ворд1->Selection->TypeText("Какой-либо текст после таблицы");

// Сохранять документ нет смысла, но это решит пользователь:

// Object ^ ИмяФайла = "C:\\a.doc";

// Ворд1->ActiveDocument->SaveAs(ИмяФайла, t, t, t, t, t,

// t, t, t, t, t, t, t, t, t, t);

}

Повернемося до першої форми. До першої форми підключимо нову форму. Для події клацання на кнопці створимо обробник для відкриття нової форми

Запустимо прикладення. Якщо клацнемо на кнопці

Завершимо роботу із програмою.