Navigation:  WebDok > Journaliseringsmakro i Word

 

•         Start Word op og gå under Funktioner – Makro – Makroer.

 

•         Indtast navn ’Journalisering’ og klik på opret.

 

•Helt øverst laves et linieskrift og nedenstående sætning indsættes (kopier linien herfra og sæt ind i makroen)

 

Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

•         Billedet skal herefter se således ud:

 

•         Længere nede på siden efter Makro oprettet xx.xx.xx af xxxxxxxxxx indsættes nu følgende: (kopier afsnittet herfra og sæt ind i makroen)

 

 

Dim filnavn As String

 Dim laengde As Long

 Dim sti As String

 Dim resultat As Integer

 Dim tempstifejl As Boolean

 Dim programnavn As String

 Dim DataDir As String

 On Error GoTo ErrorHandling

 tempstifejl = False

 DataDir = GetSetting("EGBOLIG", "OMRAADE", "JOURNALSTI")

 If Trim(DataDir) = "" Then

   MsgBox "Der blev ikke fundet en sti til journalstart.exe" & vbCrLf _

          & "Start EGBolig op og vælg ændre database og klik på opdater. Så prøv igen"

   Exit Sub

 Else

   If Dir(DataDir & "\journalstart.exe") = "" Then

     MsgBox "Journalstart.exe kunne ikke findes i " & DataDir & vbCrLf _

            & "Sørg for at filen ligger der og prøv igen."

     Exit Sub

   End If

 End If

 programnavn = Application.Name

 laengde = 255

 filnavn = Format(Now, "DDMMYYYYHHMMSS")

 sti = String$(laengde, 0)

 tempstifejl = True

 resultat = GetTempPath(laengde, sti)

 tempstifejl = False

 If resultat = 0 Or resultat > laengde Or InStr(UCase$(programnavn), "WORD") = 0 Then

   'hvis ikke word eller problemer med stien, så brug den gamle her

   Shell DataDir & "\Journalstart.exe " & programnavn, 1

 Else

   While Asc(Right$(sti, 1)) = 0

     'fjern nulls, da det er en null-termineret string

     sti = Left$(sti, Len(sti) - 1)

   Wend

   If Right$(sti, 1) <> "\" Then

     sti = sti & "\"

   End If

   filnavn = sti & filnavn

   Application.ActiveDocument.SaveAs filnavn

   Shell DataDir & "\Journalstart.exe " & programnavn & "," & filnavn, 1

 End If

 Exit Sub

 

ErrorHandling:

 If tempstifejl Then

   resultat = 0

   Resume Next

 Else

   MsgBox "Der opstod en fejl." & Chr(13) & Chr(10) _

        & "Nummer: " & Err.Number & Chr(13) & Chr(10) _

        & "Beskrivelse: " & Err.Description

 End If

 

 

•Klik på disketten for at gemme

 

•Luk på krydset i øverste venstre hjørne. Du er nu tilbage i Word.

 

•Højreklik på Menulinien og vælg ’Tilpas’.

 

•Under kommandoer vælges ’Makroer’. Til venstre vises oprettede makroer. Klik på Normal.Newmacros.Journalisering og træk musen op bagved menuen Hjælp - slip.

 

•Højreklik på makroen og vælg ’Skift Knapflade’ – vælg den ’Åbne bog’

 

•Højreklik endnu engang og ændre Navn: Journalisering.

 

Makroen er nu klar til brug.

 

Efter oprettelse af denne makro, er det vigtigt at man under ’Log in’ billedet i EG Bolig vælger ’Ændre Database’ og trykker på ’Opdater’.