This function works on Microsoft Office 32bit. But when transferring to 64bit, the error "Automation error %1 is not a valid Win32 application" occured.
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