Autoprint and word og excel dokumenter

Hej eksperter.

Jeg har et lille vb scribt der lige nu printer alle word dokumenter lagt i en bestemt mappe og i alefabetisk rækkefølge.
nu skal jeg tilføje nogle excel dokumenter *.xls og ændre scriptet så der nu udskifives kun i alfabetisk rækkeføgle.
fx: først "a.doc" dernæst "b.xls" igen c.doc osv...

håber der en der kan hjælpe da jeg ikke er sikker på at ved at ændre "doc" til "*.*" i scriptet vil skabe den alfebetiske printer rækkefølge.

skripter ser således ud. 

Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set objDoc = objWord.Documents.Add()

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set FileList = objWMIService.ExecQuery _
    ("ASSOCIATORS OF {Win32_Directory.Name='c:\automat_mappe_sverige'} Where " _
        & "ResultClass = CIM_DataFile")

For Each objFile In FileList
    If objFile.Extension = "doc" Then
        objWord.PrintOut ,,,,,,,,,,,,objFile.Name
    End If
Next

objWord.Quit




venlig hilsen

bw