added FallbackApp; commented-out because, well, it blows up the host unfortunately. If anyone gets this to work, they get RD unit tests to work in *any* host.

Author: retailcoder

Rubberduck.VBEEditor/Extensions/VbeExtensions.cs

@@ -56,7 +56,7 @@ public static IHostApplication HostApplication(this VBE vbe)
             {
                 const int ctl_view_host = 106;
 
-                CommandBarControl host_app_control = vbe.CommandBars.FindControl(MsoControlType.msoControlButton, ctl_view_host);
+                var host_app_control = vbe.CommandBars.FindControl(MsoControlType.msoControlButton, ctl_view_host);
 
                 if (host_app_control == null)
                 {
@@ -67,7 +67,7 @@ public static IHostApplication HostApplication(this VBE vbe)
                     switch (host_app_control.Caption)
                     {
                         case "Microsoft Excel":
-                            return new ExcelApp();
+                            /*return new FallbackApp(vbe);//*/return new ExcelApp();
                         case "Microsoft Access":
                             return new AccessApp();
                         case "Microsoft Word":
@@ -79,12 +79,12 @@ public static IHostApplication HostApplication(this VBE vbe)
                         case "Microsoft Publisher":
                             return new PublisherApp();
                         case "AutoCAD":
-                            return null; //TODO - Confirm the button caption
+                            return new AutoCADApp();
                         case "CorelDRAW":
-                            return null;
+                            return new CorelDRAWApp();
                     }
                 }
-                return null;
+                return null; //new FallbackApp(vbe);
             }
 
             foreach (var reference in vbe.ActiveVBProject.References.Cast<Reference>()
@@ -93,7 +93,7 @@ public static IHostApplication HostApplication(this VBE vbe)
                 switch (reference.Name)
                 {
                     case "Excel":
-                        return new ExcelApp(vbe);
+                        /*return new FallbackApp(vbe);//*/return new ExcelApp(vbe);
                     case "Access":
                         return new AccessApp();
                     case "Word":
@@ -111,7 +111,7 @@ public static IHostApplication HostApplication(this VBE vbe)
                 }
             }
 
-            return null;
+            return null; //new FallbackApp(vbe);
         }
     }
 }

Rubberduck.VBEEditor/Rubberduck.VBEditor.csproj

@@ -106,6 +106,7 @@
     <Compile Include="VBEHost\AccessApp.cs" />
     <Compile Include="VBEHost\CorelDRAWApp.cs" />
     <Compile Include="VBEHost\ExcelApp.cs" />
+    <Compile Include="VBEHost\FallbackApp.cs" />
     <Compile Include="VBEHost\HostApplicationBase.cs" />
     <Compile Include="VBEHost\IHostApplication.cs" />
     <Compile Include="VBEHost\OutlookApp.cs" />

Rubberduck.VBEEditor/VBEHost/FallbackApp.cs

@@ -0,0 +1,52 @@
+using System;
+using System.Diagnostics;
+using Microsoft.Office.Core;
+using Microsoft.Vbe.Interop;
+using Rubberduck.VBEditor.VBEInterfaces.RubberduckCodePane;
+
+namespace Rubberduck.VBEditor.VBEHost
+{
+    public class FallbackApp : IHostApplication
+    {
+        private readonly VBE _vbe;
+        private readonly CommandBarButton _runButton;
+
+        private const int DebugCommandBarId = 4;
+        private const int RunMacroCommand = 5415;
+
+        public FallbackApp(VBE vbe)
+        {
+            _vbe = vbe;
+            var mainCommandBar = _vbe.CommandBars[DebugCommandBarId];
+            _runButton = (CommandBarButton)mainCommandBar.FindControl(Id: RunMacroCommand);
+        }
+
+        public void Run(QualifiedMemberName qualifiedMemberName)
+        {
+
+            var component = qualifiedMemberName.QualifiedModuleName.Component;
+            var line = component.CodeModule.get_ProcBodyLine(qualifiedMemberName.MemberName, vbext_ProcKind.vbext_pk_Proc);
+
+            component.CodeModule.CodePane.SetSelection(line, 1, line, 1);
+            component.CodeModule.CodePane.ForceFocus();
+
+            _runButton.Execute();
+        }
+
+        public TimeSpan TimedMethodCall(QualifiedMemberName qualifiedMemberName)
+        {
+            var stopwatch = Stopwatch.StartNew();
+
+            Run(qualifiedMemberName);
+
+            stopwatch.Stop();
+            return stopwatch.Elapsed;
+        }
+
+        public string ApplicationName { get { return "(unknown)"; } }
+
+        public void Dispose()
+        {
+        }
+    }
+}