この機能は、MicrosoftOffice32ビットで動作します。しかし、64ビットに転送すると、「自動化エラー%1は有効なWin32アプリケーションではありません」というエラーが発生しました。
Private Function CreateUsingManifest(nameOfClass As String) As Object
Dim actCtx As Object
Set actCtx = CreateObject("Microsoft.Windows.ActCtx")
On Error GoTo InvalidManifest
Set CreateUsingManifest = actCtx.CreateObject(nameOfClass) 'Error here
Set actCtx = Nothing
On Error GoTo 0
Exit Function
InvalidManifest:
Err.Raise "Automation error %1 is not a valid Win32 application."
End Function