несколько вопросов

[fitc]

Я работаю с Delphi недавно, так что не судите строго за вопросы
На данном этапе возникли вопросы:
1) как открыть или сохранить из/в папки/у проекта не указывая полного пути от харда?
открываю _.dot, сохраняю в _.doc.
2) как перемещать курсор на другую страницу в вордовском документе?
в книге В.Корнякова не нашел(
3) как применить компонент progressbar к функции?

[RNT]

Просто укажи название файла без пути и он сохранится в папку с программой

[fitc]

делал так, почему то не помогает(

Работает только так:

Doc:=WordApp.Documents.Open('c:\ooo.dot');

Так не пашет:

Doc:=WordApp.Documents.Open('ooo.dot');

П.С. Естественно в файле проекта открываемый файл лежит

[RNT]

надо показывать исходник , откуда мне знать , что у вас не работает

WordApp -это переменная какого типа ? Покажите больше

[Lime]

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

Работает только так:
Doc:=WordApp.Documents.Open('c:\ooo .dot');
Так не пашет:
Doc:=WordApp.Documents.Open('ooo.do t');
П.С. Естественно в файле проекта открываемый файл лежит

Doc:=WordApp.Documents.Open(Extractfilepath(application.exename)+'ooo.dot');

Возможно понадобится слеш(\) перед 'ooo.dot' , писал от руки.

[fitc]

ну надо так надо:

unit word1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,ComObj, StdCtrls, ComCtrls;
type

  ObjParam = record
    Nname : string;
    Ccount : double;
  end;
  TForm1 = class(TForm)
    Button1: TButton;
    ProgressBar1: TProgressBar;
    procedure Button1Click(Sender: TObject);
    //function CloseWord:boolean;
  private
    { Private declarations }
  public
    { Public declarations }
//-- Îáúÿâëåíèå ìàññèâà òèïà ObjParam
  ObjRecords: array[0..1] of ObjParam;
end;
function FindAndInsert(W:variant;findText,ReplacementText:string):boolean;
var
  Form1: TForm1;
  WordApp,Doc:Variant;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
 var
  s:string; //-- Ñòðîêîâàÿ ïåðåìåííàÿ, ïðåäíàçíà÷åííàÿ äëÿ õðàíåíèÿ ÷èñëà ñ ïëâàþùåé òî÷êîé
  i:integer; //-- Ïåðåìåííàÿ-ñ÷åò÷èê
 begin
//-- Îáíóëèòü îêíî ïðîãðåññà
  ProgressBar1.Position := 0;
//-- Ïîïûòêà ñîçäàíèÿ äîêóìåíòà òèïà Word
  try
   WordApp:=CreateOleObject('Word.Application');
//-- Åñëè íåóäà÷à  - âûâåñòè ñîîáùåíèå 'Ïîõîæå, ÷òî Word íå óñòàíîâëåí' è âûéòè
  except
   ShowMessage('Ïîõîæå, ÷òî Word íå óñòàíîâëåí');
   exit;
  end;
//-- Çàïèñûâàåì â ñòðóêòóðó äàííûå
  for i := 0 to 1 do
  begin
   ObjRecords[i].Nname:='Ýòî òåñòîâîå  ñîîáùåíèå';
   ObjRecords[i].Ccount:=13.56;
  end;
//-- Ðàáîòàåì ñ çàêðûòûì äîêóìåíòîì
  WordApp.Visible:=false;
//-- Îòêðûâàåì øàáëîí äîêóìåíòà
  Doc:=WordApp.Documents.Open('c:\ooo2.dot');
//-- Îïåðàöèè ñî ñäâèãîì êóðñîðà è çàïèñüþ
  WordApp.Selection.MoveRight(3,1, false);
  //WordApp.Selection.MoveRight(12,18,false);
  WordApp.Selection.Move(10,3);
  for i := 0 to 1 do
  begin
   WordApp.Selection.TypeText(ObjRecords[i].Nname);
   WordApp.Selection.Move(12,1);
   s:=FloatToStr(ObjRecords[i].CCount);
   WordApp.Selection.TypeText(s);
   WordApp.Selection.Move(10,1);
   //WordApp.Selection.Move(12,1);
  end;
//-- Îêíî ïðîãðåññà çàïîëíåíî íà 30%
  ProgressBar1.Position:=30;
//-- Ïåðåõîä íà çàïèñü â êîëîíòèòóë
  WordApp.ActiveWindow.ActivePane.View.SeekView := 10;
  FindAndInsert(WordApp,'Óñòðîéñòâî','!!!!!!!!!!');
//-- Çàïèñü òåêñòà â êîëîíòèòóë
  WordApp.Selection.Move(10,1);
  WordApp.Selection.Move(9,6);
  WordApp.ActiveWindow.Selection.Text := 'Òåêñò â êîëîíòèòóë(òåñò)';
  //FindAndInsert(WordApp,'Óñòðîéñòâî','!!!!!!!!!!');
//-- Îêíî ïðîãðåññà çàïîëíåíî íà 70%
  ProgressBar1.Position:=70;
//-- Ñîõðàíåíèå äîêóìåíòà
  WordApp.ActiveDocument.SaveAs('c:\aa.doc');
//-- Ïðîâåðêà - ñîõðàíèëñÿ ëè äîêóìåíò
  if WordApp.ActiveDocument.Saved then begin
//-- Îêíî ïðîãðåññà çàïîëíåíî íà 100%
              ProgressBar1.Position := 100;
              messagebox(handle,'Äîêóìåíò ñîõðàíåí! (aa.doc)','Âíèìàíèå!',0);
  end;
  if not WordApp.ActiveDocument.Saved then begin
              messagebox(handle,'Äîêóìåíò íå ñîõðàíåí!','Âíèìàíèå!',0);
  end;
//-- Çàêðûòèå äîêóìåíòà
  Doc.Close;
//-- Îáíóëèòü îêíî ïðîãðåññà
  ProgressBar1.Position := 0;
end;

function FindAndInsert(W:variant;findText,ReplacementText:string):boolean;
 const wdReplaceAll=2;
begin
 W.Selection.Find.Text:=FindText;
 W.Selection.Find.Replacement.Text:=ReplacementText;
 FindAndInsert:=W.Selection.Find.Execute(Replace:=wdReplaceAll);
end;

end.

П.С.: извините комменты в абракадабру превратились(

[goblinyara]

Возможно понадобится слеш(\) перед 'ooo.dot' , писал от руки.

не, не понадобится=) ExtractFilePath вместе со слэшем заключающим даёт строку=)

[Lime]

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

не, не понадобится=) ExtractFilePath вместе со слэшем заключающим даёт строку=)

Есть 2 похожие функции , а я всегда забываю каторая из них без слеша.

[goblinyara]

ExtractFileDIR дайт без слэша, а ExtractFilePath со слэшем

[RNT]

3) как применить компонент progressbar к функции?

Возможно , вам нужно применить его к циклу ?