Avatar billede Slettet bruger
26. marts 2001 - 01:16 Der er 7 kommentarer og
2 løsninger

Word med aut. dato

Jeg har et dot dokument hvori jeg med \"indsæt felt\" funktionen har lavet et felt med dags dato, således at første gang jeg gemmer som doc den aktuelle dato, så husker word dato. den ændres ikke mere.
Det virker fint.
Men når jeg nu vælger \"gem som\" så får jeg boksen op hvor jeg skal kalde doc dokument et eller andet.
Word vælger jo aut. at kalde dokumentet det første der står i dokumentet.
Men jeg vil gerne have den til aut. at vælge aktuel dato i formatet 01.03.25.
Det er samme funktion som jeg har i selve dokumentet.
Jeg har prøvet at lave et felt først i dokument, som har denne funktion.
men i \"gem som\" menuen tager den stadig den første tekst og navngiver med.
kan nogen hjælpe mig med en løsning?
den er svær og giver derfor point....
26. marts 2001 - 11:04 #1
Som jeg ser det, så ville det være smartest at lave en makro, som skal placeres i Document_Open. Denne makro skal tage fat i din dato, og indsætte den i Filer/Egenskaber/Titel idet titel\'s feltindhold giver filnavnet før første linie.
Avatar billede nerøs Nybegynder
26. marts 2001 - 18:42 #2
Følgende er lidt omstændeligt, men virker.
I din skabelon gør du følgende:

Indsæt et Class Modul i VBA (Det skal hedde class1).

Klister følgende ind i class1:

Option Explicit
Dim WithEvents app As Application

Private Sub app_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean)
   
    Dim dlg As Dialog
    On Error GoTo fejl
    \'dato.dot i nedenstående skal udskiftes med navn på skabelon\"
    If StrComp(Doc.AttachedTemplate.Name, \"dato.dot\", vbTextCompare) <> 0 Then Exit Sub
    If Doc.Saved = False Then
        Set dlg = Dialogs(wdDialogFileSaveAs)
        dlg.Name = Format(Now, \"yy.mm.dd\")
        dlg.Show
        Cancel = True
        Set app = Nothing
    End If
   
fejl:
End Sub

Private Sub Class_Initialize()
    Set app = Word.Application
End Sub

Indsæt et standard modul

Indsæt følgende i standard modulet:

Public clsApp As Class1

I thisDocument klistrer du følgende ind:

Private Sub Document_New()
Set clsApp = New Class1
End Sub

Gem herefter skabelonen

Åben herefter et dokument på basis af skabelonen, lav en ændring og tryk gem. Så skulle den gerne foreslå aktuel dato som navn i dialogbox.

Grunden til al dette \"bøvl\" er at Application Objektets events ikke umiddelbart er tilgængelige.

Hvis du har en mail kan jeg evt sende dig et prøvetemplate.

VH nerøs


Avatar billede Slettet bruger
26. marts 2001 - 22:45 #3
Puha nerøs. Det var en sej en. Du må gerne prøve at sende mig den på video@sol.dk
Avatar billede Slettet bruger
26. marts 2001 - 22:51 #4
Øhhh... det er nok mere end jeg kan finde ud af.
VBA er vel et programmerings sprog.
Men hvordan og hvor går jeg ind og taster hele smøren ind ?
27. marts 2001 - 00:09 #5
Jeg har skrevet en let guide til hjælp for forståelsen. Den er lavet til både Excel og Word og kan findes på www.danskeguider.dk
Avatar billede Slettet bruger
27. marts 2001 - 03:32 #6
Jeg kan ikke lige se hvor det står.
Har søgt på VBA og fået en liste over genvejstaster op.
Men ellers er det nogle kanon gode guider du har. Meget pædagoisk fortalt...
Avatar billede Slettet bruger
27. marts 2001 - 03:35 #7
Nåeee...du henviser til det med makroer. Okay kigger på din guide og prøver om jeg kan.
Avatar billede Slettet bruger
27. marts 2001 - 04:18 #8
Hej nerøs

Jeg har prøvet at bruge dit VBA.
Har aldrig brugt VBA, men jeg gjorde følgende:
funktioner/makro/rediger i visual basic
Jeg prøvede at indsætte din tekst i de 3 moduler.
Lukkede skabelon ned og prøvede.
Men jeg fik det ikke til at virke.
27. marts 2001 - 09:47 #9
www.danskeguider.dk VÆLG tekstbehandling VÆLG side 2 NEDERST FINDES Visual Basic Editor i Word 2000.

Under gruppen regneark findes også et skriv omkring makro båndoptageren.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

IT-JOB