Word 97 Recent File List

Har du prøver med OLE/COM

Martinlind > Kan du ikke beskrive lidt nærmerer?

Følgende gør hvad du ber om:
http://www.cnt.dk/WordRecentList.zip

cms > Jeg er ikke ved min Delphi computer, tjekker hurtigst muligt.

I øvrigt kunne jeg ikke teste det, for jeg har Word2000 og ikke Word97, som mit program er skrevet til. Der kan derfor være småfejl...

Jeg har kigget på det og det ser godt ud, men jeg kunne ikke få det til at virke. Skulle først importere noget word \"type librarie\" eller noget i den retning, men det virkede stadigvæk ikke. Rettede word97 til word_tlb, gav færrere fejl men ikke helt perfekt.
Kendte ikke wordapplication, jeg prøvede at rette til alt muligt logisk men compileren kom først levende igennem da jeg rettede til _application.
Prøvede at bruge \"files\" til alt muligt, men det var en tom variabel.

Håber ikke det er for tungt...

TWordApplication er en komponent der følger med Delphi 5 Enterprise.
Du kan i stedet for at bruge denne, manuelt kalde:

CreateComObject(...)

prøv følgende kode:

uses ActiveX, ComObj;

{$R *.DFM}

procedure TMain.FormCreate(Sender: TObject);
var
  I: Integer;
  Files: TStringList;
  App: _Application;
begin
  CreateComObject(IID__Application).QueryInterface(IID__Application, App);
  Files := TStringList.Create;
  try
    for I := 0 to App.RecentFiles.Count - 1 do
      Files.Add(App.RecentFiles.item(I).Name);

    //Nu har du alle recentfiles i Files, og kan gøre hvad du har lyst til...

  finally
    Files.Free;
    App._Release;
  end;
end;

du skal stadig bruge den manuelt importerede tybelibrary-header (word_tlb.pas) - tror jeg :-)

Er heller ikke ved min Delphi-PC i dag.
Tjekker lige (udskriver).

Kommer med fejl ved
for I := 0 to App.RecentFiles.Count - 1 do
Files.Add(App.RecentFiles.item(I).Name);

Har hævet med 60 procentpoint til 500 point.

Hvilken fejl?

Jeg har lavet et andet eksempel. Håber det virker. Det virker på min Word2000, selvom det er baseret på Word97.
www.cnt.dk/Eksperten/word8.zip

Har ikke været på nettet siden før jul.

Tester lige.

okayzåda. men så glædelig jul og godt nytår :-)

Tak i lige måde.
Når jeg trykker på knappen i executable-filen sker der... intet! (okay, den arbejder i et par sekunder, men så sker der heller ikke mere, i hvert fald ikke i memo-boksen).

aj for pikker da ozze. også når du kører den exe-fil der er vedhæftet?
Hvilken delphi har du?

Har du icq? Mit nummer: 145 242780

Ja, den exe der lå i zippen.
Delphi 4 standard.
Nej, jeg har ikke icq!

p*i*s. vender tilbage snart

-------------------------
| Sñârt? Cïrkâ hvõrñår??? |
-------------------------

Nu.
Jeg går ud fra du er sikker på at der rent faktisk er nogle recent files?
Ellers må jeg lige få fat i en word97 og teste på den...

Det jeg mener er den liste over senest åbnede filer som kan ses i \"Filer\"-menuen.

Jeg har nu fået noget recentfiles ud af word.
Mener (er ikke ved delphi) at det er noget alla det:

uses word_tlb;

myword: _application;
file1: variant;
filestring: string;

begin
  myword := coaplication_.create; //Starter word i det skjulte og gør det muligt at bruge informationer fra Word i Delphi
  file1 := myword.recentfiles.item(1); //Sætter file1 til recentfile 1
  filestring := file1; //file1 er en Variant og kan derfor konventeres til bl.a. string
  myword.quit; //Afslutter Word igen så den ikke ligger og bruger RAM
end.

Der kan forekomme enkelte afvigelser!!!

Denne løsning giver desværre kun filnavnet, ikke placeringen på disken.
Hvis der er nogle der kan få DET hevet ud af word, så må de gerne sige til.

P.S. er også intereseret i at få Word til at åbne en af recentfiles ved tryk på en knap.
P.P.S. cms: Selvom jeg ikke direkte kan bruge din hjælp, så har den været meget inspirerende. Derfor får du uanset hvad rigtig mange af de 500 point (når jeg er HELT færdig med spørgsmålet)

Hov, kom til at trykke på accepter!
Nå hva' faen, du sku' jo alligevel ha nogen point.

Jeg skal lige finde en computer med IE5, så jeg kan oprette et spørgsmål med pointene.
Det er helt iorden hvis du bare følger den normale pointskala, hvilket ville give mig ml. 15 og 60 point.

http://www.eksperten.dk/spm/165532
http://www.eksperten.dk/spm/165533
http://www.eksperten.dk/spm/165534