Word Delphi

[xtc_win64]

процедурка заменяет файлы в шаблоне из множества документов. если документов меньше чем размер шаблона то , удалить незаполненые страницы.
Выдает предупреждение:
[Warning]MainForm.Pas(287):Variable IniFile might Not Have Been Initialized
воюю уже два дня, не могу понять, в чем беда? если он спокойно изменяет документ.

procedure TForm1.ProcessingDocs(ACodeKey : integer);
 var
      WordDocument1:TWordDocument;
      nomer:string;
      ofile,
      D,Saveasfile : OLEVariant;
      WordDocument1: TWordDocument;
      i            : integer;
      oldPrinter   : AnsiString;
      MessageStr, CaptionStr : AnsiString;
begin
  WordApplication1.Connect;
  WordApplication1.Options.CheckSpellingAsYouType := False;   
  WordApplication1.Options.CheckGrammarAsYouType := False;   

 if  MessageBox( Form1.Handle, PChar(MessageStr), PChar(CaptionStr),  MB_ICONQUESTION or MB_YESNO ) = IDYES then
  begin
   try

   Form2.ProgressBar.Min := 0; Form2.ProgressBar.Position :=0;
   Form2.ProgressBar.Max := StrToInt( lDocumCount.Caption );
   SetWindowPos(Form2.Handle, HWND_TOPMOST, Form2.Left, Form2.Top, Form2.Width, Form2.Height, SWP_NOMOVE or SWP_NOSIZE);
   Form2.Show();
cbPrinters.Text;
   ovCopies := StrToInt(Edit1.Text);
   ofile := ExtractFilePath(Application.ExeName)+'\test.dot';
   if ( ACodeKey = 0 )
     then  
       begin
         WordApplication1.Documents.Open(ofile,EmptyParam, EmptyParam,     EmptyParam, EmptyParam, EmptyParam,                                       EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
         WordApplication1.Visible:=true;
       end
     else 
       begin
         WordApplication1.Documents.Add(ofile,EmptyParam,EmptyParam,EmptyParam);
         WordApplication1.Visible:=true;
       end;

   WordApplication1.ActiveDocument.PageSetup.PaperSize   := wdPaperA4;
   WordApplication1.ActiveDocument.PageSetup.Orientation := wdOrientPortrait;

   oldPrinter := WordApplication1.ActivePrinter;
   if(cbPrinters.Text <> '') then WordApplication1.ActivePrinter := cbPrinters.Text;

   count:=1;
   for i:=0 to clbPayments.Count-1 do
     if clbPayments.Checked[i] then
      begin
        nomer:=IntToStr(count);
        w_date := 'w_date'+nomer;               w_dat_doc := 'w_dat_doc'+nomer;
        w_pp_no := 'w_pp_no'+nomer;             w_rem_name := 'w_rem_name'+nomer;
        w_summa_desc := 'w_summa_desc'+nomer;   w_sender_inn := 'w_sender_inn'+nomer;
        w_kpp_client := 'w_kpp_client'+nomer;   w_summa := 'w_summa'+nomer;
        w_acct_rem := 'w_acct_rem'+nomer;       w_bank_name_rem := 'w_bank_name_rem'+nomer;
        w_bik_rem := 'w_bik_rem'+nomer;         w_acct_bank_rem := 'w_acct_bank_rem'+nomer;
        w_receiv_inn := 'w_receiv_inn'+nomer;   w_kpp_ben := 'w_kpp_ben'+nomer;
        w_acct_rec := 'w_acct_rec'+nomer;       w_rec_name := 'w_rec_name'+nomer;
        w_vid_op := 'w_vid_op'+nomer;           w_ocheredn := 'w_ocheredn'+nomer;
        w_nazn_plat := 'w_nazn_plat'+nomer;     w_p1:='w_p1'+nomer;
        w_p2:='w_p2'+nomer;                     w_p3:='w_p3'+nomer;
        w_p4:='w_p4'+nomer;                     w_p5:='w_p5'+nomer;
        w_p6:='w_p6'+nomer;                     w_p7:='w_p7'+nomer;
        w_name1:='w_name1'+nomer;               w_name2:='w_name2'+nomer;
        w_dat_serv:='w_dat_serv'+nomer;         w_time_serv:='w_time_serv'+nomer;
        w_oper:='w_oper'+nomer;                 w_s:='w_s'+nomer;

       FillPaymentDoc( pTPymentItem (clbPayments.Items.Objects[ i ]), True, 2 );//процедура замены

       Form2.ProgressBar.Position := i+1;
       count:=count+1;
      end;
      WordApplication1.Connect;
      WordDocument1.ConnectTo(WordApplication1.ActiveDocument);
      a:=IntTStr(count);
      WordDocument1.Range(a).Delete(emptyparam,emptyparam);

//*    if ( ACodeKey = 0 )
//*     then
//*      begin
//*       WordApplication1.Printout(ovBackground, ovAppend, ovRange, ovOutputFileName, ovFrom, ovTo,
//*                                 ovItem, ovCopies, ovPages, ovPageType, ovPrintToFile, ovCollate, ovFileName,
//*                                 ovActivePrinterMacGX, ovManualDuplexPrint, ovPrintZoomColumn, ovPrintZoomRow,
//*                                 ovPrintZoomPaperWidth, ovPrintZoomPaperHeight);
//*          WordApplication1.ActivePrinter := oldPrinter;

//*          saveasfile :=False ;
WordApplication1.ActiveDocument.Close(Saveasfile,EmptyParam,EmptyParam);
   WordApplication1.Disconnect;
   WordApplication1.Quit; // âûãðóæàåì âîðä
   Form2.Hide();
   //ïå÷àòü\ïðîñìîòð?
   if ( ACodeKey = 0 )
    then
//*   WordApplication1.ActivePrinter := oldPrinter;
   end;
  end;

end;

[Stilet]

воюю уже два дня, не могу понять, в чем беда? если он спокойно изменяет документ.

Не обращай внимание. Это просто предупреждение о том что не инициализировано что-то. Это не смертельно.

[xtc_win64]

Сообщение от Stilet

Не обращай внимание. Это просто предупреждение о том что не инициализировано что-то. Это не смертельно.

понимаю но програмка вылетает

естественно изменять он изменяет а вот выделять и удалять не хочет. вылетает програмка.

может кто нибудь что нибудь посоветует? буду весьма благодарен.заранее спасибо.

[Stilet]

понимаю но програмка вылетает

С какой ошибкой и на какой строке?

[xtc_win64]

Сообщение от Stilet

С какой ошибкой и на какой строке?

вылетает на этой строке.
a:=IntToStr(count);

как понимаю не может выполнить:
WordDocument1.ConnectTo(WordApplica tion1.ActiveDocument);

ошибка:

Progect WAitPrint.exe raised exeption class EaexessViolation With message и далее адрес.

[Stilet]

Советую не пользоваться компонентом TWordXXX.
Лучше подключаться к ворду через CreateOleObject

[xtc_win64]

Сообщение от Stilet

Советую не пользоваться компонентом TWordXXX.
Лучше подключаться к ворду через CreateOleObject

благодарю война продолжается

[SKS]

bPrinters.Text;
ovCopies := StrToInt(Edit1.Text);
ofile := ExtractFilePath(Application.ExeName )+'\test.dot';

тут так и должно стоять

\test.dot

dot???

[xtc_win64]

Сообщение от SKS

тут так и должно стоять dot???

шаблон ))))

[xtc_win64]

"секс" с Борланд закончился

Нашел кардинальное решение, не удаление ненужных страниц , а печать нужного диапозона страниц при помощи OvTo,OvFrom,OvPages

OvTo - до какой страницы печать
OvFrom - с какой страницы печать
OvPages(x,y-z). распечатает страницу х и диапозон y-z


Range присваиваем значение wdPrintFromTo по умолчанию стоит AllDocument;

Закрываем топиг спс за сотрудничество