word -> pdf (via macro)

Hejsa

Jeg har fået fat i en lille makrokode til dette foremål, men problemet er at den ikke virker som jge vil have det. Meningen er at man inde fra word kan konvertere alle wordfiler i et givent katalog (mappe) til PDF. I kan se på koden og fortælle mig om jeg kan lave det bedre ?? så, her kommer den:
Function ConvertFile(strSourceFileName As String) As String
On Error GoTo ErrorHandler

Dim msWord As Word.Application
Set msWord = GetObject(Class:="Word.Application.9")

msWord.Visible = True
msWord.ActivePrinter = "Acrobat Distiller"
msWord.Documents.Open strSourceFileName
msWord.ActiveDocument.PrintOut
msWord.ActiveDocument.Close False

' Should check and quit word when done
Set msWord = Nothing
ConvertFile = True
Exit Function

'////////////////////////////////////////////////////
ErrorHandler:
' Opret Word hvis ikke aktiv
If Err.Number = 429 Then
Set msWord = CreateObject("Word.Application.9")
Err.Clear ' slet fejlmeddelelse hvis den fremkommer
Resume
End If

' Andre fejlmeddelelser behandles her
If IsCriticalError Then
ConvertFile = False
Exit Function
Else
Resume
End If
End Function

'///////////////////////////////////////////////////
'///////////////////////////////////////////////////

Private Function IsCriticalError() As Boolean
Dim strErrorMessage As String
Select Case Err.Number ' Evaluate error number.
Case Else
strErrorMessage = "Please contact xess66@hotmail.com and inform them that" & Chr$(13) & _
"the error message reported by the operating system was " & Chr$(13) & _
Chr$(34) + Trim(Str(Err.Number)) & " " & Err.Description + Chr$(34)
MsgBox strErrorMessage, , "Conversion error" + Str(Err.Number)
IsCriticalError = True
Exit Function
End Select
IsCriticalError = False
End Function

Sub btnConvert_Click()
Dim strFileToConvert As String
Dim strFolder As String

' Sæt stien til wordfilerne
strFolder = InputBox("Indtast stien til wordfilerne", "STI TIL WORDFILER", "d:\adobe\")

' Få fat i den første wordfil
strFileToConvert = Dir(strFolder + "*.doc")

' tag de efterfølgende filer
While strFileToConvert <> ""

' Forsøg på at konvertere til PDF
If (ConvertFile(strFolder + strFileToConvert) = False) Then
' Hvis der går noget bedes brugeren om at stoppe
    If (MsgBox("Noget er gået galt i konverteringen " + strFileToConvert + Chr(13) + "Vil du afslutte ? ", vbYesNo) = vbYes) Then
' Vi afslutter
Exit Sub
End If
End If

' Næste fil behandles
strFileToConvert = Dir
Wend

End Sub