modul funktion vil ikke åbne brev som flette brev

Jeg har følgende kode i et modul
-------------------------------------------
Public Function openletter()

Dim docname As String
Dim objword As Word.Application
Dim objdoc As Word.Document
Const ext As String = ".doc"
docname = Forms!Serviceind.Kombinationsboks15.Column(1)
On Error Resume Next
Set objword = GetObject(, "Word.Application")
Err.Clear
'On Error GoTo err_open
If objword Is Nothing Then
Set objword = GetObject("", "Word.Application")
'End If
objword.Visible = True
AppActivate "Microsoft Word"
objword.Documents.Open docname
'err_open:
'MsgBox "fejlkode: " & Err.Number
---------------------------------------------------

Den henter word sti og fil navn fra en kombi box.

Den henter det fint men vil ikke åbne brevet som et flettet dokument, selvom det er sådan et. den åbner det bare uden.