Замена текста в Word!

Ещё ошибка:
[Ошибка] Unit2.pas(353): Not enough actual parameters
в строке:

VisibleWord;

VisibleWord(true);

так трудно посмотреть на функцию и сделать самому

Я пока не врюблюсь в делфи, вот учюсь думать по делфи....

Цитата BIG-VL @ 05.09.06, 09:21

Я пока не врюблюсь в делфи, вот учюсь думать по делфи....

не пиши полной чуши, а лучше читай УМНЫЕ книги!!!!
да внимательнее, а не так что нравится или не нравится!!!!!!
что сейчас тоже не работает?

dron-s то же не работает!!!



Добавлено 05.09.06, 09:30
Я так понял полный путь нужно указать? Ну а у меня документ лежит в папке doc/*.*

Цитата BIG-VL @ 05.09.06, 09:28

dron-s то же не работает!!!

что на этот раз

пост выше...

если у тебя файл лежит в папке doc, папка находится в корне, то пиши так

CreateWord;
OpenDocFile(ExtractFilePath(paramStr(0)) + 'doc\Template.doc','');
FindAndReplace('что нужно заменить','на что нужно заменить');
VisibleWord;

Говорит что файл открыт!!! Потом вот эта ошибка!!!

Цитата BIG-VL @ 05.09.06, 09:40

Говорит что файл открыт!!!

перерд выполнение процедуры, файл должен быть закрыт!!!

Цитата BIG-VL @ 05.09.06, 09:40

Потом вот эта ошибка!!!

у меня нет никакой ошибки, всё работает...

Цитата dron-s @ 05.09.06, 09:49

перерд выполнение процедуры, файл должен быть закрыт!!!

Я знаю!!! Он у меня закрыт!!! Может у меня офис то что 2003?

Не работает!!!

Цитата BIG-VL @ 05.09.06, 17:03

Не работает!!!

Ну, что, этот проект у тебя тоже не работает? Ничего не меняй, просто откомпилируй, запусти и нажми на кнопку! А потом проверь, что содержится в DOC файле...
Прикреплённый файлtest_it.zip (5.04 Кбайт, скачиваний: 180)

такой вопрос.. компилиться все нормально, но потом при нажати на соотв кнопку выдает ошибку ... Method replacement not supported by automation object.

procedure TForm1.Button2Click(Sender: TObject);
var
  BookmarkName, Doc, R, Ff_w: OleVariant;
begin
  try
    MsWord := CreateOleObject('Word.Application');
    MsWord.Visible := False;
  except
    ShowMessage('Microsoft Word не установлен!');
  end;
  Ff_w:='D:\Pos_Inst\akt.doc';
  BookmarkName:='date';
  try
    MsWord.Documents.Open(Ff_w);
  except
    ShowMessage('Файл не найден!');
  end;
  MsWord.Selection.Find.Text := '123';
  MsWord.Selection.Find.Replecement.Text := 'нашол:))';
  
 
  {If  MsWord.Bookmarks.Exist(BookmarkName) then
    begin
      R:=MsWord.Bookmarks.Item(BookmarkName).Range;
      R.InsertAfter('FUCK');}
    end;

Ребята помогите
Мне нужно сделать фтоб с делфи заполнялся бланк в ворде, но он меняет только первое значение а вот уже второе нехочет в чем дело??
ПОдскажите


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, comobj;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
Edit4: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
{$R *.dfm}
function zamena(w: variant; poisk, zamslovo: string): boolean;

begin


W.Selection.Find.Forward:=true;
W.Selection.Find.Text:=poisk;
if W.Selection.Find.Execute then begin W.Selection.Text:=zamslovo; result:=true;
end;
end;





procedure TForm1.Button1Click(Sender: TObject);
var w: variant;
begin
edit4.Text:=edit1.Text + edit2.Text+ edit3.Text ;
w:=createoleobject('word.application') ;
w.documents.add('C:\Documents and Settings\User\Рабочий стол\т1.dot') ;
if zamena(w, '##1FIO&', edit4.text)=true then showmessage('2') ;
if zamena(w, '##6FIO&', edit1.text)=true then showmessage('3') ;

w.visible:=true;
//w.quit;
end;

end.