Работа с Word

[Владислав-2012]

Помогите разобраться, ибо у меня постоянно вылетают ошибки, как на картинке, и последовательность абзацев меняется

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;
end;

[Вадим Мошев]

В конце листинга:

wdDoc.SaveAs(FileName:=Sd.FileName);

Меня одного такой синтаксис не устраивает?

По теме сказать ничего не смогу, лишь дам совет.
Пользуйтесь пошаговой трассировкой.

Перед тем местом, где, по вашему мнению, возникает ошибка, поставьте точку останова (мышкой нажмите на место, обозначенное красным кругом), после чего запустите программу. Выполните ту же последовательность действий, что приводит к ошибке, но программа остановится в том месте, где вы поставили останова. Далее нажимайте F7 - программа будет выполняться пошагово. Одно нажатие - один шаг. Так легко отследить ошибку.

[Владислав-2012]

А как правильно, просто в этой строчке часто возникают ошибки

[Stilet]

Меня одного такой синтаксис не устраивает?

Да, только тебя. OLE вызов допускает именование параметров, и при этом остальные параметры, что не были указаны, получают значение EmptyParam. Очень удобная фича еще с Д6 или даже Д5.

этой строчке часто возникают ошибки

На какой именно строчке? Поточнее пожалуйста.

[Владислав-2012]

Постоянно ошибки на этой строчке
wdRng := wdDoc.Range.Characters.Last;

либо если ту строчку закомментить и вставить
wdRng.Start := wdRng.End; тогда вылазит ошибка на этой:
wdDoc.SaveAs(FileName:=Sd.FileName) ;
И последовательность абзацев нарушается

никто не подскажет?

[Stilet]

А ты проверил, доступны ли вообще эти свойства в этом месте?

var ov:OleVariant;
...
ov:=wdDoc.Range;
if Not VarIsClear(ov) then begin
 ov:=ov.Characters;
 if Not VarIsClear(ov) then begin
  if ov.Count<>0 then begin
   ov:=ov.Last;
   if Not VarIsClear(ov) then begin
    try
     wdRng.Start:=ov;
    except
     on e:Exceptio do ShowMessage('wdRng.Start не может принять Рэндж: '+e.Message);
    end;
   end else begin ShowMessage('Last Пусто'); end;
  end else begin ShowMessage('Characters Пусто'); end;
 end else begin ShowMessage('Characters недоступно'); end;
end else begin ShowMessage('wdDoc.Range недоступно'); end;

Я конечно понимаю, что многа букаф и вообще, но если ты хочешь получить стабильный код - нужно приложить усилие, а не просто так вызывать на авось.

[Владислав-2012]

никто не подскажет?

я делал строго по шаблону, у меня много мест где все 1 в 1, и там все отлично работает, а есть где 1 в 1 и оно пишет ошибку, я конечно понимаю что надо все досконально понимать в теме чтобы писать этот код, но я с ним столкнулся и 3 день все это создал, подскажите в какой направлении копать

и поверь я уже не мало усилий приложил к этому коду

[Человек_Борща]

wdRng := wdDoc.Range.Characters.Last;

Ошибка здесь.
Какого-то вызваваемого тобой класса нет в этой цепочке свойств и он равен NULL. Гугли в VBA почему и как)

[Владислав-2012]

Беда в том, что именно это мне и посоветовали использовать, а не просто манипулируя диапазонами

и ошибка возникает не во всех таких строках, а только после комментария разрыв страницы, в коде выше, до этого все четко, и еще, заметил что при закрытии процесса OSPPSVC возникает меньше ошибок, особенно это про сохранения документа

Беда в том, что именно это мне и посоветовали использовать, а не просто манипулируя диапазонами и ошибка возникает не во всех таких строках, а только после комментария разрыв страницы, в коде выше, до этого все четко, и еще, заметил что при закрытии процесса OSPPSVC возникает меньше ошибок, особенно это про сохранения документа

[Человек_Борща]

Беда в том, что именно это мне и посоветовали использовать, а не просто манипулируя диапазонами и ошибка возникает не во всех таких строках, а только после комментария разрыв страницы, в коде выше, до этого все четко, и еще, заметил что при закрытии процесса OSPPSVC возникает меньше ошибок, особенно это про сохранения документа

Ещё раз повторюсь, читайте документацию VBA по используемым вами методам MS Word, навернка найдете что-то после чего wdRng где-то получает NULL.

больше тут ничем помочь нельзя, читать доки за вас? Неа.