Tømme hukommelse

prøv at erstattr

WDApp = Nothing

med

WDApp.Quit

Det er korrekt at den tømmer hukommelsen MEN der vil ofte (men ikke altid) være andre dokumenter åbne - disse bliver i givet fald OGSÅ lukket!

hej Steen, du tjekker jo her i koden, så en linje mere, fortæller om du kan lukke word

'Undersøger om Word er startet
            On Error Resume Next
            WDApp = GetObject(, "Word.application")
            If Err.Number <> 0 Then
                'Ellers starter vi word
                WDApp = CreateObject("Word.Application")
                WDApp.Visible = False
                WDApp.Activate()
                IkkeStartet = true' NY
            End If


og slut med
if IkkeStartet then
  WDApp.Quit
  WDApp = Nothing
else
  WDApp = Nothing
end if

Hej

IkkeStartet skal vel dim'es som Boolean? eller hva'?
Bør der så stå:?

            On Error Resume Next
            WDApp = GetObject(, "Word.application")
            If Err.Number <> 0 Then
                'Ellers starter vi word
                WDApp = CreateObject("Word.Application")
                WDApp.Visible = False
                WDApp.Activate()
                IkkeStartet = true' NY
                else
                IkkeStartet = False
            End If


        If Ikkestartet = True Then
            WDApp.Quit(False)
            WDApp = Nothing
        Else
            WDApp = Nothing
        End If

yes, dim'es som Boolean
koden ser ok ud

nu har jeg ikke VB net, men hvad betyder False i
WDApp.Quit(False)

Jeg bemærkede at når word lukkede ned blev man spurgt om man ville gemme dokumentet - så jeg formoder at det betyder: Gem ikke :-)

Ovenstående kode fungerer fint når der IKKE er startet et dokument. Der et andet dokument er startet ser man at det nye dokument lukker op at det udfyldes med de ønskede data og efterfølgende udskrives men herefter sker der intet: Altså lukkes dokumentet ikke og dokumentet er synligt (hvilket måske ikke er så underligt). Koden afvikles MEGET langsomt når et andet dokument er åbent...mærkeligt!

jeg fandt lige denne kode,  jeg mener at denne linje

Set wdApp = New Word.Application

gør at word, starter en nu Word.exe op, så kan du bruge Quit


Sub Open_word()
        Dim wdApp As Word.Application
        Dim myDoc As Word.Document
        Dim mywdRange As Word.Range
        Set wdApp = New Word.Application
        With wdApp
            .Visible = False
            .WindowState = wdWindowStateMaximize
        End With
        ShettsName = ActiveSheet.Name
If ShettsName = "Mandskabsoplysninger" Then
        If WordformOplysninger.OptionButton1 = True Then
            Set myDoc = wdApp.Documents.Open("G:\skabeloner\Produktion\Vedr.dot")
        Else
            Set myDoc = wdApp.Documents.Open("G:\Produktion\skabeloner administration\Standard breve\snerydning.dot")
        End If
        Set mywdRange = myDoc.Words(1)
        With mywdRange
          .Text = Cells(ActiveCell.Row, 3) & Chr(13) & Chr(10) & Cells(ActiveCell.Row, 7) & Chr(13) & Chr(10) & Cells(ActiveCell.Row, 9) & Chr(13) & Chr(10) & ""
        End With
End If
End Sub

Hmm. Jeg har brugt noget tid på dette .....for lang tid faktisk. Jeg har istedet bedt brugeren om at lukke evt worddokumenter før de fortsætter - ikke den bedste måde men det fungerer :-/
Kan du gennemskue nedenstående problem (undskyld den lange kode). Når jeg Trykker "OK" til at printe labels tømmes hukommelsen korrekt - når jeg trykker cancel forbliver word åben:

        Dim FNavn As String, ENavn As String, Navn As String, Adr As String
        Dim Cpr As String, HCV As String, Postnr As String, By As String, PostBy As String, Tlf As String, Mobil As String, Arbejdstelefon As String
        Dim El As String, ElAdr As String, ElPostNr As String, ElBy As String, ElPostBy As String
        Dim Region As String, Kommune As String, HenvSygehus As String, HenvSygehus2 As String, Bemærkning As String, Behandling As String, Pacemaker As String, Pacemakertype As String, Reprocedure As String

        Dim Msg, Style, Title, Ctxt, Response, MyString
        Dim OpDato As String, IDato As String, IDag As String, IKl As String
        Dim PDag As String, PDato As String, PKl As String, PræDato As String, PræDag As String, PræTid As String, Sekr As String
        Dim Gemmesti As String, Hentsti As String
        Dim Filnavn As String

        With FrmStamData
            Cpr = .TextBox2.Text
            HCV = .TextBox1.Text
            FNavn = .TextBox3.Text
            ENavn = .TextBox4.Text
            Navn = .TextBox3.Text & " " & .TextBox4.Text
            Adr = .TextBox5.Text
            Postnr = .TextBox6.Text
            By = .TextBox7.Text
            PostBy = .TextBox6.Text & " " & .TextBox7.Text
            Tlf = .TextBox8.Text
            Mobil = .TextBox10.Text
            Arbejdstelefon = .TextBox10.Text
            Region = .ComboBox1.Text
            Kommune = .ComboBox2.Text
            El = .TextBox13.Text
            ElAdr = .TextBox14.Text
            ElPostNr = .TextBox15.Text
            ElBy = .TextBox16.Text
            ElPostBy = .TextBox15.Text & " " & .TextBox16.Text
            HenvSygehus = .ComboBox3.Text
            HenvSygehus2 = .ComboBox4.Text
            Bemærkning = .TextBox37.Text
            Behandling = .TextBox27.Text
            Pacemaker = .CheckBox5.Text
            Pacemakertype = .ComboBox6.Text
            Reprocedure = .CheckBox4.Text
            IDato = .TextBox23.Text
            IDag = .TextBox25.Text
            IKl = .TextBox24.Text
        End With

        MessageBox.Show("Luk alle worddokumenter før du fortsætter")


        ' Indkaldelser ---------------------------------------------------------------------------------------


        Gemmesti = "\\server\faelles\Index Data\Patienter\" & Cpr & "\"
        Dim D As DateTime
        D = Now.ToShortDateString

        Dim C As String
        C = Me.ComboBox1.Text
        If C <> "" Then

            ' Indkaldelser KAG/PCI ----------------------------------------------------------------------------

            If C = "KAG - indkaldelse Fyn" Then
                Hentsti = "\\server\faelles\Index\dokumenter\Sekretariat\Susanne\"
                Filnavn = "IndkaldelseKAGFyn.dot"

                'Undersøger om Word er startet
                On Error Resume Next
                WDApp = GetObject(, "Word.application")
                If Err.Number <> 0 Then
                    'Ellers starter vi word
                    WDApp = CreateObject("Word.Application")
                    WDApp.Visible = False
                    WDApp.Activate()
                End If

                'Opret et nyt Word dokument baseret på skabelonen
                WDApp.Documents.Add(Template:=Hentsti & Filnavn, NewTemplate:=False, DocumentType:=0)

                With WDApp.ActiveDocument
                    'Indsæt data i dokumentets bookmarks
                    .Bookmarks("Navn").Range.Text = Navn
                    .Bookmarks("Navn1").Range.Text = Navn
                    .Bookmarks("Adr").Range.Text = Adr
                    .Bookmarks("Adr1").Range.Text = Adr
                    .Bookmarks("PostBy").Range.Text = PostBy
                    .Bookmarks("PostBy1").Range.Text = PostBy
                    .Bookmarks("Cpr").Range.Text = Cpr
                    .Bookmarks("IKl").Range.Text = IKl
                    .Bookmarks("IDag").Range.Text = IDag
                    .Bookmarks("IDato").Range.Text = IDato
                    .SaveAs(Gemmesti & "IndkaldelseKAGFyn-" & D & ".doc")
                    .PrintOut(Background:=True)
                    .Close(False)
                End With

                WDApp = Nothing

                GoTo PCISkema

            ElseIf C = "KAG evt PCI indkaldelse - privat med priser" Then
                Hentsti = "\\server\faelles\Index\dokumenter\Sekretariat\Susanne\"
                Filnavn = "KAGevtPCIPriser.dot"

                'Undersøger om Word er startet
                On Error Resume Next
                WDApp = GetObject(, "Word.application")
                If Err.Number <> 0 Then
                    'Ellers starter vi word
                    WDApp = CreateObject("Word.Application")
                    WDApp.Visible = False
                    WDApp.Activate()
                End If

                'Opret et nyt Word dokument baseret på skabelonen
                WDApp.Documents.Add(Template:=Hentsti & Filnavn, NewTemplate:=False, DocumentType:=0)

                With WDApp.ActiveDocument
                    'Indsæt data i dokumentets bookmarks
                    .Bookmarks("Navn").Range.Text = Navn
                    .Bookmarks("Navn1").Range.Text = Navn
                    .Bookmarks("Adr").Range.Text = Adr
                    .Bookmarks("Adr1").Range.Text = Adr
                    .Bookmarks("PostBy").Range.Text = PostBy
                    .Bookmarks("PostBy1").Range.Text = PostBy
                    .Bookmarks("Cpr").Range.Text = Cpr
                    .Bookmarks("IKl").Range.Text = IKl
                    .Bookmarks("IDag").Range.Text = IDag
                    .Bookmarks("IDato").Range.Text = IDato
                    .SaveAs(Gemmesti & "KAGevtPCIPriser-" & D & ".doc")
                    .PrintOut(Background:=True)
                    .Close(False)
                End With

                WDApp = Nothing

                GoTo PCISkema

            ElseIf C = "KAG(evt PCI - indkaldelse)" Then
                Hentsti = "\\server\faelles\Index\dokumenter\Sekretariat\Susanne\"
                Filnavn = "IndkaldelseKAGevtPCI.dot"

                'Undersøger om Word er startet
                On Error Resume Next
                WDApp = GetObject(, "Word.application")
                If Err.Number <> 0 Then
                    'Ellers starter vi word
                    WDApp = CreateObject("Word.Application")
                    WDApp.Visible = False
                    WDApp.Activate()
                End If

                'Opret et nyt Word dokument baseret på skabelonen
                WDApp.Documents.Add(Template:=Hentsti & Filnavn, NewTemplate:=False, DocumentType:=0)

                With WDApp.ActiveDocument
                    'Indsæt data i dokumentets bookmarks
                    .Bookmarks("Navn").Range.Text = Navn
                    .Bookmarks("Navn1").Range.Text = Navn
                    .Bookmarks("Navn2").Range.Text = Navn
                    .Bookmarks("Adr").Range.Text = Adr
                    .Bookmarks("Adr1").Range.Text = Adr
                    .Bookmarks("Adr2").Range.Text = Adr
                    .Bookmarks("PostBy").Range.Text = PostBy
                    .Bookmarks("PostBy1").Range.Text = PostBy
                    .Bookmarks("PostBy2").Range.Text = PostBy
                    .Bookmarks("Cpr").Range.Text = Cpr
                    .Bookmarks("Cpr1").Range.Text = Cpr
                    .Bookmarks("IKl").Range.Text = IKl
                    .Bookmarks("IDag").Range.Text = IDag
                    .Bookmarks("IDato").Range.Text = IDato
                    .SaveAs(Gemmesti & "IndkaldelseKAGevtPCI-" & D & ".doc")
                    .PrintOut(Background:=True)
                    .Close(False)
                End With

                WDApp = Nothing

                GoTo PCISkema

            ElseIf C = "PCI" Then
                Hentsti = "\\server\faelles\Index\dokumenter\Sekretariat\Susanne\"
                Filnavn = "IndkaldelseTilPCIogKAG.dot"

                'Undersøger om Word er startet
                On Error Resume Next
                WDApp = GetObject(, "Word.application")
                If Err.Number <> 0 Then
                    'Ellers starter vi word
                    WDApp = CreateObject("Word.Application")
                    WDApp.Visible = False
                    WDApp.Activate()
                End If

                'Opret et nyt Word dokument baseret på skabelonen
                WDApp.Documents.Add(Template:=Hentsti & Filnavn, NewTemplate:=False, DocumentType:=0)

                With WDApp.ActiveDocument
                    'Indsæt data i dokumentets bookmarks
                    .Bookmarks("Cpr2").Range.Text = Cpr
                    .Bookmarks("Navn2").Range.Text = Navn
                    .Bookmarks("Navn3").Range.Text = Navn
                    .Bookmarks("Adr1").Range.Text = Adr
                    .Bookmarks("Adr3").Range.Text = Adr
                    .Bookmarks("PostBy1").Range.Text = PostBy
                    .Bookmarks("PostBy3").Range.Text = PostBy
                    .Bookmarks("IDato").Range.Text = IDato
                    .Bookmarks("IKl").Range.Text = IKl
                    .Bookmarks("IDag").Range.Text = IDag
                    .SaveAs(Gemmesti & "IndkaldelseTilPCIogKAG-" & D & ".doc")
                    .PrintOut(Background:=True)
                    .Close(False)
                End With

                WDApp = Nothing

                GoTo PCISkema

            ElseIf C = "PCI(udefra)" Then
                Hentsti = "\\server\faelles\Index\dokumenter\Sekretariat\Susanne\"
                Filnavn = "IndkaldelseTilPCIUdefra.dot"

                'Undersøger om Word er startet
                On Error Resume Next
                WDApp = GetObject(, "Word.application")
                If Err.Number <> 0 Then
                    'Ellers starter vi word
                    WDApp = CreateObject("Word.Application")
                    WDApp.Visible = False
                    WDApp.Activate()
                End If

                'Opret et nyt Word dokument baseret på skabelonen
                WDApp.Documents.Add(Template:=Hentsti & Filnavn, NewTemplate:=False, DocumentType:=0)

                With WDApp.ActiveDocument
                    'Indsæt data i dokumentets bookmarks
                    .Bookmarks("Cpr2").Range.Text = Cpr
                    .Bookmarks("Navn2").Range.Text = Navn
                    .Bookmarks("Navn3").Range.Text = Navn
                    .Bookmarks("Adr1").Range.Text = Adr
                    .Bookmarks("Adr3").Range.Text = Adr
                    .Bookmarks("PostBy1").Range.Text = PostBy
                    .Bookmarks("PostBy3").Range.Text = PostBy
                    .Bookmarks("IDato").Range.Text = IDato
                    .Bookmarks("IKl").Range.Text = IKl
                    .Bookmarks("IDag").Range.Text = IDag
                    .SaveAs(Gemmesti & "IndkaldelseTilPCIUdefra-" & D & ".doc")
                    .PrintOut(Background:=True)
                    .Close(False)
                End With

                WDApp = Nothing

                GoTo PCISkema

                ' Indkaldelser operationer -------------------------------------------------------------------------

            ElseIf C = "Operation" Then
                Hentsti = "\\server\faelles\Index\dokumenter\Sekretariat\Fælles\"
                Filnavn = "IndkaldelseTilOperation.dot"

                'Undersøger om Word er startet
                On Error Resume Next
                WDApp = GetObject(, "Word.application")
                If Err.Number <> 0 Then
                    'Ellers starter vi word
                    WDApp = CreateObject("Word.Application")
                    WDApp.Visible = False
                    WDApp.Activate()
                End If

                'Opret et nyt Word dokument baseret på skabelonen
                WDApp.Documents.Add(Template:=Hentsti & Filnavn, NewTemplate:=False, DocumentType:=0)

                With WDApp.ActiveDocument
                    'Indsæt data i dokumentets bookmarks
                    .Bookmarks("Navn").Range.Text = Navn
                    .Bookmarks("Adr").Range.Text = Adr
                    .Bookmarks("PostBy").Range.Text = PostBy
                    .Bookmarks("IKl").Range.Text = IKl
                    .Bookmarks("IDag").Range.Text = IDag
                    .Bookmarks("IDato").Range.Text = IDato
                    .SaveAs(Gemmesti & "IndkaldelsetilOperation-" & D & ".doc")
                    .PrintOut(Background:=True)
                    .Close(False)
                End With

                WDApp = Nothing

                GoTo OperationSkema

            ElseIf C = "Operation kun indkaldelse" Then
                Hentsti = "\\server\faelles\Index\dokumenter\Sekretariat\Fælles\"
                Filnavn = "IndkaldelseTilOperation.dot"

                'Undersøger om Word er startet
                On Error Resume Next
                WDApp = GetObject(, "Word.application")
                If Err.Number <> 0 Then
                    'Ellers starter vi word
                    WDApp = CreateObject("Word.Application")
                    WDApp.Visible = False
                    WDApp.Activate()
                End If

                'Opret et nyt Word dokument baseret på skabelonen
                WDApp.Documents.Add(Template:=Hentsti & Filnavn, NewTemplate:=False, DocumentType:=0)

                With WDApp.ActiveDocument
                    'Indsæt data i dokumentets bookmarks
                    .Bookmarks("Navn").Range.Text = Navn
                    .Bookmarks("Adr").Range.Text = Adr
                    .Bookmarks("PostBy").Range.Text = PostBy
                    .Bookmarks("IKl").Range.Text = IKl
                    .Bookmarks("IDag").Range.Text = IDag
                    .Bookmarks("IDato").Range.Text = IDato
                    .SaveAs(Gemmesti & "IndkaldelsetilOperation-" & D & ".doc")
                    .PrintOut(Background:=True)
                    .Close(False)
                End With

                WDApp = Nothing

                Exit Sub

            ElseIf C = "Præoperativ samtale" Then
                Dim DD As Date

                'FrmSekretær.Show
                Sekr = "Lotte B. Jørgensen"

                Hentsti = "\\server\faelles\Index\dokumenter\Sekretariat\Fælles\"
                Filnavn = "IndkaldelseTilPræsamtale1.dot"
                DD = CDate(FormatDateTime(Now, vbShortDate))

                'Undersøger om Word er startet
                On Error Resume Next
                WDApp = GetObject(, "Word.application")
                If Err.Number <> 0 Then
                    'Ellers starter vi word
                    WDApp = CreateObject("Word.Application")
                    WDApp.Visible = False
                    WDApp.Activate()
                End If

                'Opret et nyt Word dokument baseret på skabelonen
                WDApp.Documents.Add(Template:=Hentsti & Filnavn, NewTemplate:=False, DocumentType:=0)

                With WDApp.ActiveDocument
                    'Indsæt data i dokumentets bookmarks
                    .Bookmarks("Navn1").Range.Text = Navn
                    .Bookmarks("Navn2").Range.Text = Navn
                    .Bookmarks("Adr1").Range.Text = Adr
                    .Bookmarks("PostBy1").Range.Text = PostBy
                    .Bookmarks("PDag").Range.Text = InputBox("Indtast ugedag")
                    .Bookmarks("PDato").Range.Text = InputBox("Indtast dato")
                    .Bookmarks("PKl").Range.Text = InputBox("Indtast klokkeslæt")
                    .Bookmarks("Sekr1").Range.Text = Sekr
                    .Bookmarks("DD").Range.Text = DD
                    .SaveAs(Gemmesti & "IndkaldelseTilPræsamtale1-" & D & ".doc")
                    .PrintOut(Background:=True)
                    .Close(False)
                End With

                WDApp = Nothing

                GoTo OperationSkema


                ' Indkaldelser RFA --------------------------------------------------------------------------------

            ElseIf C = "RFA" Then
                Hentsti = "\\server\faelles\Index\dokumenter\Sekretariat\Lotte\"
                Filnavn = "IndkaldelseTilRFA.dot"

                'Undersøger om Word er startet
                On Error Resume Next
                WDApp = GetObject(, "Word.application")
                If Err.Number <> 0 Then
                    'Ellers starter vi word
                    WDApp = CreateObject("Word.Application")
                    WDApp.Visible = False
                    WDApp.Activate()
                End If

                'Opret et nyt Word dokument baseret på skabelonen
                WDApp.Documents.Add(Template:=Hentsti & Filnavn, NewTemplate:=False, DocumentType:=0)

                With WDApp.ActiveDocument
                    'Indsæt data i dokumentets bookmarks
                    .Bookmarks("Navn").Range.Text = Navn
                    .Bookmarks("Adr").Range.Text = Adr
                    .Bookmarks("PostBy").Range.Text = PostBy
                    .Bookmarks("IKl").Range.Text = IKl
                    .Bookmarks("IDag").Range.Text = IDag
                    .Bookmarks("IDato").Range.Text = IDato
                    .Bookmarks("FNavn").Range.Text = FNavn
                    .Bookmarks("ENavn").Range.Text = ENavn
                    .Bookmarks("Cpr").Range.Text = Cpr
                    .Bookmarks("Adr1").Range.Text = Adr
                    .Bookmarks("PostBy1").Range.Text = PostBy
                    .Bookmarks("Hcv").Range.Text = HCV
                    .SaveAs(Gemmesti & "IndkaldelseTilRFA-" & D & ".doc")
                    .PrintOut(Background:=True)
                    .Close(False)
                End With

                WDApp = Nothing

                GoTo RFASkema

            ElseIf C = "AFLA" Then
                Hentsti = "\\server\faelles\Index\dokumenter\Sekretariat\Lotte\"
                Filnavn = "IndkaldelseTilAFLA.dot"

                'Undersøger om Word er startet
                On Error Resume Next
                WDApp = GetObject(, "Word.application")
                If Err.Number <> 0 Then
                    'Ellers starter vi word
                    WDApp = CreateObject("Word.Application")
                    WDApp.Visible = False
                    WDApp.Activate()
                End If

                'Opret et nyt Word dokument baseret på skabelonen
                WDApp.Documents.Add(Template:=Hentsti & Filnavn, NewTemplate:=False, DocumentType:=0)

                With WDApp.ActiveDocument
                    'Indsæt data i dokumentets bookmarks
                    .Bookmarks("Navn").Range.Text = Navn
                    .Bookmarks("Adr").Range.Text = Adr
                    .Bookmarks("PostBy").Range.Text = PostBy
                    .Bookmarks("IKl").Range.Text = IKl
                    .Bookmarks("IDag").Range.Text = IDag
                    .Bookmarks("IDato").Range.Text = IDato
                    .Bookmarks("FNavn").Range.Text = FNavn
                    .Bookmarks("ENavn").Range.Text = ENavn
                    .Bookmarks("Cpr").Range.Text = Cpr
                    .Bookmarks("Adr1").Range.Text = Adr
                    .Bookmarks("PostBy1").Range.Text = PostBy
                    .Bookmarks("Hcv").Range.Text = HCV
                    .SaveAs(Gemmesti & "IndkaldelseTilAFLA-" & D & ".doc")
                    .PrintOut(Background:=True)
                    .Close(False)
                End With

                WDApp = Nothing

                GoTo RFASkema

            ElseIf C = "AFLI" Then
                Hentsti = "\\server\faelles\Index\dokumenter\Sekretariat\Lotte\"
                Filnavn = "IndkaldelseTilAFLI.dot"

                'Undersøger om Word er startet
                On Error Resume Next
                WDApp = GetObject(, "Word.application")
                If Err.Number <> 0 Then
                    'Ellers starter vi word
                    WDApp = CreateObject("Word.Application")
                    WDApp.Visible = False
                    WDApp.Activate()
                End If

                'Opret et nyt Word dokument baseret på skabelonen
                WDApp.Documents.Add(Template:=Hentsti & Filnavn, NewTemplate:=False, DocumentType:=0)

                With WDApp.ActiveDocument
                    'Indsæt data i dokumentets bookmarks
                    .Bookmarks("Navn").Range.Text = Navn
                    .Bookmarks("Adr").Range.Text = Adr
                    .Bookmarks("PostBy").Range.Text = PostBy
                    .Bookmarks("IKl").Range.Text = IKl
                    .Bookmarks("IDag").Range.Text = IDag
                    .Bookmarks("IDato").Range.Text = IDato
                    .SaveAs(Gemmesti & "IndkaldelseTilAFLI-" & D & ".doc")
                    .PrintOut(Background:=True)
                    .Close(False)
                End With

                WDApp = Nothing

                GoTo RFASkema

                ' Indkaldelser Ekko -----------------------------------------------------------------------------

            ElseIf C = "Ekko" Then

                Hentsti = "\\server\faelles\Index\dokumenter\Sekretariat\Susanne\"
                Filnavn = "IndkaldelseEkko.dot"

                'Undersøger om Word er startet
                On Error Resume Next
                WDApp = GetObject(, "Word.application")
                If Err.Number <> 0 Then
                    'Ellers starter vi word
                    WDApp = CreateObject("Word.Application")
                    WDApp.Visible = False
                    WDApp.Activate()
                End If

                'Opret et nyt Word dokument baseret på skabelonen
                WDApp.Documents.Add(Template:=Hentsti & Filnavn, NewTemplate:=False, DocumentType:=0)

                With WDApp.ActiveDocument
                    'Indsæt data i dokumentets bookmarks
                    .Bookmarks("Navn").Range.Text = Navn
                    .Bookmarks("Navn1").Range.Text = Navn
                    .Bookmarks("Adr").Range.Text = Adr
                    .Bookmarks("PostBy").Range.Text = PostBy
                    .Bookmarks("Kl").Range.Text = IKl
                    .Bookmarks("Ugedag").Range.Text = IDag
                    .Bookmarks("Dato").Range.Text = IDato
                    .SaveAs(Gemmesti & "IndkaldelseEkko-" & D & ".doc")
                    .PrintOut(Background:=True)
                    .Close(False)
                End With

                WDApp = Nothing

                GoTo OPForside

            ElseIf C = "Ekko privat" Then

                Hentsti = "\\server\faelles\Index\dokumenter\Sekretariat\Susanne\"
                Filnavn = "IndkaldelseEkkoPrivat.dot"

                'Undersøger om Word er startet
                On Error Resume Next
                WDApp = GetObject(, "Word.application")
                If Err.Number <> 0 Then
                    'Ellers starter vi word
                    WDApp = CreateObject("Word.Application")
                    WDApp.Visible = False
                    WDApp.Activate()
                End If

                'Opret et nyt Word dokument baseret på skabelonen
                WDApp.Documents.Add(Template:=Hentsti & Filnavn, NewTemplate:=False, DocumentType:=0)

                With WDApp.ActiveDocument
                    'Indsæt data i dokumentets bookmarks
                    .Bookmarks("Navn").Range.Text = Navn
                    .Bookmarks("Navn1").Range.Text = Navn
                    .Bookmarks("Adr").Range.Text = Adr
                    .Bookmarks("PostBy").Range.Text = PostBy
                    .Bookmarks("Kl").Range.Text = IKl
                    .Bookmarks("Ugedag").Range.Text = IDag
                    .Bookmarks("Dato").Range.Text = IDato
                    .SaveAs(Gemmesti & "IndkaldelseEkkoPrivat-" & D & ".doc")
                    .PrintOut(Background:=True)
                    .Close(False)
                End With

                WDApp = Nothing

                GoTo OPForside

            ElseIf C = "Helbredsundersøgelse" Then

                Hentsti = "\\server\faelles\Index\dokumenter\Sekretariat\Susanne\"
                Filnavn = "IndkaldelseHelbredsUS.dot"

                'Undersøger om Word er startet
                On Error Resume Next
                WDApp = GetObject(, "Word.application")
                If Err.Number <> 0 Then
                    'Ellers starter vi word
                    WDApp = CreateObject("Word.Application")
                    WDApp.Visible = False
                    WDApp.Activate()
                End If

                'Opret et nyt Word dokument baseret på skabelonen
                WDApp.Documents.Add(Template:=Hentsti & Filnavn, NewTemplate:=False, DocumentType:=0)

                With WDApp.ActiveDocument
                    'Indsæt data i dokumentets bookmarks
                    .Bookmarks("Navn").Range.Text = Navn
                    .Bookmarks("Navn1").Range.Text = Navn
                    .Bookmarks("Adr").Range.Text = Adr
                    .Bookmarks("PostBy").Range.Text = PostBy
                    .Bookmarks("Kl").Range.Text = IKl
                    .Bookmarks("Ugedag").Range.Text = IDag
                    .Bookmarks("Dato").Range.Text = IDato
                    .SaveAs(Gemmesti & "IndkaldelseHelbredsUS-" & D & ".doc")
                    .PrintOut(Background:=True)
                    .Close(False)
                End With

                WDApp = Nothing

                GoTo OPForside

            ElseIf C = "Ståltrådsfjernelse" Then

                PDag = InputBox("Indtast ugedag")
                PDato = InputBox("Indtast dato")

                Hentsti = "\\server\faelles\Index\dokumenter\Sekretariat\Fælles\"
                Filnavn = "IndkaldelseStåltrådsfjernelse.dot"

                'Undersøger om Word er startet
                On Error Resume Next
                WDApp = GetObject(, "Word.application")
                If Err.Number <> 0 Then
                    'Ellers starter vi word
                    WDApp = CreateObject("Word.Application")
                    WDApp.Visible = False
                    WDApp.Activate()
                End If

                'Opret et nyt Word dokument baseret på skabelonen
                WDApp.Documents.Add(Template:=Hentsti & Filnavn, NewTemplate:=False, DocumentType:=0)

                With WDApp.ActiveDocument
                    'Indsæt data i dokumentets bookmarks
                    .Bookmarks("Navn1").Range.Text = Navn
                    .Bookmarks("Navn2").Range.Text = Navn
                    .Bookmarks("Adr1").Range.Text = Adr
                    .Bookmarks("PostBy1").Range.Text = PostBy
                    .Bookmarks("PDag").Range.Text = PDag
                    .Bookmarks("PDato").Range.Text = PDato
                    .SaveAs(Gemmesti & "IndkaldelseStåltrådsfjernelse-" & D & ".doc")
                    .PrintOut(Background:=True)
                    .Close(False)
                End With

                WDApp = Nothing

                GoTo OPForside

                ' Indkaldelser CT skanning ---------------------------------------------------------------------

            ElseIf C = "ALm u betaling evt kontrast" Then

                Hentsti = "\\server\faelles\Index\dokumenter\Sekretariat\CT skanning\"
                Filnavn = "ALmubetalingevtkontrast.dot"

                'Undersøger om Word er startet
                On Error Resume Next
                WDApp = GetObject(, "Word.application")
                If Err.Number <> 0 Then
                    'Ellers starter vi word
                    WDApp = CreateObject("Word.Application")
                    WDApp.Visible = False
                    WDApp.Activate()
                End If

                'Opret et nyt Word dokument baseret på skabelonen
                WDApp.Documents.Add(Template:=Hentsti & Filnavn, NewTemplate:=False, DocumentType:=0)

                With WDApp.ActiveDocument
                    'Indsæt data i dokumentets bookmarks
                    .Bookmarks("Navn").Range.Text = Navn
                    .Bookmarks("Adr").Range.Text = Adr
                    .Bookmarks("Postnr").Range.Text = Postnr
                    .Bookmarks("By").Range.Text = By
                    .Bookmarks("IKl").Range.Text = IKl
                    .Bookmarks("Idag").Range.Text = IDag
                    .Bookmarks("IDato").Range.Text = IDato
                    .Bookmarks("DagsDato").Range.Text = D
                    .SaveAs(Gemmesti & "IndkaldelseCT-uden-betaling-" & D & ".doc")
                    .PrintOut(Background:=True)
                    .Close(False)
                End With

                WDApp = Nothing

                GoTo OPForside

            ElseIf C = "ALm u betaling" Then

                Hentsti = "\\server\faelles\Index\dokumenter\Sekretariat\CT skanning\"
                Filnavn = "ALmubetaling.dot"

                'Undersøger om Word er startet
                On Error Resume Next
                WDApp = GetObject(, "Word.application")
                If Err.Number <> 0 Then
                    'Ellers starter vi word
                    WDApp = CreateObject("Word.Application")
                    WDApp.Visible = False
                    WDApp.Activate()
                End If

                'Opret et nyt Word dokument baseret på skabelonen
                WDApp.Documents.Add(Template:=Hentsti & Filnavn, NewTemplate:=False, DocumentType:=0)

                With WDApp.ActiveDocument
                    'Indsæt data i dokumentets bookmarks
                    .Bookmarks("Navn").Range.Text = Navn
                    .Bookmarks("Adr").Range.Text = Adr
                    .Bookmarks("Postnr").Range.Text = Postnr
                    .Bookmarks("By").Range.Text = By
                    .Bookmarks("IKl").Range.Text = IKl
                    .Bookmarks("Idag").Range.Text = IDag
                    .Bookmarks("IDato").Range.Text = IDato
                    .Bookmarks("DagsDato").Range.Text = D
                    .SaveAs(Gemmesti & "IndkaldelseCT-Alm-uden-betaling-" & D & ".doc")
                    .PrintOut(Background:=True)
                    .Close(False)
                End With

                WDApp = Nothing

                GoTo OPForside

            ElseIf C = "CT brev hjerte" Then

                Hentsti = "\\server\faelles\Index\dokumenter\Sekretariat\CT skanning\"
                Filnavn = "CTbrevhjerte.dot"

                'Undersøger om Word er startet
                On Error Resume Next
                WDApp = GetObject(, "Word.application")
                If Err.Number <> 0 Then
                    'Ellers starter vi word
                    WDApp = CreateObject("Word.Application")
                    WDApp.Visible = False
                    WDApp.Activate()
                End If

                'Opret et nyt Word dokument baseret på skabelonen
                WDApp.Documents.Add(Template:=Hentsti & Filnavn, NewTemplate:=False, DocumentType:=0)

                With WDApp.ActiveDocument
                    'Indsæt data i dokumentets bookmarks
                    .Bookmarks("Navn").Range.Text = Navn
                    .Bookmarks("Adr").Range.Text = Adr
                    .Bookmarks("Postnr").Range.Text = Postnr
                    .Bookmarks("By").Range.Text = By
                    .Bookmarks("IKl").Range.Text = IKl
                    .Bookmarks("Idag").Range.Text = IDag
                    .Bookmarks("IDato").Range.Text = IDato
                    .Bookmarks("DagsDato").Range.Text = D
                    .SaveAs(Gemmesti & "CT-brev-hjerte-" & D & ".doc")
                    .PrintOut(Background:=True)
                    .Close(False)
                End With

                WDApp = Nothing

                GoTo OPForside

            ElseIf C = "kontrast brev almindelig" Then

                Hentsti = "\\server\faelles\Index\dokumenter\Sekretariat\CT skanning\"
                Filnavn = "kontrastbrevalmindelig.dot"

                'Undersøger om Word er startet
                On Error Resume Next
                WDApp = GetObject(, "Word.application")
                If Err.Number <> 0 Then
                    'Ellers starter vi word
                    WDApp = CreateObject("Word.Application")
                    WDApp.Visible = False
                    WDApp.Activate()
                End If

                'Opret et nyt Word dokument baseret på skabelonen
                WDApp.Documents.Add(Template:=Hentsti & Filnavn, NewTemplate:=False, DocumentType:=0)

                With WDApp.ActiveDocument
                    'Indsæt data i dokumentets bookmarks
                    .Bookmarks("Navn").Range.Text = Navn
                    .Bookmarks("Adr").Range.Text = Adr
                    .Bookmarks("Postnr").Range.Text = Postnr
                    .Bookmarks("By").Range.Text = By
                    .Bookmarks("IKl").Range.Text = IKl
                    .Bookmarks("Idag").Range.Text = IDag
                    .Bookmarks("IDato").Range.Text = IDato
                    .Bookmarks("DagsDato").Range.Text = D
                    .SaveAs(Gemmesti & "kontrast-brev-almindelig-" & D & ".doc")
                    .PrintOut(Background:=True)
                    .Close(False)
                End With

                WDApp = Nothing

                GoTo OPForside

            ElseIf C = "kontrast brev til urografi" Then

                Hentsti = "\\server\faelles\Index\dokumenter\Sekretariat\CT skanning\"
                Filnavn = "kontrastbrevtilurografi.dot"

                'Undersøger om Word er startet
                On Error Resume Next
                WDApp = GetObject(, "Word.application")
                If Err.Number <> 0 Then
                    'Ellers starter vi word
                    WDApp = CreateObject("Word.Application")
                    WDApp.Visible = False
                    WDApp.Activate()
                End If

                'Opret et nyt Word dokument baseret på skabelonen
                WDApp.Documents.Add(Template:=Hentsti & Filnavn, NewTemplate:=False, DocumentType:=0)

                With WDApp.ActiveDocument
                    'Indsæt data i dokumentets bookmarks
                    .Bookmarks("Navn").Range.Text = Navn
                    .Bookmarks("Adr").Range.Text = Adr
                    .Bookmarks("Postnr").Range.Text = Postnr
                    .Bookmarks("By").Range.Text = By
                    .Bookmarks("IKl").Range.Text = IKl
                    .Bookmarks("Idag").Range.Text = IDag
                    .Bookmarks("IDato").Range.Text = IDato
                    .Bookmarks("DagsDato").Range.Text = D
                    .SaveAs(Gemmesti & "kontrast-brev-til-urografi-" & D & ".doc")
                    .PrintOut(Background:=True)
                    .Close(False)
                End With

                WDApp = Nothing

                GoTo OPForside

            ElseIf C = "kontrast brev CT" Then

                Hentsti = "\\server\faelles\Index\dokumenter\Sekretariat\CT skanning\"
                Filnavn = "kontrastbrevtilCT.dot"

                'Undersøger om Word er startet
                On Error Resume Next
                WDApp = GetObject(, "Word.application")
                If Err.Number <> 0 Then
                    'Ellers starter vi word
                    WDApp = CreateObject("Word.Application")
                    WDApp.Visible = False
                    WDApp.Activate()
                End If

                'Opret et nyt Word dokument baseret på skabelonen
                WDApp.Documents.Add(Template:=Hentsti & Filnavn, NewTemplate:=False, DocumentType:=0)

                With WDApp.ActiveDocument
                    'Indsæt data i dokumentets bookmarks
                    .Bookmarks("Navn").Range.Text = Navn
                    .Bookmarks("Adr").Range.Text = Adr
                    .Bookmarks("Postnr").Range.Text = Postnr
                    .Bookmarks("By").Range.Text = By
                    .Bookmarks("IKl").Range.Text = IKl
                    .Bookmarks("Idag").Range.Text = IDag
                    .Bookmarks("IDato").Range.Text = IDato
                    .Bookmarks("DagsDato").Range.Text = D
                    .SaveAs(Gemmesti & "kontrast-brev-til-CT-" & D & ".doc")
                    .PrintOut(Background:=True)
                    .Close(False)
                End With

                WDApp = Nothing

                GoTo OPForside

            ElseIf C = "p.o kontrast brev" Then

                Hentsti = "\\server\faelles\Index\dokumenter\Sekretariat\CT skanning\"
                Filnavn = "pokontrastbrev.dot"

                'Undersøger om Word er startet
                On Error Resume Next
                WDApp = GetObject(, "Word.application")
                If Err.Number <> 0 Then
                    'Ellers starter vi word
                    WDApp = CreateObject("Word.Application")
                    WDApp.Visible = False
                    WDApp.Activate()
                End If

                'Opret et nyt Word dokument baseret på skabelonen
                WDApp.Documents.Add(Template:=Hentsti & Filnavn, NewTemplate:=False, DocumentType:=0)

                With WDApp.ActiveDocument
                    'Indsæt data i dokumentets bookmarks
                    .Bookmarks("Navn").Range.Text = Navn
                    .Bookmarks("Adr").Range.Text = Adr
                    .Bookmarks("Postnr").Range.Text = Postnr
                    .Bookmarks("By").Range.Text = By
                    .Bookmarks("IKl").Range.Text = IKl
                    .Bookmarks("Idag").Range.Text = IDag
                    .Bookmarks("IDato").Range.Text = IDato
                    .Bookmarks("DagsDato").Range.Text = D
                    .SaveAs(Gemmesti & "p.o-kontrast-brev-" & D & ".doc")
                    .PrintOut(Background:=True)
                    .Close(False)
                End With

                WDApp = Nothing

                GoTo OPForside

            End If

        End If

        'Skemaer ----------------------------------------------------------------------------------

RFASkema:

        Hentsti = "\\server\faelles\Index\dokumenter\Stamdata\"
        Filnavn = "StamdataRFA.dot"

        'Undersøger om Word er startet
        On Error Resume Next
        WDApp = GetObject(, "Word.application")
        If Err.Number <> 0 Then
            'Ellers starter vi word
            WDApp = CreateObject("Word.Application")
            WDApp.Visible = False
            WDApp.Activate()
        End If

        'Opret et nyt Word dokument baseret på skabelonen
        WDApp.Documents.Add(Template:=Hentsti & Filnavn, NewTemplate:=False, DocumentType:=0)

        With WDApp.ActiveDocument
            .Bookmarks("Cpr").Range.Text = Cpr
            .Bookmarks("Fornavn").Range.Text = FNavn
            .Bookmarks("Efternavn").Range.Text = ENavn
            .Bookmarks("Hcv").Range.Text = HCV
            .Bookmarks("Adresse").Range.Text = Adr
            .Bookmarks("Postnr").Range.Text = Postnr
            .Bookmarks("By").Range.Text = By
            .PrintOut(Background:=True)
            .Close(False)
        End With

        WDApp = Nothing

        GoTo RFAForside

PCISkema:

        Hentsti = "\\server\faelles\Index\dokumenter\Stamdata\"
        Filnavn = "StamdataPCI.dot"

        'Undersøger om Word er startet
        On Error Resume Next
        WDApp = GetObject(, "Word.application")
        If Err.Number <> 0 Then
            'Ellers starter vi word
            WDApp = CreateObject("Word.Application")
            WDApp.Visible = False
            WDApp.Activate()
        End If

        'Opret et nyt Word dokument baseret på skabelonen
        WDApp.Documents.Add(Template:=Hentsti & Filnavn, NewTemplate:=False, DocumentType:=0)

        With WDApp.ActiveDocument
            .Bookmarks("Cpr").Range.Text = Cpr
            .Bookmarks("Fornavn").Range.Text = FNavn
            .Bookmarks("Efternavn").Range.Text = ENavn
            .Bookmarks("Hcv").Range.Text = HCV
            .Bookmarks("Adresse").Range.Text = Adr
            .Bookmarks("Postnr").Range.Text = Postnr
            .Bookmarks("By").Range.Text = By
            .PrintOut(Background:=True)
            .Close(False)
        End With

        WDApp = Nothing

        GoTo PCIForside

OperationSkema:

        Hentsti = "\\server\faelles\Index\dokumenter\Stamdata\"
        Filnavn = "Stamdata.dot"

        'Undersøger om Word er startet
        On Error Resume Next
        WDApp = GetObject(, "Word.application")
        If Err.Number <> 0 Then
            'Ellers starter vi word
            WDApp = CreateObject("Word.Application")
            WDApp.Visible = False
            WDApp.Activate()
        End If

        'Opret et nyt Word dokument baseret på skabelonen
        WDApp.Documents.Add(Template:=Hentsti & Filnavn, NewTemplate:=False, DocumentType:=0)

        With WDApp.ActiveDocument
            .Bookmarks("Cpr").Range.Text = Cpr
            .Bookmarks("Fornavn").Range.Text = FNavn
            .Bookmarks("Efternavn").Range.Text = ENavn
            .Bookmarks("Hcv").Range.Text = HCV
            .Bookmarks("Adresse").Range.Text = Adr
            .Bookmarks("Postnr").Range.Text = Postnr
            .Bookmarks("By").Range.Text = By
            .PrintOut(Background:=True)
            .Close(False)
        End With

        WDApp = Nothing

        GoTo OPForside


        'Forsider ------------------------------------------------------------------------------------------

RFAForside:

        Gemmesti = "\\server\faelles\Index\dokumenter\Sekretariat\Lotte\"
        Filnavn = "ForsideTilRFA.dot"

        'Undersøger om Word er startet
        On Error Resume Next
        WDApp = GetObject(, "Word.application")
        If Err.Number <> 0 Then
            'Ellers starter vi word
            WDApp = CreateObject("Word.Application")
            WDApp.Visible = False
            WDApp.Activate()
        End If

        'Opret et nyt Word dokument baseret på skabelonen
        WDApp.Documents.Add(Template:=Gemmesti & Filnavn, NewTemplate:=False, DocumentType:=0)

        With WDApp.ActiveDocument
            'Indsæt data i dokumentets bookmarks
            .Bookmarks("Cpr").Range.Text = Cpr
            .Bookmarks("Hcv").Range.Text = HCV
            .Bookmarks("Navn").Range.Text = FNavn & " " & ENavn
            .Bookmarks("Adr").Range.Text = Adr
            .Bookmarks("PostBy").Range.Text = Postnr & " " & By
            .Bookmarks("Tlf").Range.Text = Tlf
            .Bookmarks("Mobil").Range.Text = Mobil
            .Bookmarks("Arbejdstelefon").Range.Text = Arbejdstelefon
            .Bookmarks("Amt").Range.Text = Region
            .Bookmarks("El").Range.Text = El
            .Bookmarks("ElAdr").Range.Text = ElAdr
            .Bookmarks("ElPostBy").Range.Text = ElPostNr & " " & ElBy
            .Bookmarks("HenvSygehus").Range.Text = HenvSygehus
            .Bookmarks("HenvSygehus2").Range.Text = HenvSygehus2
            .Bookmarks("Bemærkning").Range.Text = Bemærkning
            .Bookmarks("Behandling").Range.Text = Behandling
            If FrmStamData.CheckBox5.Checked = True Then
                .Bookmarks("Pacemaker").Range.Text = "X"
            End If
            If FrmStamData.CheckBox4.Checked = True Then
                .Bookmarks("Reprocedure").Range.Text = "X"
            End If
            .Bookmarks("PacemakerType").Range.Text = Pacemakertype
            .Bookmarks("IDato").Range.Text = IDato
            .Bookmarks("IKl").Range.Text = IKl
            .PrintOut(Background:=True)
            .Close(False)
        End With

        WDApp = Nothing

        GoTo Labels

PCIForside:

        Gemmesti = "\\server\faelles\Index\dokumenter\Sekretariat\Susanne\"
        Filnavn = "ForsideTilPCI.dot"

        'Undersøger om Word er startet
        On Error Resume Next
        WDApp = GetObject(, "Word.application")
        If Err.Number <> 0 Then
            'Ellers starter vi word
            WDApp = CreateObject("Word.Application")
            WDApp.Visible = False
            WDApp.Activate()
        End If

        'Opret et nyt Word dokument baseret på skabelonen
        WDApp.Documents.Add(Template:=Gemmesti & Filnavn, NewTemplate:=False, DocumentType:=0)

        With WDApp.ActiveDocument
            'Indsæt data i dokumentets bookmarks
            .Bookmarks("Cpr").Range.Text = Cpr
            .Bookmarks("Hcv").Range.Text = HCV
            .Bookmarks("Fornavn").Range.Text = FNavn
            .Bookmarks("Efternavn").Range.Text = ENavn
            .Bookmarks("Adr").Range.Text = Adr
            .Bookmarks("PostBy").Range.Text = Postnr & " " & By
            .Bookmarks("Telefon").Range.Text = Tlf
            .Bookmarks("IDato").Range.Text = IDato
            .Bookmarks("IKl").Range.Text = IKl
            .Bookmarks("Mobil").Range.Text = Mobil
            .Bookmarks("Arbejdstelefon").Range.Text = Arbejdstelefon
            .Bookmarks("Amt").Range.Text = Region
            .Bookmarks("OpType").Range.Text = Behandling
            .Bookmarks("El").Range.Text = El
            .Bookmarks("ElAdr").Range.Text = ElAdr
            .Bookmarks("ElPostBy").Range.Text = ElPostNr & " " & ElBy
            .Bookmarks("HenvSygehus").Range.Text = HenvSygehus
            .PrintOut(Background:=True)
            .Close(False)
        End With

        WDApp = Nothing

        GoTo Labels

OPForside:

        Gemmesti = "\\server\faelles\Index\dokumenter\Sekretariat\Fælles\"
        Filnavn = "ForsideTilCABG.dot"

        'Undersøger om Word er startet
        On Error Resume Next
        WDApp = GetObject(, "Word.application")
        If Err.Number <> 0 Then
            'Ellers starter vi word
            WDApp = CreateObject("Word.Application")
            WDApp.Visible = False
            WDApp.Activate()
        End If

        'Opret et nyt Word dokument baseret på skabelonen
        WDApp.Documents.Add(Template:=Gemmesti & Filnavn, NewTemplate:=False, DocumentType:=0)

        With WDApp.ActiveDocument
            'Indsæt data i dokumentets bookmarks
            .Bookmarks("Cpr1").Range.Text = Cpr
            .Bookmarks("Hcv1").Range.Text = HCV
            .Bookmarks("Navn1").Range.Text = FNavn & " " & ENavn
            .Bookmarks("Adr1").Range.Text = Adr
            .Bookmarks("PostBy1").Range.Text = Postnr & " " & By
            .Bookmarks("Tlf1").Range.Text = Tlf
            .Bookmarks("IDato1").Range.Text = IDato
            .Bookmarks("Mobil").Range.Text = Mobil
            .Bookmarks("Arbejdstelefon").Range.Text = Arbejdstelefon
            .Bookmarks("OpType1").Range.Text = Behandling
            .Bookmarks("El1").Range.Text = El
            .Bookmarks("ElAdr1").Range.Text = ElAdr
            .Bookmarks("ElPostBy1").Range.Text = ElPostNr & " " & ElBy
            .PrintOut(Background:=True)
            .Close(False)
        End With

        WDApp = Nothing

        GoTo Labels

        'Labels ----------------------------------------------------------------------------------------

Labels:

        '--------- Labels
        Msg = "Læg labels i printeren!"    ' Define message.
        'Style = vbYesNo + vbDefaultButton2    ' Define buttons.
        Style = vbOKCancel + vbDefaultButton2    ' Define buttons.
        Title = "Meddelelsesbox"    ' Define title.
        Response = MsgBox(Msg, Style, Title)
        If Response = vbOK Then

            Gemmesti = "\\server\faelles\Index\dokumenter\Sekretariat\Labels\"
            Filnavn = "Labels.dot"

            'Undersøger om Word er startet
            On Error Resume Next
            WDApp = GetObject(, "Word.application")
            If Err.Number <> 0 Then
                'Ellers starter vi word
                WDApp = CreateObject("Word.Application")
                WDApp.Visible = False
                WDApp.Activate()
            End If

            'Opret et nyt Word dokument baseret på skabelonen
            WDApp.Documents.Add(Template:=Gemmesti & Filnavn, NewTemplate:=False, DocumentType:=0)

            With WDApp.ActiveDocument

                'Indsæt data i dokumentets bookmarks
                Dim I As Long
                For I = 1 To 55
                    .Bookmarks("Cpr" & I).Range.Text = Cpr
                    .Bookmarks("Hcv" & I).Range.Text = HCV
                Next I

                For I = 1 To 60
                    .Bookmarks("FNavn" & I).Range.Text = FNavn & " " & ENavn
                Next I

                For I = 56 To 60
                    .Bookmarks("Adr" & I).Range.Text = Adr
                    .Bookmarks("PostBy" & I).Range.Text = Postnr & " " & By
                Next I
                .PrintOut(Background:=True)
                .ActiveDocument.Close(False)

            End With

            GoTo Slut

        Else

            WDApp.Quit(False)
            WDApp = Nothing

        End If

Slut:
        WDApp.Quit(False)
        WDApp = Nothing

        Me.Close()

Besynderligt. Hvis jeg koder sådan fungerer det. Nå man skal jo ikke forstå ALT!
Svar lige så jeg kan give dig nogle point for altid at være en ihærdig hjælper.

vh Steen

        Else
            On Error Resume Next
            WDApp = GetObject(, "Word.application")
            If Err.Number <> 0 Then
                'Ellers starter vi word
                WDApp = CreateObject("Word.Application")
                WDApp.Visible = False
                WDApp.Activate()
            End If

            WDApp.Quit(False)
            WDApp = Nothing

        End If

et svar;-))