在同一应用程序实例中使用ShellExecute打开文件

Question

关注this guide我已经构建了以下代码来从SharePoint打开Word模板文件：

Sub open_file(ByVal control As IRibbonControl)

Dim strFile As String
Dim strAction As String
Dim lngErr As Long

strFile = "ms-word:nft|u|<file-path-url>|c|<save-location-url>" 
strAction = "OPEN"

lngErr = ShellExecute(0, strAction, strFile, "", "", 0)
Debug.Print lngErr

End Sub

我能够将其成功打开，作为我存储在SharePoint上的模板中的新文件，但是它在单独的Word实例中打开，这会导致其他宏出现问题，因为无法访问它。

如何强制它在我已经打开的Word的同一个实例中打开？