Перейдём к практике
На основе коротких кодов покажу работу с компанентой на практике. Примеры буду приводить к Word2000 и выше:
Соединиться с Сервером Word
Тут можно использовать два способа:
1.| Код | ...
procedure TForm1.Button1Click(Sender: TObject);
...
WordApplication1.ConnectKind := ckNewInstance;
WordApplication1.Connect;
WordApplication1.AutoQuit := true;
... |
2. | Код | ...
procedure TForm1.Button1Click(Sender: TObject);
...
WordApplication1.ConnectKind := ckNewInstance;
WordApplication1.AutoConnect:=true;
WordApplication1.AutoQuit := true;
... |
с данной компанентой оба работают на ура.
Открыть документ
| Код | ...
var
fil:OleVariant;
...
fil:='C:\мои документы\тест.doc';
WordApplication1.Documents.OpenOld(fil,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam);
...
|
Установка параметров страницы (листа)
| Код |
...
// книжная ориентация
WordApplication1.ActiveDocument.PageSetup.Orientation:=wdOrientPortrait;
// поля
WordApplication1.Selection.PageSetup.LeftMargin:=72.0; //~2.5 см
...
|
Установка Абзац - интервал
| Код |
...
D:=wdCollapseEnd;// для перемешения курсора в конец при снятии выделения
// вставляем текст
WordApplication1.Selection.InsertAfter('текст'+#13);
// соединяемся с сервером формата
WordParagraphFormat1.ConnectTo(WordApplication1.Selection.ParagraphFormat);
// интервал перед абзацем
WordParagraphFormat1.SpaceBefore:=40;
// интервал после абзаца
WordParagraphFormat1.LineSpacing:=40;
// снимаем выделение
WordApplication1.Selection.Collapse(D);
...
|
Форматирование текста в документе
| Код |
...
D:=wdCollapseEnd;// для перемешения курсора в конец при снятии выделения
// вставляем текст
WordApplication1.Selection.InsertAfter('текст'+#13);
// соединяемся с сервером шрифта
WordFont1.ConnectTo(WordApplication1.Selection.Font);
// устанавливаем размер шрифра
WordFont1.Size:=14;
// жирный
WordFont1.Bold:=1;
// курсив
WordFont1.Italic := 1;
// соединяемся с сервером формата
WordParagraphFormat1.ConnectTo(WordApplication1.Selection.ParagraphFormat);
//отступ первый (абзац)
WordParagraphFormat1.FirstLineIndent:=35;
// текст по ширине
WordParagraphFormat1.Alignment := wdAlignParagraphJustify;
// снимаем выделение
WordApplication1.Selection.Collapse(D);
...
|
Вставить текст после таблицы
Этот участок кода размещаю, т.к. если мы вставим таблицу, то курсор будет находиться в ней. И обычные попытки вставить текст приведут к тому, что он будет вставляться в первую ячейку таблицы.
Здесь тоже существует множество вариантов, приведу один из них. Остальные буду размещать отдельно с припиской, что можно использовать для этого же.
| Код |
...
Con:=7;
// Перемещяем курсор из таблицы
WordApplication1.Selection.MoveDown(EmptyParam,Con,EmptyParam);
// вставляем текст
WordApplication1.Selection.InsertAfter('текст '+#13);
// снимаем выделение
WordApplication1.Selection.Collapse(D);
...
|
где Con : OleVariant; - количество строк в таблице +1;
Добавляем новый параграф
| Код |
...
WordApplication1.ActiveDocument.Paragraphs.Add(EmptyParam);
...
|
Этот же код можно применять для вставки текса после таблицы.
Работа с Колонтитулом
| Код |
...
// переходим на нижний колонтитул
WordApplication1.ActiveWindow.ActivePane.View.SeekView:=wdSeekCurrentPageFooter;
// вставляем текст
WordApplication1.Selection.InsertAfter('Текст');
// снимаем выделение
WordApplication1.Selection.Collapse(D);
// переходим с колонтитула на документ
WordApplication1.ActiveWindow.ActivePane.View.SeekView:=wdSeekMainDocument;
...
|
Колонтитулы бывают верхний/нижний, а также если вставляется новый раздел на новой странице, то можно установить верхний N раздел/нижний N раздел, дополнительная опция - "как в предыдущем разделе". Её можно отключать. Как вставить новую станицу смотрите ниже.
Нарисовать квадрат
| Код |
...
WordApplication1.ActiveDocument.Shapes.AddShape(1 ,3.3, 788.00, 600.00, 42.10, EmptyParam).Select(EmptyParam);
...
|
где 788.00 и 3.3 координаты верхнего левого угла;
600.00 и 42.00 ширина и высота соответственно
координаты и остальные параметры не в миллиметрах. Метод для использования сантиметровых параметров приведу ниже.
Форматирование нарисованного квадрата
| Код |
...
// цвет заливки белый
WordApplication1.Selection.ShapeRange.Fill.ForeColor.RGB:=$FFFFFF;
// цвет линий белый
WordApplication1.Selection.ShapeRange.Line.ForeColor.RGB:=$FFFFFF;
...
|
Вставить файл
| Код |
...
WordApplication1.Selection.InsertFile(Filename,emptyparam,emptyparam,emptyparam, emptyparam);
...
|
Написать текст по вертикали
текст по вертикали можно сделать только в таблице, ну и т.п.
(по крайней мере у меня ворд по другому не поддерживает...)
итак, делаем таблицу, вставляем текст, прежде чем снять выделение - пишем:
| Код |
...
// текст по вертикали - снизу вверх
WordApplication1.Selection.Orientation:=wdTextOrientationUpward;
...
|
или
| Код |
...
// текст по вертикали - сверху вниз
WordApplication1.Selection.Orientation:=wdTextOrientationDownward;
...
|
Вставить новую страницу
| Код |
...
// вставить новую страницу
WordApplication1.Selection.InsertBreak(EmptyParam);
...
|
Вставить рисунок
| Код |
...
WordApplication1.Selection.InlineShapes.AddPicture('C:\Documents and Settings\зима.jpg',EmptyParam,EmptyParam,EmptyParam);
...
|
2,3,4 - параметры отвечают за координаты и размер рисунка
Вставка и Форматирование созданной таблицы
| Код |
...
// вставляем таблицу
R1:=WordApplication1.Selection.Range;
Tbl :=R1.Tables.Add(R1,6,5,EmptyParam,EmptyParam);
// форматируем таблицу
// первый столбец
Tbl.Columns.Item(1).SetWidth(72,wdAdjustNone);
// второй и т.д.
Tbl.Columns.Item(2).SetWidth(99,wdAdjustNone);
Tbl.Columns.Item(3).SetWidth(112,wdAdjustNone);
Tbl.Columns.Item(4).SetWidth(112,wdAdjustNone);
Tbl.Columns.Item(5).SetWidth(112,wdAdjustNone);
...
|
по аналогии и со строчками
Выделить всю строку в документе
| Код |
...
var L, E: OleVariant;
begin
L:=wdLine;
E:=wdExtend;
// в конец строки
WordApplication1.Selection.EndKey(L,E);
// в начало строки
WordApplication1.Selection.HomeKey(L,E);
...
|
Скопировать выделенное и вставить
Скопировать
| Код |
...
WordApplication1.Selection.Copy;
...
|
вставить
| Код |
...
WordApplication1.Selection.PasteAndFormat(wdPasteDefault);
...
|
можно ставить EmptyParam
Переместиться в конец текста
| Код |
...
var L: OleVariant;
begin
L:=wdStory;
// в конец текста
WordApplication1.Selection.EndKey(L,EmptyParam);
...
|
Этот же код можно применять для вставки текса после таблицы.
Выделить строку в таблице
| Код |
...
WordApplication1.Selection.SelectRow;
...
|
можно для выделения в таблице пользоваться командой
| Код |
...
WordApplication1.Selection.EndKey(L,E);
...
|
но, она будет выделять по ячейке, следовательно надо будет её применять столько раз сколько у вас столбцов, что не есть хорошо.
Параметры выставлять в сантиметрах
| Код |
...
WordApplication1.Selection.PageSetup.LeftMargin:=WordApplication1.CentimetersToPoints(1.5);
...
|
команда выставит левое поле 1,5 см
Межстрочный интервал
Устанавливается:
| Код |
...
WordParagraphFormat1.LineSpacing:=20.00;
...
|
Узнать межстрочный интервал:
| Код |
...
Label1.Caption:=FloatToStrF(WordParagraphFormat1.LineSpacing,ffNumber,5,2);
...
|
Рисование линии в документе
Линию можно нарисовать:
| Код |
...
WordApplication1.ActiveDocument.Shapes.AddLine(300.0,300.0,500.0,500.0,EmptyParam);
...
|
где первые два параметра X,Y - начала линии, вторые два пораметра X,Y - конца линии, последний так и ставьте, обозначает тип линии (пунктир и т.д.)
пример нарисует линию поперёк,
| Код |
...
WordApplication1.ActiveDocument.Shapes.AddLine(300.0,300.0,300.0,700.0,EmptyParam);
...
|
этот вертикальную
| Код |
...
WordApplication1.ActiveDocument.Shapes.AddLine(300.0,300.0,500.0,300.0,EmptyParam);
...
|
этот горизонтальную
| Код |
...
WordApplication1.ActiveDocument.Shapes.AddLine(30.0,300.0,580.0,300.0,EmptyParam);
...
|
и этот тоже, но будет шире.
Также можно устанавливать длину линии. делается это так:
| Код |
...
var lint:Shape;
.....
lint:=WordApplication1.ActiveDocument.Shapes.AddLine(30.0,300.0,580.0,300.0,EmptyParam);
lint.Width:=500.0;
....
|
следующая команда определит смещение по оси Y конца линии:
| Код |
...
var lint:Shape;
.....
lint:=WordApplication1.ActiveDocument.Shapes.AddLine(30.0,300.0,580.0,300.0,EmptyParam);
lint.Height:=10.0;
....
|
напоминаю, что отсчёт идет от верхнего левого угла
Установить толщину линии можно командой:
| Код |
...
var lint:Shape;
.....
lint:=WordApplication1.ActiveDocument.Shapes.AddLine(30.0,300.0,580.0,300.0,EmptyParam);
lint.Line.Weight:=5.0;
....
|
Перейти на нужную страницу
| Код |
....
var What, Which, Name : OleVariant;
....
What:=wdGoToPage;
Which:=wdGoToNext;
Name:='2';
WordApplication1.Selection.GoTo_(What, Which, EmptyParam, Name);
....
|
сразу попадаем на страницу '2'...
ещё вариант перехода между страницами
| Код |
...
WordApplication1.Browser.Next;
...
|
Количество абзацев в выделенном фрагменте
| Код |
...
col:=WordApplication1.Selection.Sentences.Count;
...
|
Количество строк в выделенном фрагменте
| Код |
...
StartLine:=WS.Information[wdFirstCharacterLineNumber];
WS.EndKey(wdStory);
EndLine:=WS.Information[wdFirstCharacterLineNumber];
CountLine:=EndLine-StartLine;
...
|
Повторять первую строку таблицы на каждой странице как заголовок
| Код |
...
R1:=WordApplication1.Selection.Range;
d:=wdAutoFitContent;
Tbl :=R1.Tables.Add(R1,6,9,EmptyParam,d);
// ответ на вопрос
Тbl.Rows.Item(1).HeadingFormat:=-1;
...
|
Стиль границ таблицы
В Word 2003 создаваемые таблицы по умолчанию имеют прозрачные границы ячеек. Следовательно если нам нужна не прозрачная, необходимо установить нужный нам стиль. Итак устанавливаем стиль границ таблицы:
| Код |
...
R1:=WordApplication1.Selection.Range;
Tbl :=R1.Tables.Add(R1,7,9,EmptyParam,d);
// устанавливаем стиль внутренних границ
Tbl.Borders.InsideLineStyle:=wdLineStyleSingle;
// устанавливаем стиль внешних границ
Tbl.Borders.OutsideLineStyle:=wdLineStyleSingle;
...
|
Автонумерация строк
| Код |
...
WordApplication1.Selection.Range.ListFormat.ApplyNumberDefault(SaveChanges);
...
|
можно сразу устанавливать отступ слева для данной функции:
| Код |
...
WordApplication1.Selection.Range.ListFormat.ListTemplate.ListLevels.Item(1).NumberPosition:=WordApplication1.CentimetersToPoints(0.2);
...
|
Доступ к таблице в Ворде
Присоединиться к таблице в ворде (если мы не создавали её, но знаем, что она есть):
| Код |
...
var
Tbl: Table;
...
...
tbl:=WordApplication1.ActiveDocument.Tables.Item(1);
...
|
теперь спокойно работаем с таблицей через переменную tbl
Считать из ячейки таблицы текст:
| Код |
...
S:=Tbl.Cell(1, 1).Range.Text;
...
|
S:String или WideString.
По аналогии происходит и занесение текста.
Количество таблиц в документе и количество сток и слобцов
Количество таблиц в документе:
| Код |
...
col:=WordApplication1.ActiveDocument.Tables.Count;
...
|
Количество строк и столбцов в таблице:
| Код |
...
var
Tbl: Table;
c,r:integer;
...
Tbl:=WordApplication1.ActiveDocument.Tables.Item(1);
...
// количество строк
r:=tbl.Rows.Count;
// количество солбцов
c:=tbl.Columns.Count;
...
|
Ещё вариант по работе с таблицей
Мы можем столкнуться с небольшой проблемой, допутим мы хотим записать таблицу в большое количество строк и соответственно работать такое будет долго, как же можно ускорить этот процесс? Во первых заметное в данном случае ускорение мы получим если:
| Код | ...
WordApplication1.Visible:=true;
... |
мы поставим в конце кода, а не в начале.
Во-вторых ускорение будет если за разовое обращение мы будем заносить максимально возможное количество текста:
| Код | ...
WordApplication1.Selection.InsertAfter(Memo1.Text+#13);
... |
но с таблицей на первый взгляд такой вариант не подойдёт, но это только на первый взгляд, т.к. занёсённый текст межно преобразовать в таблицу, к примеру:
| Код | ...
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
s:WideString;
separat:String; // используемый сепаратор как разделитель в тексте по столбцам
d, separatOV, Column:OleVariant;
begin
// инициализируем нужные переменные
D:=wdCollapseEnd;
Separat:='@'; // нинициализируем сепаратор, допустим символ '@'
separatOV:=separat;
Column:=3; // инициализируем количество столбцов
s:=''; // обнуляем текстовую переменную
// запускаем ворд
WordApplication1.AutoQuit:=true;
WordApplication1.ConnectKind:=ckNewInstance;
WordApplication1.AutoConnect:=true;
WordApplication1.Documents.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam);
// теперь записываем в переменную текст
for i:=1 to 20 do
begin
// для примера обычный текст, но можно и из БД и других таблиц
s:=s+'Familia'+separat+'Name'+separat+'Adress'+#13;
end;
// вставляем текст
WordApplication1.Selection.InsertAfter(s);
// преобразуем в таблицу
WordApplication1.Selection.ConvertToTableOld(separatOV,EmptyParam,Column,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam);
// снимаем выделение
WordApplication1.Selection.Collapse(D);
// делаем видимым документ
WordApplication1.Visible:=true;
end;
... |
при больших таблицах разница должна быть ощутимая...
Работа с Абзацем (Параграфом)
| Код |
..
WordApplication1.ActiveDocument.Paragraphs....
...
|
т.е. количество параграфов будет:
| Код |
...
col:=WordApplication1.ActiveDocument.Paragraphs.Count;
...
|
Получить доступ к тексту параграфа:
| Код |
...
L:=TStringList.Create;
i:=10;
col:=WordApplication1.ActiveDocument.Paragraphs.Count;
if i<=col then
begin
L.Text:=WordApplication1.ActiveDocument.Paragraphs.Item(i).Range.Text;
...
|
стоит также отметить, что у :
WordApplication1.ActiveDocument.Paragraphs.
есть полезные методы First, Last - первый и последний абзац соответственно:
| Код | ...
WordApplication1.ActiveDocument.Paragraphs.First;
...
WordApplication1.ActiveDocument.Paragraphs.Last;
...
|
теперь немного пояснений:
в строке имеются непечатные символы обозначающие конец абзаца , поэтому когда документ пуст в нем как минимум есть один пустой абзац...
2 (#13#7) символа в таблице, 1 - в обычном тексте (#13), рисунок если вставлен в контейнер "создайте рисунок" идёт как 2 символа (#1#21) и опять же конец абзаца #13, т.е. в абзац можно разместить несколько рисунков или рисунок и текст, тогда полученная строка будет равна : "#1#21ТЕКСТ#13"
таблица представляется в виде нескольких абзацев... приблизительно так:
таблица 2х3
|__абзац__|__абзац__|__абзац__|абзац
|__абзац__|__абзац__|__абзац__|абзац
т.е. последовательность символов #13#7 обозначают конец ячейки, 2 подряд последовательности обозначают конец строки
приблизительно, т.к. в одно ячейке может быть несколько абзацев....
сам ворд если не ошибаюсь абзацы не содержащие текст за обзац не принимает, поэтому если посмотреть статистику, цифры будут отличаться от полученных командой
WordApplication1.ActiveDocument.Paragraphs.Count;
колонтитулы за обзац не принимаются.
Рисунок не вставленный в контейнер "создайте рисунок" как абзац не идет...
Печать документа
| Код | ...
var
Dok: OleVariant;
...
Dok:=WordApplication1.Documents.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam);
...
Dok.PrintOut;
... |
Сохранить как с помощь встроенного в Word диалога
Всё таки я Вас немного обманул... С диалогами я тоже попробовал поработать. Просто это было давно и я забыл. Но вот вдруг код нашёл:
| Код | ...
var dial : OleVariant;
...
dial:= wdDialogFileSaveAs;
WordApplication1.Dialogs.Item(dial).Show(EmptyParam);
... |
Отключить проверку синтаксиса и грамматики
| Код | ...
// Синтаксис
WordApplication1.Options.CheckSpellingAsYuoType:=False;
// Грамматика
WordApplication1.Options.CheckGrammarAsYuoType:=False;
... |
Поиск и замена в документе
Можно пользоваться поиском и заменой имеющимися в Ворде, можно воспользоваться и имеющимися стандартными диалогами, описанными выше, рассмотрим первый вариант:
| Код | ...
var Templ,d,dd,ddd:OleVariant;
Famil:string;
...
Templ:='<ФИО>'; // текст который меняем
D:=wdFindStop ; // найти один раз
DD:=wdReplaceOne ; // замена один раз
DDD:=Famil; // фамилия
WordApplication1.Selection.Find.Execute(Templ,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,D,EmptyParam,
DDD,DD,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
... |
соответственно если курсор находится после заменяемого текста, то его желательно переместить в начало... т.е. допустим у Вас в документе:
| Цитата |
Эксперт: <ФИО>
Контракт: <Номер>
Эксперт: <ФИО>
Контракт: <Номер>
Эксперт: <ФИО>
Контракт: <Номер>
Эксперт: <ФИО>
Контракт: <Номер>
Эксперт: <ФИО>
Контракт: <Номер>
|
и Вам необходимо сделать несколько замен последовательно, то это должно выглядить так:
| Код | ...
var Templ,d,dd,ddd:OleVariant;
Famil:string;
...
// переходим в начало документа
D:=wdStory;
WordApplication1.Selection.HomeKey(D,EmptyParam);
//теперь делаем замены, допустим так:
Templ:='<ФИО>'; // текст который меняем
D:=wdFindStop ; // найти один раз
DD:=wdReplaceOne ; // замена один раз
DDD:=Famil; // фамилия
WordApplication1.Selection.Find.Execute(Templ,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,D,EmptyParam,
DDD,DD,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
...
DDD:=Famil; // фамилия
WordApplication1.Selection.Find.Execute(Templ,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,D,EmptyParam,
DDD,DD,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
...
... |
Продолжение следует....
СУВ. Albinos_x |
У меня такая проблема при добавлении нового листа и попытки его переименовать, почему-то переименовывается первый лист :(
Это пусть пользователь решает, ему же ексел вопрос в случае существования задает.