word automation

Med på en kigger

Nedenstående eksempel viser hvordan man først laver et tom dokument og derefter åbner et række andre dokumenter og copy/paster alt hvad der står i dem ind i det først dokument man levede !

WA1 er en TWordApplication og WDoc er en TWordDocument

  WA1.Connect;
  WA1.Visible := False;
  WDoc.ConnectTo(WA1.Documents.Add(EmptyParam, EmptyParam)); //Lav tomt dok.
  j := PB2.Min;

  for i:= 0 to FileList1.Count -1 do
    begin
      FileName := FileList1[i];
      WA1.Documents.Open(FileName, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam); //Åben eksisterende dok.
      WA1.Selection.WholeStory; //Vælg alt i dok.
      WA1.Selection.Copy; //Copy alt i dok.
      WA1.ActiveDocument.Close(SaveChanges, EmptyParam, EmptyParam); //Luk åben dok.
      WA1.Selection.Paste; //Paste det kopierede ind i det først dok.
      WA1.Selection.TypeParagraph; //Blank line
      WA1.Selection.TypeParagraph; //Blank line
      Inc(j);
      PB2.Position := j; //Progressbar
    end;
  WA1.Visible := True;
  WA1.Disconnect;


Der er ikke sikkert det lige er du er ude efter, men det viser da i hvert fald hvordan du laver et linieskift *G*

Snowball

unclebug >> puh-bad, en lurer, skynder jer at få børnene ind *G*

a_c >> du kan også finde en del her : http://www.gnomehome.demon.nl/uddf/

/Martin

snowball  >> jo det var nok ikke helt det
Martin>> Ja det kunne godt se ud somom det jeg skal prøve at kigge lidt på er noget med bookmarks og noget.?

Måske er problemer bare :
1. At jeg ikke forstår word
2. At jeg er en idiot.
: )
...men det er vist ikke et særligt veldokumenteret område eller hvad?

A_C

Det er et pille arb. at automatisere Word