2.2.3Скрин
2.3.1Постановка задачи
Программа вывода таблицы средствами MS Word
2.3.2Листинг
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;
namespace WindowsFormsApplication1
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}
private void Form1_Load(object sender, EventArgs e)
{
// В меню Project укажем команду Add Reference и в узле
// Assemblies выберем пункт Extensions, в появившемся списке
// отметим ссылку Microsoft.Office.Interop.Word.
button1.Text = "Пуск"; base.Text = "Поcтроение таблицы";
}
private void button1_Click(object sender, EventArgs e)
{
// Инициализируем два строковых массива:
String[] Имена = {
"Предмет", "Гутов", "Косачев",
"Аухадеев", "Избакиев",
"Бухтин", "Мирзабаев",
"Поберей", "Ли"};
String[] Тлф = {
"ООП", "5",
"4", "5", "4",
"5", "4",
"5", "4"};
String[] омт = {
"ОМТ", "5",
"4", "5", "4",
"5", "4",
"5", "4"};
String[] трпо = {
"ТРПО", "5",
"4", "5", "4",
"5", "4",
"5", "4"};
// Создаем новый экземпляр класса Word.Application:
var Ворд1 = new Microsoft.Office.Interop.
Word.Application();
Ворд1.Visible = true;
// Открываем новый документ MS Word:
var Документ = Ворд1.Documents.Add();
// Вводим текст в документ MS WORD с текущей позиции:
// Параметр, указывающий покаывать ли границы ячеек:
var t1 = Microsoft.Office.Interop.
Word.WdDefaultTableBehavior.wdWord9TableBehavior;
// Параметр, указывающий будет ли приложение Word автоматически
// изменять размер ячеек в таблице для подгонки содержимого:
var t2 = Microsoft.Office.Interop.
Word.WdAutoFitBehavior.wdAutoFitContent;
// Создаем таблицу из 9 строк и 2 столбцов:
Ворд1.ActiveDocument.Tables.Add(Ворд1.Selection.Range,
9, 4, t1, t2);
// Заполнять ячейки таблицы можно так:
for (int i = 1; i <= 9; i++)
{
Ворд1.ActiveDocument.Tables[1].Cell(i, 1).
Range.InsertAfter(Имена[i - 1]);
Ворд1.ActiveDocument.Tables[1].Cell(i, 2).
Range.InsertAfter(Тлф[i - 1]);
Ворд1.ActiveDocument.Tables[1].Cell(i, 3).
Range.InsertAfter(омт[i - 1]);
Ворд1.ActiveDocument.Tables[1].Cell(i, 4).
Range.InsertAfter(трпо[i - 1]);
// Программируя на VB мы написали бы:
// Ворд1.ActiveDocument.Tables(1).Cell(i, 2).
// Range.InsertAfter(Тлф(i - 1))
}
// Назначаем единицы измерения в документе приложения MS Word:
var t3 = Microsoft.Office.Interop.Word.WdUnits.wdLine;
// Параметр, указывающий на девятую строку в документе MS Word:
var Строка9 = 9;
Ворд1.Selection.MoveDown(t3, Строка9, null);
}
}
}