"Per Rønne" <per.ronne@invalid.dk> wrote in message
news:1fmkols.oj841g144n06jN%per.ronne@invalid.dk...
> Mads <mads.knudsen@NOSPAMprivat.dk> wrote:
>
> > "Per Rønne" <per.ronne@invalid.dk> wrote in message
> > news:1fmh4hx.1he9cp016nxic6N%per.ronne@invalid.dk...
> > > Er der en måde at lukke for MS Office programmerne på en måde der gør
at
> > > eventuelt åbne dokumenter arkiveres som temporære filer, der
automatisk
> > > genåbnes når de pågældende programmer igen åbnes?
> >
> > Et dokument kan kun få et filnavn hvis det bliver gemt. Du vil derfor
have
> > problemer når du genåbner dokumenterne da de nu vil have de temporære
> > filnavne og kan ikke få de gamle uden at gemme. (Gælder word)
>
> Man kunne sagtens lade programmerne åbne med de temporære dokumenter
> åbne igen.
Følgende makro kan bruges til at gemme og lukke alle åbne dokumenter i Word.
Sub GemAlleWord
Dim I as Long
For I=1 to Documents.Count
Documents(I).SaveAs "C:\Temp\temp" & Format(I, "0000")
Documents.Close
Next I
End Sub
Hvordan du får dem åbnet igen er et spørgsmål om hvordan du vil arbejde
videre
- Bruge RecentFiles listen (maks 9 filer)
- Åbne alle filer i C:\temp\ (Gamle temp filer skal slettes, ellers bliver
de åbnet igen)
- Lave en liste et sted og bruge den
For den første kunne en makro se sådan ud
Sub OpenRecentFiles()
Dim I As Long
For I = 1 To Application.RecentFiles.Count
Application.RecentFiles(I).Open
Next I
End Sub
>
> Og det sker altså at man kan glemme at arkivere dokumenter.
Næh ;)
Mvh Mads