VBA打开WORD文档

Sub 打开word文档()
Dim sfname  As String
Dim strfilt   As String
Dim strtitle  As String
Dim docapp  As Object
strfilt = "word文档(*.doc;*.docx;*.docm),*.doc;*.docx;*.docm,"
strtitle = "打开word文档"
sfname = Application.GetOpenFilename(filefilter:=strfilt, Title:=strtitle)
If sfname = "False" Then Exit Sub
Set docapp = CreateObject("word.application")
docapp.documents.Open sfname
docapp.Visible = True
Set docapp = Nothing
End Sub