Hente propperties i Word

Her er koden til at hente en indbygget propperty:

Sub Hent()
dato = ActiveDocument.BuiltInDocumentProperties("Creation Date")
NyesteDato = ActiveDocument.BuiltInDocumentProperties("Last Save Time")
End sub

Her er en lidt mere komplet kode *S*

Den forudsætter at du har et fomularfelt i din fil med indholdsfortegnelsen der har bogmærket "Her", hvor værdien af den indbyggede egenskab kan placeres:

'Kører når dokumentet åbnes
Sub AutoOpen()
    FilNavn = ActiveDocument.Name
    'Åbner den anden fil
    Application.Documents.Open ("C:\Documents and Settings\rima2-pc1\Skrivebord\Dok1.doc")
    'Henter en værdi fra de indbyggede egenskaber
    NyesteDato = ActiveDocument.BuiltInDocumentProperties("Last Save Time")
    'Lukker dokumentet uden at gemme
    ActiveDocument.Close (wdDoNotSaveChanges)
    Documents(FilNavn).Activate
    'Indsætter værdien fra den indbyggede egenskab i et formularfelt med bogmærket "Her"
    ActiveDocument.FormFields("Her").Range = NyesteDato
End Sub

Jeg har kaldt makroen for autoOpen, fordi dette navn får den til automatisk at køre, når jeg åbner filen (ligesom AoutClose ville køre automatisk, når man lukker filen)

Kanon koncept.
Men jeg har nu lidt problemer med at få det til at virke. Der hvor du skriver FilNavn er det hele stien eller kun favnet på filen

FilNavn er bare en variabel, som jeg henter det aktive dokuments navn ind i, så jeg senere kan aktivere det igen - Documents(FilNavn).Activate

Men det er koden
- Application.Documents.Open ("C:\Documents and Settings\rima2-pc1\Skrivebord\Dok1.doc")
som refererer til den anden fil - altså ikke indholdsfortegnelsen