调试经验——使用VBA在Excel中打开Word文档（Open Word file in Excel with VBA）

VBA的一个强项是可以跨应用操作，特别是在office各程序内部。以下代码实现了在Excel中打开Word文档。

代码：

Sub openWord()
'在Excel中打开Word文档
'
'
    Dim sFName As String, strFilt As String, strTitle As String
    Dim docApp As Word.Application
    
    strFilt = "Word文档,*.doc; *.docx; *.docm"  '允许打开的文件后缀名
    strTitle = "请选择要打开的Word文档"          '对话框标题
    
    sFName = Application.GetOpenFilename(filefilter:=strFilt, Title:=strTitle)
    If sFName = "False" Then Exit Sub           '用户取消选择，则退出程序
    
    Set docApp = CreateObject("Word.Application")   '为docApp变量赋值
    docApp.Documents.Open sFName
    docApp.Visible = True
    docApp.Activate     '让打开后的文件显示在桌面（成为当前活动文档）
    
    Set docApp = Nothing
    
End Sub

效果：