Возникает проблема на такие строчки как wdRng := wdDoc.Range.Characters.Last; и wdRng.Start := wdRng.End; Если не трудно просмотрите и подскажите в чем моя ошибка. | Код |
procedure TForm2.Action1Execute(Sender: TObject);
const
wdAlignParagraphCenter = 1;
wdAlignParagraphLeft = 0;
wdAlignParagraphRight = 2;
wdLineStyleSingle = 1;
var
wdApp, wdDoc, wdRng, wdTable : Variant;
i, j, Res : Integer;
D : TDateTime;
Bm : TBookMark;
Sd : TSaveDialog;
per:integer;
kod: string;
begin
........................
try
// Таблица.
if not IBQuery1.Active then IBQuery1.Open;
wdRng.Start := wdRng.End;
wdTable := wdDoc.Tables.Add(wdRng.Characters.Last, 8, 3);
wdTable.Columns.item(1).Width:=20;
wdTable.Columns.item(1).Width:=100;
wdTable.Columns.item(1).Width:=70;
wdTable.Borders.InsideLineStyle := wdLineStyleSingle;
wdTable.Borders.OutsideLineStyle := wdLineStyleSingle;
wdRng.ParagraphFormat.Reset;
wdRng.ParagraphFormat.Alignment := wdAlignParagraphleft;
wdTable.Cell(1, 2).Range.Text := 'Полное наименование юридического лица ';
wdTable.Cell(2, 2).Range.Text := 'Сокращенное наименование' ;
wdTable.Cell(3, 2).Range.Text := 'Организационно-правовая форма' ;
wdTable.Cell(4, 2).Range.Text := 'Место нахождения (из Устава)' ;
wdTable.Cell(5, 2).Range.Text := 'ОГРН (основной государственный номер записи о создании юридического лица)' ;
wdTable.Cell(6, 2).Range.Text := 'ИНН (идентификационный номер плательщика)' ;
wdTable.Cell(7, 2).Range.Text := 'КПП (код причины постановки на учет)' ;
wdTable.Cell(8, 2).Range.Text := 'Коды ОКВЭД' ;
for i := 0 to 8 do
wdTable.Cell(i, 1 ).Range.Text := i;
.....................
ibquery1.First;
for i := 0 to 8 do
begin
wdTable.Cell(i, 3).Range.Text := ibquery1.Fields[i].AsString;
end;
ibquery1.GotoBookMark(Bm);
ibquery1.EnableControls;
wdRng := wdDoc.Range.Characters.Last;
wdRng.InsertAfter('просит подтвердить отнесение вида отходов к конкретному классу опасности ');
wdRng.InsertAfter(#13#10);
wdRng.InsertAfter('для окружающей среды в соответствии с прилагаемым перечнем отходов. ');
wdRng.Font.Reset;
wdRng.Font.Name := 'Times New Roman';
wdRng.Font.Bold := false;
wdRng.Font.Size := 12;
wdRng.InsertAfter(#13#10);
D := Now;
wdRng.Start := wdRng.End;
wdRng.Font.Reset;
wdRng.InsertAfter(#13#10);
wdRng.InsertAfter('Генеральный директор');
wdRng.InsertAfter(#13#10);
wdRng.InsertAfter('ЗАО "Михайловский сахарник" _________________ /Шаталин Сергей Викторович/');
wdRng.InsertAfter(#9+#9+#9+#9+#9+#9+#9+#9+'(подпись)'+#9+#9+#9+'(ФИО)');
wdRng.InsertAfter(#13#10);
D := Now;
wdRng.InsertAfter('Телефон: (83140) 54-6-26 ' + #9+ #9+ #9 + FormatDateTime('dd.mm.yyyy', D) + #13 +'года');
wdRng.Font.Name := 'Times New Roman';
wdRng.Font.Bold := false;
wdRng.Font.Size := 10;
wdRng.InsertAfter(#13#10);
wdRng.Start := wdRng.End;
// новая страница - разрыв
wdRng.Start := wdRng.End;
wdTable := wdDoc.Tables.Add(wdRng, 2, QWiev.Fields.Count);
//Параметры линий
wdTable.Borders.InsideLineStyle := wdLineStyleSingle;
wdTable.Borders.OutsideLineStyle := wdLineStyleSingle;
wdRng.ParagraphFormat.Reset;
wdRng.ParagraphFormat.Alignment := wdAlignParagraphLeft;
//Оформление шапки.
wdRng := wdTable.Rows.Item(1).Range; //Диапазон первой строки.
wdRng.ParagraphFormat.Alignment := wdAlignParagraphCenter;
wdRng.Font.Size := 10;
wdRng.Font.Bold := True;
wdRng := wdTable.Rows.Item(2).Range; //Диапазон второй строки.
wdRng.ParagraphFormat.Alignment := wdAlignParagraphLeft;
wdRng.Font.Size := 10;
wdRng.Font.Bold := False;
//Записываем шапку таблицы.
for i := 0 to DBGrideh1.FieldCount-1 do
wdTable.Cell(1, i + 1).Range.Text := DBGrideh1.Columns[i].Title.Caption;
//Записываем данные таблицы.
QWiev.DisableControls;
Bm := QWiev.GetBookMark;
QWiev.First;
i := 1;
while not QWiev.Eof do
begin
Inc(i);
if i > 2 then wdTable.Rows.Add;
for j := 0 to QWiev.Fields.Count-1 do
wdTable.Cell(i, j + 1).Range.Text := QWiev.Fields[j].AsString;
QWiev.Next;
end;
QWiev.GotoBookMark(Bm);
QWiev.EnableControls;
// начало послетабличных строк 3шт
finally
wdApp.ScreenUpdating := True;
end;
wdApp.DisplayAlerts := False;
try
wdDoc.SaveAs(FileName:=Sd.FileName);
finally
wdApp.DisplayAlerts := True;
end;
|
Снимо2к.PNG 8,22 Kb |
Проблема работы с Word в делфи 
Загрузка ...
