Dim objWord As Word.Application
    Dim bigDoc As Word.Document
    Dim WordHeaderFooter As HeaderFooter
    If IsAppRunning("Word.Application") Then Set objWord = GetObject("Word.Application") Else Set objWord = CreateObject("Word.Application")
    Set bigDoc = objWord.Documents.add
    objWord.Visible = True
    With bigDoc
        .Sections(1).Headers(wdHeaderFooterPrimary).Range.Text = "Alle registrerede data vedr. PersonId: " & _
                                         Me.PersonID & " " & HentFMENavn(Me.PersonID)
        .Sections(1).Footers(wdHeaderFooterPrimary).Range.Text = "Dokumentet er sammensat pr. " & _
                       StrConv(Format(Date, "dddd"), vbProperCase) & " den " & Date
    End With

Dim wdApp As Word.Application, bStrt As Boolean
On Error Resume Next
bStrt = False ' Flag to record if we start Word, so we can close it later.
Set wdApp = GetObject(, "Word.Application")
'Start Word if it isn't running
If wdApp Is Nothing Then
  Set wdApp = CreateObject("Word.Application")
  If wdApp Is Nothing Then
    MsgBox "Can't start Word.", vbExclamation
    Exit Sub
  End If
  ' Record that we've started Word, so we can terminate it later.
  bStrt = True
End If
On Error GoTo 0
wdApp.Visible = True