excelde çalışan ama wordde çalışmayan kod

[udentr2002]

Merhaba arkadaşlar;
aşağıdaki kod excelde çalışıyor ama aynı kodu word de çalıştırmaya çalıştığımda hata veryor
KOD:

Private Sub CommandButton1_Click()
On Error GoTo hata
ChDir "C:\CTD"

dosya = Application.GetOpenFilename(FileFilter:="," & _
"*.xls;*.doc;*.bmp;*.jpg;*.gif;*.pdf;*.mdb", _
Title:="Lütfen dosya seçimi yapınız") ' uzantı eklemeleri yapabilirsiniz
If dosya = False Then ' eğer vazgeçe basarsanız
MsgBox "Dosya seçme işleminden vazgeçildi"
Exit Sub
Else
dosyaadi = Mid(Dir(dosya), 1, Len(Dir(dosya)) - 4)
'yol = Mid(dosya, 1, Len(dosya) - Len(Dir(dosya)))
'uzanti = Mid(Dir(dosya), Len(Dir(dosya)) - 2, 4)
' mesaj = "Dosya Yolu : " & yol & vbNewLine
' mesaj = mesaj & "Dosya Adı : " & dosyaadi & vbNewLine
' mesaj = mesaj & "Dosya Uzantısı : " & uzanti & vbNewLine
'MsgBox mesaj
TextBox1 = dosyaadi
ListBox1 = dosya
End If
Exit Sub
hata:
MsgBox "Klasör bulunamdı", vbCritical, "UYARI"
End Sub

kodları word de çalıştırmak istediğimde aşağıdaki satırı işaretleyip hata veriyor

dosya = Application.GetOpenFilename(FileFilter:="," & _

ne gibi bir değişiklik yapmam lazım

Not : Kodlar dosya açmak için hazırrlanmıştır.