Flet med MS Word

Du skal lave en skabelon i Word. I denne skabelon skal du indsætte tekst de steder, hvor dit program skal skrive noget. Herefter kan du fra Delphi bruge kommandoen "ReplaceText" for at få din variable sat ind et bestemt sted i dokumentet.

Jeg opretter mit dokument på følgende måde:

procedure TForm3.Button1Click(Sender: TObject);
var
  Test, Test1  : Integer;
  AString      : Variant;
  WordDokument : String;
begin
  if OpenDialog.Execute then
  begin
    WordDokument := Opendialog.FileName;
    MSWord := CreateOLEObject('Word.Application');    //Word 8
    MSWord.Documents.Open(FileName:=Opendialog.FileName, ReadOnly:=True);
    MSWord.Visible := 1;  // Hvis MSWord.Visible = 1 så bliver det vist
  end;
end;

>>nca: Kan du fortælle mig, hvor jeg skal indsætte ReplaceText?

Kan det ikke lade sig gøre at lave en kommentar, uden at skulle accepter, eller afvise svaret?

Prøv at ta' et kik på denne procedure:

var
Template, ItemIndex, VarFalse, Placement, Format: Olevariant;
R: Range;
Rnge, Searchtext: OleVariant;
begin
  wordapplication1.connect;
  wordapplication1.visible:=true;
  VarFalse:=False;
  Template:='Virusrapport.dot';
  WordApplication1.Caption := 'Delphi virusrapport';
  WordApplication1.Documents.Add(Template,Varfalse);
  WordApplication1.Options.CheckSpellingAsYouType := False;
  WordApplication1.Options.CheckGrammarAsYouType := False;
  ItemIndex:=1;
  WordDocument1.ConnectTo(WordApplication1.Documents.Item(ItemIndex));
  R:= WordDocument1.Range;
  If not ReplaceText('<Måned>',maaned,R) then
    ShowMessage('Kan ikke indsætte månedsnavn i rapporten!');
  If not ReplaceText('<År>',Aar,R) then
    ShowMessage('Kan ikke indsætte årstallet i rapporten!');
  If not ReplaceText('<antal>',IntToStr(Alarmer),R) then
    ShowMessage('Kan ikke indsætte antal vira i rapporten!');
  Placement:=wdInLine;
  Format := wdPasteBitmap;
  R:=Worddocument1.Paragraphs.Item(7).Range;
  Clipboard.Assign(Image1.Picture.Bitmap);
  R.PasteSpecial(EmptyParam, EmptyParam, Placement,EmptyParam, Format, EmptyParam, EmptyParam);
  //Worddocument1.InlineShapes.AddPicture('C:\Dump1.bmp',EmptyParam, EmptyParam, R);    }
  R:=Worddocument1.Paragraphs.Item(12).Range;
  Clipboard.Assign(Image2.Picture.Bitmap);
  R.PasteSpecial(EmptyParam, EmptyParam, Placement,EmptyParam, Format, EmptyParam, EmptyParam);
end;

Jeg kan godt nok ikke få det til at virke.

jeg får fejlen undeclared identifier.

Der må være en 'pænere' måde at gøre det på.

Jeg har prøvet at søge på replaceText i hjælpen  - uden held.

Har du oprettet en ny skabelon i Word? Du kan se, at jeg bruger én der hedder VirusRapport.doc.
Inde i skabelonen har jeg skrevet <Måned> (Husk <>). Så laver jeg ReplaceText('<Måned>',maaned,R), hvor maaned er en strengvariable fra Delphi, som altså bliver indsat på det sted, hvor der står <Måned> i skabelonen. Jeg kan ikke huske hvad R står for.

Ja, det er jeg med på, men jeg får som sagt fejlen undeclared identifier ved replaceText.

P.S: R:= WordDocument1.Range;

Jeg ved ikke hvad 'undeclared identifier' hentyder til, måske din variabel.
Prøv evt. disse link:
http://hometown.aol.com/charliecal/TechPapers/DelphiWord.htm
http://www.inprise.nl/delphi/papers/microexcel/me3.html

Jeg kan ikke finde noget om placering af tekst i word-dokument i ovenstående artikler.

Er der ikke nogen, som har et bud på hvordan det skal gøres.

Jeg kan som sagt ikke få replacetext til at virke.

Jeg lader spørgsmålet være åbent til imorgen, hvorefter det vil blive lukket.

Jeg har selv fundet ud af det:

Der er oprettet 3 bookmarks i worddokumentet: BmNavn, BmAdresse og BmPostNr.

Nu bliver teksten lige nøjagtigt placeret hvor jeg vil have dem.

>>nca, du får alligevel points, som tak for hjælpen.

Det er jo ved at være jul :-)

procedure TForm3.Button1Click(Sender: TObject);
var
  WordDokument : String;
  Range :Variant;
begin
  if OpenDialog.Execute then
  begin
    WordDokument := Opendialog.FileName;
    MSWord := CreateOLEObject('Word.Application');    //Word 8
    MSWord.Documents.Open(FileName:=Opendialog.FileName, ReadOnly:=False);
    MSWord.Visible := 1;  // MSWord bliver vist

    // Denne metode kræver at der i word dokumentet er oprettet bookmarks.
    MSWord.ActiveDocument.Bookmarks.Item('BmNavn').Select;
    Range := MsWord.Selection.Range;
    Range.insertAfter('Personens navn');

    MSWord.ActiveDocument.Bookmarks.Item('BmAdresse').Select;
    Range := MsWord.Selection.Range;
    Range.insertAfter('Personens adresse');
    MSWord.ActiveDocument.Bookmarks.Item('BmPostNr').Select;
    Range := MsWord.Selection.Range;
    Range.insertAfter('Personens postnummer og by');
  end;
end;

Jamen jeg takker.